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PREFACE 


This manual is the second of three volumes descriping the internal Logic of VSE/POWER. The 
three volumes are: 


° VSE/POWER Program Logic Manual Part 17, LY12-5027 

° VSE/PUWER Pcogram Logic Manual Part 2, LY12-5V23 

e VSE/POWER Program Logic Manual Part 3, LY 12-5034 

This volume (Part 2) describes the method ot operation ot VSE/PUWER itselr; Part 3 
describes tne method of operation of tne optional Networking and Remote Job Entry 


functions. 


To use this manual effectively, you Should pe tamiliar with the concepts and faciiities of 
VSS/POWER described in the foilowing IBM Vst/Advanced Functions pupiications: 


VSE/Advanced Functions System Generation, SC33-0096 





VSE/Advanced Functions System Management Guide, SC33-0Uy¥4 
e VSE/Aavanced Functions Operating Procedures, SC33-0U0979 


° VSE/Aavanced Functions System Control statements, SC33-00¥5 





RJE,SNA users Should also pe familiar with aCr/VTam concepts and faciilties as descrived 
in: 


e ACE/VTAM Concepts and Planning, GC38-U282 
e ACFE/VLAm Macro Language Reference, SU38-U201 


Further VSE/POWER publications are: 


e VSE/PUWER {fnstallation and Uperations Guide, sxH12-532y 








° VSE/POWER Remote Job Entry User's Guide, SH12-53282 
° VSE/POWER Networking User's Guide, SC33-6140 


e VSE/PUWER messages, SH12-5520 


e VSE/POWER Reference Summary, SH12-5435 
® VSE/POWER Shared Spooling User's Guide, SH12-5330 
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3. MELHOD OF OPERATION 








This manual describes in detail the phases of the VSE/PUWEK program witn the exception of 
those concerning remote jop entry. An introduction describes sankage conventions petween 
routines. kKemote job entry phases and PNET pnases are descriped 1n VoB/POWER Program 
Logic Manwuai Part 3, LY32-5034.. 


Modules [PwS$Mv and [PWS$MM are not documented, due to thelr silmpiacity. They contain 
oniy VSE/rPOWER message definitions, and otherwise no executaDdie code. 


WS8/POWER LINKAGE CONVENTIONS 


Se 


This section begins with a description of the conventions used in tme nierarcnic structure 
of the VSs/POWER program, including the following Linkages (see Figure 1} and register 
usage. 


° Register conventions which define the generai usage O© registers within tne VSE/POWER 
program. 


° intecface iinkage, when an external routine passes controi to af lanternal routine, or 
vice versa. 


e Function linkage, when an intecnal routine invokes a VS&/PUWEK Cuaction. 


° Service linkage, when any VSE/PUWER routine invokes a VSB/PUWEK Service. 


















Services 


Figure 1. dHlerarchic Structure of VSE/POWEK 








Register Conventions 





This section describes the standard functions and asesS asSigNed to certain of the general 
purpose registers throughout VSE/POWER. fhe VSt/PUWER Cegisters are conveniently regarded 
aS running from register 10 to register 9. 


Register 20 - Partition Base Register 
Register 10 1s used to contain the address of the first byte or the VSE/POWER partition at 
ail times during VSE/POWER execution, and thus Secures addreSsaplility tor tne control 


address taple (CaT), taSk management and task services contained in pages VU and vi or the 
pactition. The register 1S not avaliable Lor other uSe. 
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Register 1414 ~- Task Control Address Register 


Register 11 is used to contain the address of tne first pyte of tne IeB for the task 
currentiy in control otf the central processor, and thus secures addressability.for the 
task parameters and taSK work space contained in the [CB. fhe cegister 1S not avaiiaple 
for other use. 


Register 232 — Asynchronous Address Register 

Register 32 is used by the task management and page fault appendage routine to cetain tne 
return address of a task entering task selection. Since the register contents are Liable 
to asynchronous change, the register 1S not availaple for other use. 


Register 13 =~ Save Area Register 


Register 13 1s used to address the current Save area, that as, the Storage area in which 
the general purpose registers are to pe saved wnen an entry iJinkage 1s next performed. 


Register 34 = Linkage Register 


Register 14 is used to contain the Linkage address, that 1S, the address to which Ffeturn 
1S to be made when an exit linkage 1s next performed. when not reguiced tor this purpose, 
the register 1S available for general use. 


Register 1345 - Entry Point Register 


Register 15 1s used to address the entry point of tne routine to pe entered when an entry 
linkage is performed. This address 1S normaliy that of the storage descriptor whicn 
precedes the routine to be executed. Tne register may pe convenientiy used as the pase 
register tor the routine to be executed. when not required tor this purpose, the register 
is available for general use. 


Register 0 - Parameter and Work Register 


Register VU 1s used to pass parameters to and from invoked routines. when not Leguired ror 
this purpose, tne cegistec 1S available for general use. 


Register 14 - Parameter and Work Register 

Registec 11s used to pass parameters or addresses of parameter i1ists to and from invoked 
routines, and 1n particular to pass command controi plock addresses to the physical LUCS 
routines of the VSE/Advanced Functions supervisor. It also hnaS machine uSage wnen a 
translate and test instruction 1S executed. wnen not regquicea for these purposes, the 
register 1S available for general task use. 

Register 2 - Linkage and Work Register 

Register 2 is used py function and Service routines to retain the ceturn address of the 
requesting task. It also has macnine usage when a tranSlate and test instruction is 
executed. when not required for tnese purposes, tne registec 1s aVaitapble for general 
task use. 

Register 3 ~ Resource Address Register 


Register 3 1s used py functions and services to address resource control plocks. when not 
required tor this purpose, the register is avallapie for generai task use. 


Registers 4-9 ~- General Use 


Registers 4-9 are available for general task use. 


interface Linkage 


Each external and internal routine of VSE/POWBKR is coded as a unigue control section. 
Control is initially given by taSk management to the externai routine to pe associated 
with a specific task. This external routine must then estadiilSh a Linkage to tne 
appropriate internal routine or routines py means of tne intectace iilnkage. 
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Open interface (IPWSOLI macro instruction): fIne interface iS opened pny tne creation of a 
dynamic Save area, which 1S associated with tne internai routine. the save area 
associated witn the external routine is located in the IctCB. tacn save area contains in 
word 2 the address of the other save area (see Figure 2). 








fe 
TCB R14 R15 RO R1 J | R8 RQ 
// 
i vi 
External save area 
/ / 
TCB Ri4 | R15 RO R1 / /\ R8 | Ro | 
Entry 7 : 
point / / 
/ 


Internal save area 


Figure 2. Relationship of Intecnal and External Save Area 





Get/Put Linkage (IPWSGLR and IPWSPLR Macro Instructions): Linkage 1S done as foliows. 

The calling task must first establish 1ts return address in register 14, and then save the 
current contents of registers 14 through Y in 1tS own Save area. It must then Load 
register 13 from word 2 of its save area, tnus addressing tne other Save area. Registers 
14, 15, and 2 through 9 are then loaded from the second save area, and a pranch made to 
the address contained in register 14. kegaisters J and 1 are used tor passing parameters 
and are tnerefoce not reloaded at this time. 


Control has now passed across the intertace to the called routine. This routine returns 
control to the cailing routine py repeating tne Sequence of operations descriped in the 
preceding paragraph. 


Close Interface (IPWSCLI Macro Instruction): fhe dynamic save area associated with the 
internal routine is released. 


Registers 10 through 13 have the special uses descriped ian “Register Conventions", and are 
therefore neither saved nor restored during intertace Linkage. 


Function Linkage 


Each VS£E/POWER function is coded as a unique control section. tne rirst sixteen poytes ot 
each control section consist of an alphameric control section descriptor. a fullword 
address constant containing the address of each control section iS contained in the 
control address tables. 


Linkage to a function is achieved py itoading register 15 with the address of the 
appropriate control section and then executing a oranch and link instruction in tne form 
BAL 14,10(15). Thus, entcy is made to the contcol section at tne rirst byte following tne 
control section descriptor, the task return address being preserved in register 14. 


Upon entry, the contents of registers 14 through Y are saved in words 3 through 14 of the 
dynamic save area provided by the calling routine and addressed py register 13 ([PWSSaAV 
Macro instruction). 


On retucn from a function, registers 14 througn Y are restored from tne dynamic save area 
addressed py register 13. A pranch 1S then made to the return address now contained in 
register 14 (IPWSRET macro instruction). 


Registers 10 through 13 have the special uses described in “Registec Conventions", and are 
therefore neither saved hor restored during function linkage. 
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Service Linkage 


Each VSE/PUWER service 1S coded aS a unigue routine contained in the nucieus phase 
(IPWSHSNT).« 


Linkage to a service is based on the use of registers VY through 3. In most caseS register 
2 actS aS a branch-and-link register. 


Registers 0 and 1 are often used to pass parametecs between calling routine and tne 
invoked service. Figure 3ShowsS the various usages of the registers 0 through 3. 


The service macrcos are used to address the services via a service routine branch table 
located in the CAT in the nucleus phase. 
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IPW$$XR_ Chart KA 


Emulates reader 1/0 
requests from user 
program into read 
operations from data 
file. 

Invokes execution 
list/punch writer task 
whenever list or 
punch |/O request to 
be emulated. 


Functions used by 
| IPW$$XR 


Chart EB 
Chart DC 
Chart DD 
Chart DE 
Chart FA 
Chart GB 
Chart GE 


Services used 

™ Chart AA 
RM Chart AB 
SM Chart AC 
MS Chart AD 
DS Chart AE 
vs Chart AH 





EXECUTION 


LIST/PUNCH TASK 





(PWS$XW Chart KB 
Emulates tist and punch 
1/O requests from user 
program into write 
operations to data file 
and creates a queue en 
entry by means of 
function routines. 



















Invokes 
IPW$S$OT for 
tape output. 






Functions used by 
IPWSSXW 






RQ Chart DA 
AQ Chart DB 
PD Chart EA 
Chart GG 








Chart AA 









RM Chart AB 
SM Chart AC 
MS Chart AD 
DS Chart AE 
TS Chart AF 





Chart AH 


adnterfaces and Task Structured References (Part 


LOCAL LIST 
TASK 


IPWSSPL Chart JA 
Links to logical writer 
and prints lines from 
physical data area 
(PDA). 


IPWS$$LW_ Chart JC 


Reads data records 
from data file-using 
information from 
queue records belong- 
ing to queue entry by 
means of function 
routines. 


Functions used by 
IPWS$PL and 


Chart DC 
Chart DD 
Chart DE 
Chart FA 
Chart GC 
Chart GH 


Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AG 


Zz of 5) 


1. method of Operation 


LOCAL PUNCH 
TASK 


IPW$$PP Chart JB 
Links to logical writer 
and punches cards 
from physical data 
area (PDA). 


IPW$$LW_ Chart JC 
Reads data records aa 
from data file using 
information from 
queue records belong- 
ing to queue entry by 
means of function 
routines. 


Functions used by 
IPWS$PP and 
IPWS$$LW 


Chart DC 
Chart DD 
Chart DE 
Chart FA 
Chart GC 


Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AG 
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RJE,BSC 
LIST/PUNCH TASK 


IPWS$$BW Chart MA 


Links to logical 
| writer and prints lines, 
or punches cards at 
terminal using RTAM 
routines. 


IPW$$LW_ Chart JC 


















Reads data records 
from data file using 
information from 
queue records belong- 
ing to queue entry by 
means of functions. 





Functions used by 
IPWSSBW and 
IPWSSLW 


Chart BM 
Chart OC 











Da Chart DD 
Fa Chart DE 
PA Chart F& 
LU Chart GC 
MS Chart MB 


Chart GD 


T™ Chart AA 
RM Chart AB 
SM Chart AC 
MS Chart AD 
Ds Chart AE 
TS Chart AF 
TIS Chart AG 


Figure o. 


RJE,SNA 
LIST/PUNCH TASK 


IPW$$OB Chart MH 


Links to logical 
writer and prints lines, 
or punches cards at 
terminal using VTAM 
macros. 


IPW$$LW Chart JC 



















Reads data records 
from data file using 
information from 
queue records belong- 
ing to queue entry by 
means of functions. 











Functions used by 
IPW$$OB and 
IPWS$SLW 


Chart DC 
Chart DD 
FQ Chart DE 
Chart FA 













Chart AA 
RM Chart AB 
SM Chart AC 
MS Chart AD 
DS Chart AE 
Ts Chart AF 
Chart AG 










COMMAND 
PROCESSOR TASK 


IPWS$CP_ Chart CP 


Builds and attaches 
tasks into task 

selection list, initiates 
termination of tasks, 
or changes status 

queue entries according 
to command received. 


Functions used by 
IPWS$$CP 


Chart DB 
Chart DD 
Chart DE 
Chart GC 


Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 


VSE/POWER PLM Part 2 


SAVE ACCOUNT 
TASK 


IPWS$$SA Chart CR 


Reads account file 
using a function routine 
land writes the account 
records to disk, tape or 
punch device, or deletes 
the file, or links to 
logical reader to spool 
cards to be punched. 


* HB 
Writes records to 
data file and creates 
queue entry using 
function routines. 


Functions used by 
IPWSS$SA (for 
IPWS$SLR, see com- 
mon reader tasks) 


“Chart FB 


Services used 


Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
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STATUS TASK 


‘IPW$$PS Chart CO 





Reads queue file 
records using function 
routines and prints 
queue status informa- 
tion on a printer 
device. 


Functions used by 


IPWSSPS 


Chart GC 
Chart MB 


Services used 


Chart AA 
Chart AC 
Chart AD 
Chart AE 


Interfaces and Task Structured References (Part 


INITIATOR/ 
TERMINATOR 
TAS 


Loads nucleus and all 
required modules into 
Partition at initiation 
time. 

Opens 'VSE/POWER 
files and links to 


logical reader and 
writer for autostart. 
Then waits for 
request as terminator. 
Closes VSE/POWER 
files and restores 
Partition for normal 
DOS/VSE operation 


Process autostart 
initiation. 


Function used by 
initialization 
(for IPW$$LR, 


IPWS$$LW see common 
reader/writertasks) 


Chart FA 
Chart FB 
Chart GD 
Chart GC 


Chart AA 
Chart AC 
Chart AD 
Chart AE 
Chart AG 








TASK 
TERMINATOR 
TASK 


Handles PSTOP from 
logical reader/writer 
tasks and 1/O error or 
WLR error conditions. 
On error conditions, 
files are restored to 
their best possible 
status. 

This task uses the 
TCB of the task to 
be terminated or the 
task to be recovered 
from the I/O error. 


Functions used by 


Chart DB 
Chart DD 
Chart DE 
Chart EA 
Chart FA 
Chart FB 
Chart GC 


Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
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RJE,BSC LINE 
MANAGER TASK 


IPW$$LM Chart MA 


tnitiates and terminate: 
lines, processes sign 

on/off, recovers from 
line errors, interfaces 
with RTAM routines, 















Functions used by 
ipw$$To 
(Line Manager) 


BM Chart BM 


Services used 


™ Chart AA 
RM Chart AB 





Remote 
reader/writer 
task 


Figure 7. 


RJE,SNA RJE, SNA RJE,SNA RJE,SNA RJE,SNA 
MANAGER TASK LOGON TASK 1 LOGON TASK 2 LOGOFF TASK MESSAGE TASK 


IPW$$LH Chart MK 






















IPWS$$SN_ Chart MC 


Activates SNA 
processing routines 
for each logical unit 
requesting to logon 
to the system. 
Attaches DOS/VSE 
subtask to open 
the interface 
between VTAM 
and VSE/POWER 


IPW$$LN Chart MD 


Initiates a session 
between a logical 
unit and VSE/POWER 










IPW$$LF Chart ME 


IPW$$MP_ Chart MF 





Initializes work areas 
and does validity 
checking of logon 
request 


Terminates a session 
between a logical 
unit and VSE/POWER 


Writes messages to 
the logical unit 
using VTAM macros. 





Functions used by 
IPWS$$LF 





PA Chart FA 





Services used Services used 


Services Used Services used Services used 





Chart AA ™ Chart AA Chart AA ™ Chart AA 
RM Chart AB SM Chart AB Chart AB Chart AB RM Chart AB 
SM Chart AC RM Chart AC MS Chart AD Chart AD MS Chart AD 
Chart AD MS Chart AD Chart AG Chart AG 
TIS Chart AG 





Interfaces and Task Structured References (Part 4 of 5) 


1. method of Operation 
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INTERNAL READER 
TASK 


IPW$$SM_ Chart PA 


Reads data from user's 
buffer area through 
the PUTSPOOL macro 
interface and passes 
data records to logical 
reader. 


IPW$$LR_ Chart HB 


Writes data records 

to data file from 
logical data area 
(LDA) and creates 
queue entry by means 
of function routines. 


Functions used by 
IPWSS$SM and 
tPW$$LR 


Chart DA 
Chart DB 
Chart DD 
Chart DE 
Chart EA 
Chart FA 
Chart GA 
Chart GD 


Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AG 


Figure 3. 


VSE/POWER PLM Part 2 





MANAGER LIST TASK 


SPOOL/COMMAND 


IPW$$SM_ Chart PA 


Links to logical writer 
for list retrieval 
(GETSPOOL) and 
invokes Command 
Processor for 
CTLSPOOL processing. 


IPWSSLW_ Chart JC 


Reads data records 
from data file using 
information from 
queue records belon- 
ging to queue entry 
by means of func- 
tions. 


Functions used by 
IPWS$$SM and 
IPWS$SLW 


Chart DC 
Chart DD 
Chart DE 
Chart GD 
Chart FA 


Services used 


Chart AA 
Chart AB 
Chart AC 
Chart AD 
Chart AE 
Chart AF 
Chart AG 





SPOOL MANAGE- 
MENT TASK 
a as aaa 


IPW$$SM_ Chart PA 


Activates Internal 
reader task and/or 
spool/command 
manager list task for 
PUTSPOOL, GETS- 
POOL, and 
CTLSPOOL proces- 
sing. 


Services used 


Chart AA 
Chart AB 
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UNDERSTANDING £HB PHASE DESCRIPTIONS 





Parts 2 and 3 of the VSE/POWER program Logic manual contain detailea aescriptions of the 
VSE/POWER phases. The phaseS are described using two metnods or presentation. 


e Text description 


Some phases are presented in the form of Charts containing a written description of 
the phase. An explanation of what these Charts contain and an example are Shown in 
Figure 9. 


















This column contains the labels where 
the logic flow description inside this 
phase is continued. 


This column contains tabels corresponding 
to the program listing. (Note that not all 
labels are shown, but only those labels 
which are necessary to provide a reference 
to the program listing.) 


This column contains a detailed 
description of the main processing flow. 





RAO): IPW$9XR ~ Execution Reader 










rol block in the| ‘ToEBe 2¢T PMs OTC? 














reracrewsore) 
Note: These charts are not meant to be 
a copy of the program listing. 


Load the record address into reyister m1 
rn 


tink to the JEcL statement analysis 
froueine t> nandle the incowing 
statement. 


Icecstreusoze> 
i 


the updated ccw address in tne 


i 
icecrérpwsocer 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
i 
1 
a 
5 
1 
4 
1 
| 
1 
@ reaidual count to zero. 1 
1 


1 
flaga in the farat | [cect ¢rewsoced 
e. 1 1 


1 
ie partition task PIB} 
and set at tc 1 


7 


2 


1 
an ail unit record{ 


1 
1 
iT 
| 
t 
I 
4 
i 
1 
1 
if 
i 
4 
1 
1 
t 
i 
4 
| 
1 
| 
1 
! 
{ 
i 
t 
{ 
1 
1 
4 
1 
i 
1 
i 
1 
1 
i 
J 
i 
i 
1 
1 
ww which relate tol 1 
. t ! 


4 
i 
1 
1 
i 
1 
i 


1 
i 
1 






cequest is sti2) 
inj, the necanmary flags are 


fod iacewadececedenaetesnasdberseseeerry 


This column contains the most important This column contains the most important This column contains macro calls, indicating 
data fields that are modified by this phase. register usage of this phase. interfaces outside this phase. Refer to 


For more information about these data fields, section 3 for the meaning of these linkage 
refer to Section 4 in VSE/POWER macros, and to the indicated chart IDs for 
Pro gram Logic a continuation of the logic flow description. 
Manuai Part 1, LY12-5027 Control is always returned to this point. 





Figure Y. Explanation of Text PhaSe Descriptions 

° Machine-drawHfPO Charts 
This is a diagrammatic form of phase agescription consisting otf machine-drawn aro 
diagrams. s#HIpO stands for Hierarchy pius Input-Process-Output, which 1S a program 
documentation technique. 
For each phaSe, the first Chart 1S an overview of the phase Segments. 
Each cnart nas four major plocksS: an input bDLock to tne left, a processing biock in 
the middle, an output block to the cight, and an extended description plock at the end 
of the Chart. 


Note: 


_ Coiumn *Module* contains references to VSr/Advanced Functions maccoS that are used 
at thiS point in the code to provide iinkage to VSn/Advanced Functions functions 
Or services. 


1. method ot Operation 13 
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_- Column *Label*® contains cross-references to soucce-code listings (microficne) to 
help you tind this Location in the code quickly. 


- Column *Reference* contains tne appreviated name of a VSE/PUWsK Internat macro - 
for example, *$RLw* refers to macro *LPw$SRLW"*. For more inrormation about such 


linkage macros, refer to Section 4 in VSE/POWER Program Logic Manual Pact 1, 
L1 12-5027. 


The cnartsS are generated py tne program HivUDkAWw and the SympolS used are explainea 
in Figure 10. 


Data Movement 


Control Entry Control Exit 


Keyed Data Movement 


Control Exit to Routine 
Data Reference 


Control Exit to Routine with 
Return to Next Instruction 


Keyed Data Reference 


r-—7 ed peer 
Jeee >frezal 
Off-Page Connectors re a 


p-—? - | p--- 
On-Page Connectors [ooo >[anal 
tc, /} t-— 





Figure 30. Sympois Used in HdIPODRAW Charts 
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METHOD OF OPERATION: CHARTS 


1. Method of Operation 15 


Lacensed material - Property of i1Ba 
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CHART AY: LPWSS$AY 


ee ee ee ee 
} IPWSSAQ - Add Queue Set To Chain " 
Se Se eed 


} Label j Routine j 
-———_—__—_—____—__—— OO Or OOO el 





{ AaQood } Fanction Entry | 
} agro } Examine Class Table } 
} aQ50 } Add to Start of Chain | 
} AQ55 } Aad to Middle of Chain 1 
|} AQoU } Add to End of Chain i 
} AQ6S | add Complete Chain i 
4 AQ7O {| Post Class Table ECB i 
1 } Post Network Transmitter (Local/shared Support) | 
4 ag7s } Post Shared System SYSID i 
} AQ73 } Post RJE Writer | 
} Aayvsv | Post Shared System RJE Writer k 
} AQ8s } Function Exit | 
u. ee Cn ae eee | 
Gira rres rr a pa pe ee ee pee a OMe ae, TT SPS OE EM Te TL Ge ee ep ee SS ae wee ee A ae RE NG ea Pye fo Pe ese Sag 
} Services Used j 
st 
}| Service } Macro 
SS SS SS ee ee 
} Resource Management } LPwWSRLR | 
} ; | IPWSRSR 


| 


} Disk / Tape service | LTePwscrt 
\ | IPWSRDO f 
} } LewSwtQ 1 
\ {| LPwswtt ! 
eee ee ee ee ed 
| Notify service } Lewsnty i 


| 


o> ne ee er a te ee tgs Se De oa eh es a ae aga fengh ae ae Tae OE ae ae a eS ae eS ee 
} CaltLed py i 
F nn rn a 
| Module | Description | 
SSS a ee 


| LPWHdCA | Command Processor (PALTER) j 
| IPWSSCR } Command Processor (PRELEASE) j 
| IPWSSLR } Logical Reader 1 
| LPWSSNR } PNET Receiver | 
| LPWSSOP | Offload yueues | 
| LEWSSTR { Task Terminator j 
| ITPWSSxXwW } Execution Writer i 
| te ote 
u ae | 





Chart Ay VI 
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we wee wee ee eee ow wee Se OO ee we ee Be ee Oe Ow ee we wwe Ow ww Oe Oe 2 Oe we ww Oe Ow ew Oe Ow ow @ OO Bw @ Oe ew ew ewe ow &, 


. 
{Labels 


{Coart Ay: IPWSSAQ ~- Add Yueue Set to 


ifne rirst lo bytes constitute tne 
}section descriptor: 

4 

}*aQces release’ 

! 

jfunction Entry 

1 

}Save caller registers 14 through 9 
janclusive. 

{Set addressability for queue cecord. 
b 

jset function track indicator A (add 
jin progress). 

\ 

{If tape spooling: 

! 

}* Write trailer record to tape 

b (queue record area) 


Chain 


-_— ee we ew ww ew iii 


ie Write two tapemarks, packSpace two} 


1 

tset addressapility disk management 
JoLock (DMB). 

}Lock DMB. 

\ 

jIt tne queue record traps are active 
jand the record is not flagged as 


jfcee, force program CHECK. ceeccccee ef AUSD 


jIf *KrEP* is not specified pranch 


| 
\ 
\ 
1 
b 
\ 
i 
| 


ETO meme cne crac caccaccccccccccscosecosr {AUS 


1 
jwOrite queue record pack and pranch 


[EO ido .6S-5:60'sS cece ee cciee.ce cele wes eee eee PAU I0 


1 


iff queue record area doeS not contaln} 


yfirst-in-set: 

| 

{Update record pointers 

4 

je Set forward pointer to zero 
je Set next-in-set pointer to zero 
! 

{Write the queue record pack. 

\ 

pRead first record back into tne 
jauxililary queue area. 


{Copy anformation in queue record area 


\ 

je Overwrite record pointers 

je Overwrate control seek address 
}e Reset tfirst-in—-set Switch 
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1 


- ow oe ww ww ee se 


jfiodified Data 
jfreLlas 


IPw$vSV 


CRE (LeWSDLC) 


ee ee ee eee ee ee ee we ee ee ew ee ee ee ee we ee 


{WRYUN (LPWodDYVR) 
JURNS (LPWSDUR) 
1 
1 
\ 
IWOUW (LPWSDYE) 
! 
i 
1 
JURCHFLPWSDUR) 
jLCUW (LEWSDTC) 
IWRES (LP WSDUR) 


en a ee ee ee ee ne ee ee ee oe oe ee ee ee ee oe ee eee oe ee ww we 8 we ww we oe Ow Om ww Oe wm ewe @ we ww we ww we we we ww oe wwe ee eww ew ew ewe oe 


| 


\Calis 
| 


-~ oe Sw ew a we ew aw ww we ww es we 


jLewswtTy 
\ ' 
jLewsCTTy 
\ ‘ 
\ 
' 
\ 
pLeWSRSK 
) 


LPwdw ty 


oo we awe ee we = oe eee ii ee ow we 


Lrwowty} 
\ 
LPweRDdDY | 


-_ ee ow ww we we oe ee fe eee ee ee ew oi 
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ees ee 2 ee we ee we ewe ee © we we Oe ew Ow Ow wee ww ew ww ww Ow ew ew WM we ew we ew ew wee www ow ew ew ww eww & we we we ee ee we we re ee we ee oe oe 


JLabels 


AQ 18 


AQ19 


Av22 


}Charct AQ: IPWS$S$AQ - add Yueue Set to Chain 


juxamine Class Table j 

jif the gueue record PNET target node j 

$1S tne Local SySteM. cc eecccccccccen o> f AVI 
jAddress the corcect XMT queue entry | 
(either JOB or OUTPUT) | 

jIf add queue set with Keep.....-2..->}/AUIU 
{Lf PnET feature not avaliaple.......>pAusZ 
}If ONseT target node 1S Known...-ee-->JAvuZsZ 
jk&Lse the node is indicated as unknown} 
{OLSP=H 1S Set. Branch. ccwccncccaew oe AfAUZsZé 
1 i] 

}ff the target userid 1s specified in | 
}the format *Rnnn*, then 1t 1S convert] 
j-ed to nex and stored in the remote | 
j*to*® tield. 

| 

jaddcess class table entry: 
1 

{If pointers are zero add complete 1 
PCNALN a ccc enc an cncacssscescccsuaacceserfAyod 
| t 

{if aad queue Set with Keep..........> {AVIV 
] ) 
jfransLate relative disk address of j 
JdaSt 1N CLASS POINTE cose ccencescee {AVIV 
| ] 

te Read Last-in-class record in t 

j auxiliary queue area 1 

y@ Check priority for add to end of j 

{ CNALNecccccccccccccssccccacseccses>| AVOVU 
) 1 
$Scan chain backwards, until priority | 

jot new set 1S equal or iowec for ada | 

ito middle of Chain (auxiliary area j 
jnow contains previous queue record) >jAv>s5 


—_—ee = 


iModiried vata 
j¥leids 


JORLTN (LeWSDUK) 


jLCe 3(LPwdSuLC) 
JURDP (LewsDUR) 
| 


URI (LP wSuUR) 


wCuw (LP wSvUC) 


YCuwW (LPwsvuL) 


—_— oF we wee ee we ee = owe SE ee ee ee owe oe we i i 


plewSRDY 


Chart ay 


iewsRvQ 


! 
i 


ee we ee Oe ee we ee oe ee ee ee Oe oe ee ge oe te ow ee ee we ee ae oe oe ww ee ee we we we ee we ee we ee we we we ew en a ae ee ee oe ee a ee a ere we we ee ee ee ee oe we | 
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}Chart AY: 
1 


IPWSSAQ - Add yueue Set to Chain 


|Moditied Data 
jrlelas 
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i) 
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_ 


Add to Start of Chain j 

1 ) 

{if tnis 1S Same queue Set, exX1it.....>;AVUIV 
] 1 
jIranslate and store farst-in-class j 
PPOUNRTS Le naman cccavacsecaccsescosvcse*JAVID 
jSet previous class pointer to zero. | 
jSet torward pointer to next-in-class.| 
{Write new record. j 

I 

}Reset backward pointer to first-1n- 
iclass. ; 

qWroite back current first-in-class 
jcecord trom auxiliary area. 

| 1 
$Branch tO COMpLlETlONe eee eeee eae ee ee Af AVlU 
1 1 
jAdd to Middle of Chain j 

' | 

if tnis 1s the same queue class, | 
PORE oo SSeS sed wie cis Shep oe eee 6 602 0a ee? |AU TO 
1 1 
Set packward pointer to previous-in- | 
jclass. 1 
jSet forward pointer to next-in-Class.| 
JWrite new record. 

j 

}Reset forward pointer to next-in- 
jclass. 

jWrite previous record back. 

Read next record. 

\ 

}Reset backward pointer to next-1n- 
jclass. 

{Write next record back. 

l 

) b 
{Branch to COMPLetlONne ecw ever ceeee ee oe A { AVIV 
\ \ 
Add to End of Chain \ 

1 | 

jif this 1S same queue Set, exit.....>}Ayv7U 
I | 
jfranslate and store last-1n-class } 
PPOUNTC ec cccncvcccncesccvcccecvcccaserfAVID 
iSet forward class pointer to zero. } 

\ 

}Set backward pointer to previous-in- 
{class. 

j|Write new record. 

(Reset forward pointer to last-in- 
iclLass. 

Jwrite pack old record. 

\ 

\ h 
{Branch to COMPLETION. ccccncececccsaer*fAUlV 


— ge ee ee ee — ow we oe 


ow ww wi ie 
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attache If the attach Fasles, the Subtask is still alive. If 

Leeareas no subtask available not, the Attach Function is 
ae ges 


——— 


sie automaticaaly invoked. H 
ighor sO SOBT SK AVAILABLE FOR : 
ttt,cuu is issued 3B The Request will be chained. 


If the dump subtask does not exist [DETACH |aD200 3c The Subtask is waked up. POST 
anymore, no detach is done. 





Chact As 
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Handle library service request 











invoked. 
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INPUT PROCESS OUTPUT 
: cAT | 
| eS | 
eee >From caller | 
| ASAB < 
p77 >/01f If attach of library service subtask: 
Punction 2 | storage 
Code pro oe A. Attach subtask desc 
: (| 
| : B- If attach failes, issue error | | 
: message and cancel VSE/POWBR asyh. servace 
t : { section 
i----->| 02] Detach library service subtask, if 
3 requested 
: ABECB2 
SRB : ; l 
t i----— >/ 03] If invoke library service subtask: ABNEXT 
[sRBECB ] -----------—--, ——__—— 
—_————| | 3 {ABLAST i 
SRBRTC 2 wre —— 8: A. avtacn suptask, if iat does not 
: exist. 
: : ay eee es dugp servace 
3 B. Chain SRB into service request queue section 
: C. Wake up subtask 
3 P eepery 
3 weadboy Library service subtask t 
| : : : AS-4.0 | | | 
| | | | | 
p-----> D. kelease anchor block and wait for j 
$ | rmoaplet ion. 
i----- EB. Analyze prowided return code in SRB, | 
if any. 
Exit, return to callereee i 
e 
jie 
ed 
NOTES | MODULE { LABEL | REP NOTES { SODULE { LABEL { REF 
1 The Labgary service subtask is ATTACH [ze ie pecan 3B The request will be chained. | | | 
attached. If the attach failes, : 
| because no subtask available 1 { 3c The subtask is waked up. pPOSt | | 
eayecres gre 
TQAOI NO SUBTASK AVAILABLE FOR 3D , ; |oRLE 
ttttt,cuu is issued and VS£/POWER The library service subtask posts prs: 
is abnorrgjally tersinated. the ECB geppe sed :i8 the SRB when 
; j the request is either successfully } 
1B Note: It is gost unlikely, that scac or unsuccessfully coapleted. | 
the ATTACH failes, because the . 
reguest in done at VSE&/POWER | 38 One of the following messages | SGA | 
H initialization time. can be issued: | 
| : : - gear BOOK s.bbbbbobp NOT | 
2 If the suptask still exists, the DETACH 1b200 UHD. 
detach is performed and the task 1QcO0l ERROR DURING SOURCE 
1s put in wait state untii the LIBRARY ACCESS, aC=nnan 
detach is completed. 
| 3A The subtask ECB is examined if LB300 | { | | 
the subtask 1S still alive. If | | 


not, the ATTACH function is { 
t 
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Asynchronous service subtask 
INPOT 





| storage 
desc 


| 
[z] 





section 


eon | 
i service | 





! 
t 
' 
i] 
4 
Vv 


a 





section 


SRB 








SRBNEXT 
SRBECB | 


SRBREQ 





SRB | 
SRBPAR# | 
SRBNEXT | 

| 


NOTES 





« If no SRB is in the queue, the WAIT 
subtask is put into wait state 
until waked up by asynchronous 


service. 


up an the service redvent block, 
the appropriate func 

performed: 

- SETPRT request 

- LOAD reguest 

- FETCH transient 


! 
Depending on the request code, set 
ion is 


Coe cee 


3 

3A If this is the tirst SETPRT 
reguest, a LOAD with the TXT-HO 
op ion is issued, to get the 
address ot the SErprr Logic 
module ({IJVSPRDV} in the SVA. 
If the piers is not found nor 
in the SVA, return code ‘found 
not * is set in the SR8 and the 
reguest is ignored. 
Otherwise the address of the 
SETPRT module is stored in the 
Soynehroneds service anchor 


LOAD 





block. | | | 


| MODULE | LABEL 


PROCESS 


DOS/VSE 


Set up base register and addressability 
to various control blocks 


obtain first service request block form 
queue 

A. If quete is empty, wait 

If SETPRT request: 

not already present. 

B. Issue SETPRT 

If LOAD request: 

A. Check if phase exists 


B.- Check if phase fits into provided 


A- Get Address of SETPRT logic rodule, | 
area, if any 


Ce Load phase, if applacable 

If FETCH of trans.ent: 

A- Get parareter list address and phase: 
name address and issue SVC 2 

B. store returacode in SRB, if 
applicable 

Post ECB and reset request code 


Post VSE/POREBR master EBCB 


ce 





REF 


NOTES 


38 The SETPRT parameter list 
address is stored in the 
as picked up and used to 
Ror orm the SETPRT. 

return 
stored into the SRB. 





¥ 


the return code is 


ee SP SP SF - P S-A 


OUTPUT 


PT HE SE I EE SE NE SL NN A TE SN EE LN I ie SARE Se AS GSMS HP 


} MODULE | 


 paie SETPRT 


LABEL 








t 
t 
i 
' 
& A LOAD with TXT=NO option is LoaD STLOAD 
assued to check if the phase to be 
loaded exists. G 
If not, an appropriate returncode | } 
as set in the SRB and a branch to H t \ 
the exit is rgade. . { | 
Otherwise the phase size is t 
{ calculated and checked against the 
maxiauam Size specification ; 
obtained froe he SEB, if one is 
present. Additionally, the actual 
hase size is stored into the SRB. 
f a load address was specified in 
the SRB, the phase is loaded at 
that place. | 
Chart As 31 


Asynchronous duap subtask 
INPUT 


a 


ASAB 


SRB 


SRBPARS 
SRBNEXT 
SRBECB 


NOTES 


The Pointer ABFPR is examined if 
there 1s a Request queued (ASFPR 
points to Ist Request). 


Task is set in dait State until {#AIT 


a Request is queued that means 
a wait on EC posting. 


After the Task 1S waked up, 
return is made to the Subtask 


Entrypoint. 
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PROCESS ourTPUT 


















DOS/VSE 


INITIAL HOUSEKEEPING 
~ Set up Addressability 


IF WO REQUEST QUEUED : 


A. Get own ECB and -WAIT- on ECB 
posting 


B. ECB posted 


Ce Unchain SR’ from Service Request 
Queue 


HANDLE IDOMP REQUEST 
A. Provide IDUMP with Parameters 


c 
2 POST PROCESSING 
5 


Ae Post Task ECB 
B. Post VWSE/POWBR Master ECB 






NOTES } MODULE | 
3 The SRBPARS Pield in the SRB ‘i 





LABEL 
1DS30 


| MODULE {| LABBL | REP 


rpso05 





contains ail the neede 
informations for the IDUMP 
(e.g-Start/End Addr.) 


% On return from IDUMP the Task ECB 
and the VSE/POWER Master £CB are 
posted. 





eT 


na ER 
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Library service subtask 


INPUT PROCESS ourPur 
ets, 


ASAB { e| ASAB 
| eee >From DOS/VSE 
A | 























faz [r+ 73 [02 | 


| 
| | | 
[ABxPaD =-----------—-- —————>j fasrpap—sd 
| | rT rt ae | : | for} Set up base register | | =I] ee | 
| poue ECB tl ieee >foz} Bachaee (Dexe) SRB. If queue empty, ———) q Hove ecb | | 
| |ABRECB | a en ae | “| fapwece 1| | 
| een sare fat >}O03] If FIND request: ime | 
| SRB | : A. Locate neaber. | | SLAE 
(saaeo B. Read ahead up to 10 records: _| 
= 3 Get up to 10 member records ———} | 
: AS-4.1 
i : SRb 
| | ean, « If GET RECORD request: | eowt| | [Saeece 
A. Reestablish position if necessary. | it 
| | B. Read ahead up to 10 records: | CAT 
| | | Get up to 10 gember records | _——___|| raze | | 
| | i sa 
| 
| | | fos} Post processing: | { 
| A. Post task ECB, iri tes a) | 
| | B. Post WSE/POWER master ECB, 
| | | 
| | 





NOTES { BODULE | LABEL | REF NOTES { MODULE | LABEL | H&P \ 


LBS#O5 aa A flag in the SLAE of the |. PITSL LBSGOO 
current request indicates, if a 
meaber position gust be 
reestablished by a POINT ; 
request. POINT 1s only required | 
in’ case of nested SLI 
processing if an inner nesting 
evel is left at end of nemper, 
and processing is resumed on 
the next outer nesting level. 





< The pointer ABRPHD is examined if WAIT 
there is a request queued (ABRPHD 
points to the 1st request). If the 
queue 1s eapty, a wait for further 
post in a he main tasx 1s 
entered. If the task is waked up, 
above check is done again. 
If the queue is not empty, the 
first request block is dequeued 
and addressability of tne SLWA and 
the SLAE is set up using the 
pointers passed with the just 
unchained SRB. 

















a a 
ot 


3A The FNDSL macro is issued to PADSL LBSFPOO 
locate the member described by 
the SLAE of the current 
request. If the aember couid 
| not pe found, a flag is set in 


EE A NE Fa I SS OO 


AE SP AS S 


ed 


the SR# and the post processing 
is entered. 


ee re ee On GR SNR OE AS NIE 


| 
| 
| 
: 


oreo 
ne 
=, 
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Get up to 10 meaber records 





InPot PROCESS 
for} Initialize record pointers and loop PIES =| 
counter. $ 


Read member record loop: 


A. Read member record. 
If end of member, flag it in SLWA. | 


B. Set new last record pointer. 


C. If SLI statement, terminate 
loop: 


D. If end of Loop: 


SS FR ES gE Ha ET END ene 





Else: 





Save current position icine ys SAEED Set ORE 
Exit: | 


Return to callereee 
31 
\*y7 





> 
SLANOPO 


te 
e 
es 


: 
| 
| 


















NOTES { BSODULE | LABEL 


2a ee ooh GBTSL 
3 Phe current position within the aTSL 
just processed serber a5 Saved af 
| i 
I 


NOTES t REF 
1 The current record pointer is set 

to the begin of the internai 

buffer area of the SLWA. The last 

record pointer is set to zero to 

indicate ‘buffer empty®. The loop 

conter is set to 10. 





{| BODULE {| LABEL t REP | 


on 






a next nesting level wil : 
entered. Later at reentry this 
osition has to be reestablished. 
eae is indicated by a flag in the 
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CHART AT: SPWSSAT 







Abnoraal 
VSE/POWER 
Termination 


Clean U 
¥VSE/POWER 


Partition 
AT-1.3 





Ter| ination 
dandling 


| AT-1.5 
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IPWSSAT - Abnormal VSE/POWER Termination Processing 
INPUT PROCESS OUTPUT 


ee . 
eee >From caller 
——,/}(either DOS/VSE or VSE/POWER) 


for} If first time: 


A. Set up linkage to AB-exit. 
8H. Return to caller. 


a. 
ae a ep SO SE Re tpn Se 


Stack 
~---=---------------3 [07] Get a free slot from workarea stack. 
| | | -Save cancel code and 


-Abnormal register save area address 


Unlock all resources owned by VSE/POWER 


1 
If cancel code 1s °10°, *1c*,*1a*,*40*, 
or *41" ¢ 
i 








COMREG 
[ [euser 


[puspr 
|prepr «| 


SYSCOK 


[IgewPaRT oo--------- 5 


Handle special cancel codes 
AT-1.1 


Blse, issue PSW & cancel code message. | 
If a subtask has been canceled : 
> 


Lpus 





ee ES EY SS 


< seesee > Cancel Partition 


f AT-1.2 


! : 
| : 
| | : ore Handle subtask Cancel 
-———_________ : AT-13.4 
| : Prompt operator to specify devace | 
$ address on which the dusp should be 
| : printed. 
: A. If not EOB nor *NO*® was entered, 
: validate printer address. COREG 
ij B. Assign SYSLST to printer device and —> [acswa=xeao*] 
H 74 set dump flags in COMREG. ty uu 
| ; | | cE | 
PIB | PIB2 : 
wor enn b> J 07) Cancel all partitaons, controlied b 
VSE7POwER. fs - {| | { 
' , : sae ——> |SYSLST i ! 


SRE 


+4 


a 


s 
| 
| | 
1 
| Clean up VSE/POWER partition | 
1 AT-1.3 
O9{ Return 
To seakiee| 
rs Ps 
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IPWSSAT - ADnormal VSE/POWER Termination pi aS deta Se a ne car 


1 


ry 


terre 
| 
: 
, 
| 
' 
| 
: 
| 
| 
| 


NOTES 
KCECEASHESKESSESE CEES ERE £ESEEEE SEES 


DOS/¥VSE passes control to the 
AB-exit routine when an abnormal 
termination condition for the 
VSE/POWER maintasSk or one of its 
pupye © is encountered. 

Register 0 contains the cancel 
code (cor ashe tion code) in its 
last byte 
Register 1 contains the address of 
the abnormal register save area in 
which DOS/VSE P aces the registers 
at the point of termination. 


When VSE/POWER detects an error 
condition, which dont allow it to 
continue, it invokes the AB-exat 
directly by issuing the "*IPWCNC 
cancel* macro instruction. 
Register 0 contains the cancel 
codex *FF* and the most curreat 
register contents reflecting the 
error condition are saved if the 
paintask abnormal register save 
area. 


CER EKEEEEEKEKERAEERERSEREEEE EE EERE 


The DOS/VSE STXIT macro 
instruction is issued in order to 
activate the linkage to the 
Ab-exit routine. 


Linkaye to the AB-exit routine is 

eerae ished for all subtasks by 
ecifying the ABSAVE parameter 
en attaching the subtask. 


The routine is invoked the first 
tume at VSE/POWER initralization 
ime. 


The workarea stack, which should 
pe large enough to contain at 
least One entry for each subtask 
and VSE/POWER maintask is scanned 
o locate an unused slot. 
If found, tne slot 1s reserved and 
the cancel code as_ well as the 
address of abnormal register save 
area are stored in it. 
If no free workarea siot is 
available, a program check is 
forced. 


All resources which are still 
owned by the VSE/POWER aaintask or 
one of its subtasks are released. 


Depending on the cancel code as 
provided by DOS/VS#, special 
actions are necessary. 


A message is prepared showing the 

PSW and the cancel code as well as 
an short eeschaptson of the cause 

of the error. @ message is then 

written to the central operator. 


1Q2CI PSW 
cause 


= MXREXNXXXXAXXXXX, CC = 


{ MODULE j LABEL 


| 
| 


STxi? 





a ET ELE ORT ED COREE CIR SRS IE i ERS SAN UT UGH GL GD SET. SS 


ATINIT 


ATOS5O 





| aR SE a ET SST ESTE ER TOD a A I ES EY RTS ART NS UR COINS) | 


ww 





n 


o 
id 


~J 


re ce err se et net OR SS ONES RS CR A A St eS 
a 
w 


e 










NOTES 


The TIK of the VSE/POWBR saintask, 
as obtained via the GkSTFLD aacro 
is cos paced with the TIK currently 
12 

If they are not identical 

ap indication that a VSE/b 
subtask cancelled. 


it is 
OWER 


A channel prograa is built 
consisting of a write ata to write 
message: 


agsot ABNORMAL VSE/POWER 
TERMINATION, PRINTER= followed py 
a cead CCW to get the operator's 
ansver 


If the cancel key was hit, the 
message 1s re-issued. 


The operator replied with a 
printer address. If the address 
is invalid message: 


aysco INVALID PRINTER TYPE, 
RE-ENTER 


inted. 
rd re salad address was given it 
is translated to a hexadecinal 
device address. 


The device address is then 
checked against the “PDB table. 
If the device is not known or 
is down, or not a valid printer 
device (device type code not 
between x*#0* and X°50"), 
message: 


$9392 INVALID PRINTER TYPE, 
-ENTERED 


is printed. 


Otherwise the PUB index is 
stored in the SYSLST LUB entry 
rancid dump option is set in 


The number of a BY ScoR paristacas 
as obtained from YSCOA. ch 
partition COMBEG is sddceseed by 
getting its address from the PIBz2. 


The POWER flag in COSREG is then 
examined if the Seth ion is 


running under cofitrol o 

VSE/POGER. 

If the es ae y9 wants a dump to be 
taken, macro is issued, 


otherwise the CANCEL macro is 
issued 





{| MODULE | LABEL | REF 

ieeeree 1 | 

| | 

| | 

i 

pace AT3UU | { 

| | | 

{ 

i | 

WALT | | 

AT320 

| 

| 

aT350 | 

| | 

| 

{ | 
| | 
! | : 
| 
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IP#$$AT - Handle Special Termination Codes 



























INPUT PROCESS OUTPUT 
e 
| ob 
| | eee >From mainline 
/\ 
fort Handle termination code °10*. 
| | | ateemel je Handle termination code *1C®, 
| :-----3[03] Handle termination code °1D*. 
work Area i : | 
farwcocp ] ---------------i----- >[oa} Handle termination codes *40*%, °41°. 
nna | 
Returo 
To mainlaineee 
| re Poe 
| : ‘s : 
nen NNeES 
| NOTES { MODULE | LABEL { REF NOTES {| AODULE | LABEL 45 
Depending on the termination code, 3 This cancel code is give to ali DETACH |aTeID 
passes either by DOS/VSE or subtasks which are still alive, 
SE/POWER, special actions are when VSE/POWER termanated either 
necessary. normally or abnorraily. ; 
; . The subtask is detached. 1 
| 1 This cancel code is gaven when BOJ ; ; 
when either the VSE/POWER maintask 4 This cancel code is given vhen aATv<f£a 
| Or one of its subtasks normally VTAM terainates (canégels) the 
terminated. Irmsediate retura to VSB/PORER subtask or when VTAB 
t DOS/VSE is made. detects an invalid condition. 
2 This cancel code 1s given when a DETACH ATS#1C A message showing the PSW and the 
subtask issues a *CANCEL ALL® cancel code is issued, and the 
macro. It Causes to terminate ali iapediate stop is posted in the 
| other subtasks as well as the SNA control block. ; 
VSE/POWER maintask to terminate The interface to VTAM is 
with obove cancel code. terminated by means of the Close 
When the AB-exit was invoked for a ACB macro. d . 
subtask, the subtask is detached. Also the SHA manager is posted. 
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IPWS$SAT ~ Cancel Partition Controlled by VSE/POWER 
INPUT PROCESS 


‘la: 


meee iad a mainline 





PIB 


[erBric2 } 8 Cancel partition. 


Partition 
Control Block i 






Spool Entry 
Spool Entry 





Spool Entry 
Spool] Entry 






foul Return 
[ 








NOTES {| MODULE | LABEL 


This routine cancels all 
peer srsonss controlled b 
SE/POW with cancel code X*23°, 
and Vrelessen all UR-devices being j 
spooled by VSE/POWER. 


1 #If the partition is not aivesdy in | TREADY CNCLOO 
stop state, ae cancels wath 
cancel code X*23°* 


oe eens mee, 





soe nner ----——---> |02] Release all assignrjents, aade to devices |7> 
being spooled by VSZ/POWER. 


[o3} Reset POWER flags ana address to 


partition control block. 


OUTPUT 


| 
| 


SS Qe SY ST 


| 
a 
w 


I 3 


i 


To mainlineecee 
=] 


Py 


| 


[e) 
l | 








HOTES { MODULE | LABEL 
Bach spool entr ra the partition aSaT iron 


RSP 





control block of the partition 

concerned is used to scan Ser uss 

tne partition LUB-table to locate 

any entry whach is assigned to a 

oo spooled by VSE/POWER. 
so. e assignmeat is reset, 

ercest for devices which are 

device type *do not intercept*. 


a EE TT 
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IPwSSAT - Clean Up VSE/POWER Partition 
InPuT PRUCESS OUTPUT 





; 





* 
4 . SYSCOs 
eee >From mainline ———-—} 

y, } 


t IUBPWR 
Reset flags and Posner to VSB/POWER wos —} IJBFLGO3 
partition in SY¥YSCOM and COMBREG. 


; COMREG 
Get hnuaber of system and progragser 


logical units. | SP facsw1 | 


Onassign all programmer logical units. 





o [s] 
NR ay 


are eer ore ee 


>LUB Table 


H 

| 

| 

{ 

H 

{ 

| 

| ES 
I 

{ ne 
| 

| 

| 





Q 


, 3 


Delete VSE/POWER spool management 
XEChb*s. 


| 


a, ie | 
‘ 
) 
1 
! 
! 
i] 
i] 
! 
! 
| 
i] 
| 
t 
t 
Vv: 


[s] [=] [s 


To aainl ineeee 





| 
Return | 
































a SETPRT request is issued, which 


| 

BR is terminating. { 

sets up the printer wath | | 
1 


systea/hardware deraults. 


{ { MODULE | LABEL | REF NOTES | MODULE | LABEL { KEP 
1 The VSe&/POWER active flag an ASYSCOM |AT500 4 The sacro XECBTAB is used to tirst |X &cCbTAB 
SYSCOM is reset and the address of delete the internal reader XECB 
| ed Yoe/POWER partition as | and next the spool sanager XECB. I 
eleted. 
; ; | | { i Then the XECBTAB macro is used to 
| Reset the job control switch for COBMRG check if the internal reader is 
| the partition COMKSG. | active. | ! 
: : If so, the XPOST macro is used to 
| 3 The VSE/POWER LUB table is | ASAT notify the user that VSE/POWER is 
scanned, starting with the tarst terminating. 
| cogrammer logical unit, and each 
ogical unit Which is not assigned . XPOST j 
| to the disk device, 1s unassigned | A check is made if the spool X ECBTABD 
I and the PU6b ownership cleared. manager interface is active. 
. ; : ; If so, the user 1s notified that 
It the device is a 3800 pranter, a aT550 vse/Pow 


SETPRI parameter iist is built and | | 
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IPWSSAT - Cancel Subtask 
INPUT y PROCESS OUTPUT 

















| CAT | of | | 
j Cf ne | ee | | 
{ [CAA3 { | eoo >From Sainline | | 
| | | [or] ate tt ah Asynchronous Service | 3 | 
[ABNEXT } EEN eee ETE - Point to task waiting on completion of Leen en ere | {ABNEXT—4 ry | 
ey | reguest. | SS t 
- Set task to "stop" state and make see ee mrt en teers) ICCB a { 
daspatchable | | far} | 
| | Jecee >foe } | [Pcse i 
fo.t If suptask is Library access service 
| | t—+ (IPWSSLD) =: | 
{ H - Point to task waiting on completion of i H | 
| } request. { | 
| | - Set task_to “tlush® state and make | 
| | dispatchaple | 
feoe >foe | 
re ae | | 
fost If subtask 1s Timer Service (IPW$S$TI} : | 
> Clear workarea free slot. 
- Issue DOS/VS Cancel macro. | 
| | a If suptask is RJZ, SNA manager subtask 
oe | | (1eWSSSN) : | 
| f [cass 1 He ae aol ~ Point to SNA control block. SH CB 
{ | — Set "STOP" code. mewn enn ene ene —> |SNTT 
Loswcp | | - Set “STOP® request in flag byte. Pocoannancnannnnnnnnnd SFL | 
} | | - Post work ECB. 200 eee ere ne rene en 1 jS8e8 i { 
| | ~ Issue DOS/VS CLOSER macro for ACB. | | | 
coe >[06 | | 
| fro= "3 foe ] 
fos] If subtask is PNET SNA {(IPWSS$S1) : 
i uu 
| | | to Re cena 21 | | 
| ee | | 
| { fost Post VSE/POWER maintask. ; 
| | i | 
fo7l Clear work area slot. 
a | | 
| Q8] Issue DOS/VS DETACH macro. | 
to DOS /¥Seee 
| =: | 
| | ia | | 
[ nen | De ee ee eel [ eee 
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IPWSSAT - VTAM Termination Handling 
INPUT 


oR Ri 


42 


| 


CB 


[rccs | 1 wee nee 


TCTL | --------- 


: 


evenerevescestocd 


CcaT 


, {capN sf). —-~~--~~~~~~--- 1 


| 
| 


| 

>PHCB | 
PNCBTLD 
PNCavVDCB 


| 


: 


SE GR A ree | me 


VSr/POWER PLM Part 2 


tr 


c 


-—---------> 


Vem Yow 


Pr 
' 
| 
| 
' 
{ 
{ 
t 
{ 
U 


ie ew ee ee 


eee ene a > 


PROCESS 


ee DEntry ATVME 


Lee 


Prom Special Termination code (AT-1.1) 


Issue message 1Q2CI. 


eee >DEntry ATVTMPE 


From Cancel subtask (AT-1.4) 


If PNET SRA subtask : 


RJE, SNA subtask. Point to the RJE, SHA 


control block. 


- Set “STOP® code 
- Set stop request in flag byte 
- Post work £CB 


Search TCB chaine 


A. If task does not have a VTAM 
request outstanding and end of 


chain not found, loop. 
B. If end of chain, close ACB. 


C. If VTaS request outstanding, and 
B&, SNA manager 
then post the RECEIVE ANY macro 


task 1s for the RJ 


D. Else, if task is not the SHA 
manager, then set the task 
dispatchable. 


E. Loop back. 


PNET SNA subtask. Point to the PNET 


control block. 


- Post the PNET Line driver. 
Point to the VTAS control block. 
Set VTAM termination code = VTAS 
termination. 


- Set VIAM termination qualifier 
termination (X*AB*). 


- Set VTAM activity = SNA Stop. 


Close ACB of subtaske 
Post VSE/POWER maintask. 
Clear work area slot. 


Issue DOS/VS DETACH macro. 





to ReEnsers 
jie 
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OUTEUT 





7 


Sere et eee me oe eee were rn> 





Ecp. 








PACBV DCB 


age acid | 


PNCBILD 
—_—_— +} 


> 
' 
| 


A A SS ES Sr SP RE A SAAS: SS CA Se A ES AE ALN NS SE A GS SO Gale NE I SP SE AE SS Ra AD Se EM ene 


“/ 
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LPHSSAT - VTAM Termination Handl ing 





| BODULE | LABEL |} REF 


This routine is entered at the 
label ATVTH when the subtask has 
been canceled due to VTAA 
termination or invalid VIAN 
condition (codes x"4uU" and x*41* 
respectively). 


| 
| 
| 
| The entry is at ATVIMPE when the 
| eer orae subptask has been 

| 

| 

| 

| 


agect PSW= xXxXXxxXUxxxxxxxxx CC=id 


1 The following rgessage is issued | atves 
AM Termination | 





HOTES | SODULE | LABEL 





ATVT# PE | 
Reactivate any RJE, SMA tasks that [|ATVTS5 
are waiting on couplet sos by VTAS 
execution Bacros (tne bit TCVRE is 
set in the TCB). 

This causes the task to run to the 

next VTAM macro (in most cases the 

CHECK macro) which will give an 

error return code (x*20°) due to | 


-the VWIAM interface having peen 


Closed (in Pontos ing process 
step). The task wil hen enter 
ats own termination code, and 

detache 


Chart AT 
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CHART CA: IJPWSS$CA 


IPWSSCA - PALTER Processor 
Input PROCESS ourpuT 


: 


a EY TE IE NE ES TS we ME Ce OTT SS I Re SES ce LE PY pee SS Se SE 


CP work area paar { CP work area 
e . 

i | eee >Prom Comgjand Processor Rootphase 

OP ERAND 





| ORIGINAL 


OPDEC | 
| 


| OPLEN | ere erent aS== >for} lf Ist @nerand is partition ID: | 
== | : | | 
| 


A. 
OPPLAG« 


OPHEX 
OPKEYWRD 














10} Check if Ist operand is valid Queue ID: | 
CP WQARG 














me me me Ve Vinee Vine V/cm ere eee eens ene See 











CPWALTPY 


: sj—_. 

3 < pba VQUBUID ir CPWQASIN 

: ‘ : | | iF CPWQAGJN 

: > | JCPWOQAGLA 

: A- If invalid queue ad, issue error | | —_—__— 
7 ressage 18521. | ss CPWQACL 

: | CPWQCDP 

3 fo3} Verify authorization ————— 
7 i H CPWQACPY 

: A. If not authorized: iss 5 07 | CPWQACSY | 
: | | CPWQACHN 

3 | tak ai tL aS Se | 
z~----> [ou] Check positional opr ee gee pos ee Pa es [cPwQage { 
: } = bree oe ("ALL*, *abc, class or 

7 obname} 

: | 2 3rd operand (jobnuaber) CPWALTER 
id 


| 


SCP OOS ER SAE CO A RTE PL Sa CT CEP AO Sa TEE Te ET EI NT CT RT ED SAIS HID ne ED 














ee SE RL SI EE SE ST SS HO 
SE EM ee ome 

















lee > 
ea [05] checx keyword operands and set up arg. | t_ t H 
list containing altering values. ? 
- disposition pDISP 1 t { 
- priorty PR ae} SIR 2 
- rerote REMOTE) | i ( | 
- copies | COPY i S > 
- compaction CHPACT) { fe hie 
- syster id SYSID) tt > fj [CPWALTCP 
- destination DEST hil hs | — 
- user id USER -\—- ——j CPeALTTJ 
; . pe eet >E;CPWALTF1 
- curr. disposition CDISP) |! i cpwaLtap | 
- curr. priority aay __? | |CPWALTAD 
- curr. systea id CSYSID) fo tit 
- curr. destination CDEST) ; i CPWALTTN 
A- If one of above keywordsis wrongjese >[o7 I _______ Df FCPWALTTU 
or an invalid value was m—sjpr—-' 
epoca ed, issue error message 











fool Process Queve update 
} ic 
{ 


Exit, return to Command Processor eee 
Rootphase a 4 


[3 





ee TEE TE CE EE PM TS EC TN I EE i ES NS GE AS A SN GR A ge OS SR SL SS EE SR SL SG ES EA 


- 


| 


44 VSE/POWER PLM Part 2 


Licensed material - Property of I8m 


IPW$S$CA ~ PALTER Processor 
$$$ $$____—______, 
NOTES } SODULE {| LABEL {| REP 


The PALTER command has one of the PALTOOO 
following formats: 
PALTEK aeebey jobaaR es JOOnUaD eT” 
eyycrd=velte 
PALTER queue,ALL, 
keyword=value 
PALTBR queue,class, 
keyword=value 
PALTER queue, *abc, : 
_ keyword=vaiue 
PALTEK partition<,class (es) > 





NOTES | SODULE | LABEL | heF 
1 The *Verify partition id* | 











subroutine is called to check if 
the first operand is a valid 











partition « the subroutine 
returns in field *OTHPIBPT® the 
address Of the partition concerned 
or the field contains zero if not 
a walid partition. 


| 
2 The "Verify Queue id® subroutine | 
1s called to examine if the 





Coerend) =P aca ime a valid queue 
ad. Valid queue ids are 
- RDR, LST, PUN or XAT. 


where: 
queue : One of 
LST,RDR,PUNOL XAT 





jopname :A popnane known to 2A Message GAM 
VSE/POWER R5z2I cccccccc, OPERAND #@ # 

jobnuaber: A jobnumber assigned MISSING OR IWVALID 
to jobname 

ALL : Specifies that all 
jobs in queue SVCA 
are to be altered subroutine is called to check if 


the issuer of the comaand is 


class : Specifies that all 
authorized. If not, the command as 


ODS in queue 


*abc Fy 


or this class are 
to be altere 
Specifies that ail 
jops in the queue 
whose names have the 
specified characters 


rejected. An appropriate error 
meSsage has been already issued py 
the subroutine. 


If anvalid specifications have 
been entered message 


| 
.in coggon ace to be | 
altered OR_ INVALID 
(generic jobname} will be issued. 








l 
TRS5S2I cecccccc OPERAND ## MISSING 


a nn CER Cpe ST SS SR SY SNS OP StS Se EY SS SS: SD 


A a ee OE EN TE OG CS A RG SS EC RS 
ee re eer cere ete ee ee ee ee ee ET CE ES SL A SS ONS 


| 

| is issued. 

3 The Beene comnap a AB chor teas 700” 
| 

t 

| 


eS I A FE SS PE SE EE SE SS SE I SS A SS STS PE SS OE ELE SD RT TD SAS SD 


ee ee rE SU EE SEE SE Ae RS ES RY MG CI MIR ee ER A PO VEEN 


5 Several keywords with their PALT40U 

keyword : One of associated walues may be entered 

EASTESCASEAES GOT: ae ta cet 

’ 
DEST USER CDISP » SA One, oF the Fort low 1g gwessages | $SGAM 
. wil e issued: 

value < Specifies the new tI meveunu Seecr eran” VALID 

value for an 

attribute | W521 cccccccec OPERAND ## NOT 
Partition: Specifies a SPECIPIED AS KEYWORD 

VSE/POWER pak 18521 cccccccc INVALID 

controlled partition SPECIPICATION FOR KEYWORD ..... 

for which classes 

snall be. altered 
class(es): Specifies the new 

amput classes of 

the jobs which may | 

be executed in that 

partition | | 





Chart Ca 45 


IPWSSCA - Process Queue update 


‘INPUT 


ero 


a 


Lo 








CP work area | 


CPWQARG 





CPWOQOABIN 


CPWQAGJIN | 
2 : 








CPWOACL 
CPWQCDP 
CPWOACPY 
CPWQACSY 







CPWQACNN 
CPWQAJ# 





CPWALTPY 











ee 
| 





jebuarras 
{| CPWALTTN 


[cewacrro 


QRCL | 
ORNC | 
YRCR 

QRSID | 
oats SCS 
QRFJ H 
loner | 
QRXS 





Foote scereres enced 


Licensed 


PROCESS 





1 
' 
' 
) 
t 
v' 





| 
| 
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[os] 


[7 


Caller 


obtain storage to nold copy of queue 
record being read in. 


Set up pointer to class list and nuaber 
of entries to be processed. 


Process each entry in the class table 


eco > 
[-=°) 
B. Reserve disk sganagement block. 


c.f{Convert reiative disk address to 
absolute address 


D. Read in first-in-set queue record. 


ae [aaarec’ queue record | 
F.jUpdate Queue set 
CA-1.1.14 


rc. j 
G. Address next gueve set in class jeee >| 03D] 
chain, if more exists. ala 


A. 1f class chain is empty. 


H. Release disk sanagerent block (DMB). 


If wore entries are to be processed [ove [03 | 


| [o>] Release storage used for queue record 


rm ; 
Sata | assue coapletion sessage 


Return to Callerees 
vist 
-/ 

v 


Material - Property ot IBM 


OUTPUT 


at A A AAAS SEE SY SUS PERS SE SPE A e-voting ARS > SON SG G S S-SESAGI— eePS-SSGE® e SRS nep OPG 
Re ya EE ET Rt A I SNES CEES SESS SIE ET CS SE SEP SET Se SS RSS I A SS SN SMS SESS SOAS GE PHS SE SEITE ES SES 
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IPWSSCA - Process Queue update 
re ey a a Le ge ee ee ee ee gLe ware nme ee ee ae: 








NOTES 1 MODULS | LABEL | REF NOTES $ SODSLE } LABEL { REP 
Tne reader , list , punch and/or | 36 Queue sets be}ong ing to a elass 
xmit gueve 1s scanned and eac are chained via the *QCcQw® 
queue set which is eligible is field. This field contains tae ry 
extracted and updated. absolute disk address ef the i 
7 next queue set in chain. Por 
1 Por the queue record area. ; PALTS500 [SRSW the Last ‘queue set, this field 
workspace will be provided. contains Binary zeros.” 
33 Tne disk management bluck is SRSR 3H The disk managereat block is SKLE 
reserved for the duration of released. 
the queue scanning. ; 
6 If any queve set is altered $GAAK 
a@essage 
the relative disk address tRSBI OK for the central 
. ; ; Operator only 
3D The first in set queue record SkDQ 


or not 
WRS8I NOTHING TO ALTER 


as read an the queue record 
will pe issued. 


area just acquired. 
3E The queue record just read in 


to be updated. 
- jopname and number 
class . 
RJE user id 

ocai or remote destination 
target node name 

curr. disposition 

CUIL. peionae 


| 3c Subroutine R#&LTOABS coaverts 
t 

| 

| curr. 


is examined if at is eligible 


est ination. 


. 3F A queue set can be altered if 
it°is not_being processed 
unless ent? the number of 
copies as to 
this 1s not true sesSage __. 

| IWR8sl ccecccece JOB 94935333 
nonnn CANSOT BE ALTE 

| will be issued. ; 

When copy and/or priority 

| attributes may have to be 
altered the gqileue set is 

| deleted from queve Chain. After 

| doing the appropriate euelire 
the Ist-in-set queue record is 
written back. : 

In case of changing class 
and/or prick ty attributes tne 
ueue set 1S adaed back to the 
lass chain according to its 
priority. 





eee nargeree ste Se GL GU a Oe EN TE EEE LE EEE CT I YS EB SN SS AONE em NE 


' 
7 
: 
S| 
| 


A ee le I ES SE GE ES ES A CR A EO CAE ST: ee SE OS SAN SR, 


Ce renee nn ee ee Gy Se ES Sr A SE ES ET SRT te EN 


be cnanged. if | 
| 
| 


er rrr ce ee perenne ce rc SE tN 


Chact Ca. 4] 
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IPWS$CA ~ Alter Queue set 








INPUT PROCESS OOPPUT 
CP work area i pena cia ay O11} If queue set aust not be altered: fore’ >fo7 | | TCb | 
|CP#ALTER fast a] > jLauc 4 
----->} 02] If Queue set is being processed: TCcCQV 


teem 





CPWALTDP 













iter queue record 


| CPWALTPY z | 
—_——_-——_ : | A. Check 3f£ only number of copies are -record < 
| CPWALTCL | to be Changed - , ys 
: - If not, inform operator that | | forpr | 
| CEMA DERE AL : queue set can not pe altered. —_——_—_—_——_- 
enn 3 RDP 
bocce | : B. Locate approriate task control block {| 2 
||CPwaLTTa : — i la 
__ : Cc. Alter internal copy count, unless it = 
CPWALTF1 : is a SNA outbound task with PDIR- ji- 
bePaA day : De Re-write queue record 1 care 
——_——__— 3 e 
CPWALTTN . [ose > {07 | 
CPWALTTU ; G 
: {{03] Delete Queue set from class chain, if | 
- applicable 
| | 
i 








IRI RIS RISO Ieee Tee ISS MIN elerei ere ST aie tere) 
' 
} 
t 
' 
' 
Vv 


A 
[ | - disposition 
- priority 
- class 
>Q-record --------=-. - cop : 
- remote id 
QRPY - compaction table nage 
~ systea id 
QRDP - targed node id 
- targed used id. 
QRCL 
flake | | Put updated queue record back in class 
Chain 
QRCR 
QRSID Indicate that at least one queue set was 
altered. a 
QRTJ 
nF 
QRCP 
_ Exit, return to Mainlineeces 
[QRxs } SST Oe Oe sr ern eae co as 
e 
ee 


ee Oe SS I TE CTT I SI OEE SS TNT CO ES NS SN SM ET Se G-A cGR SCRE SNS 































NOTES } MODULE {| LABEL | REF ROTES { MODULE | LABEL | KEP { 
1 If the result of the PALTER PAQR100 \ 2D . ity 
process would be that the r 3 when number of copies, class, $uQ 
attributes of the queue set, just { priority and or destination are { { | 
being examined, remain as they subject of the PALTER command, the 
were, nothing will be done. quetle set is removed fora the 
Class chain. 
2 A queue set can pe altered if it SGA ; 
is hot being processed uniess only 5 When the queue set was daleted SAaQS 
the number of copies is to be from the Class chain prior it is 
Changed. if this is aot true now added back to the class chain 
message Seta a8 according to its priority. { | 
W888i ceccccece JOB jjJJIJIJJ anona 
CANNOT BE ALTERED 5 In the other case, the ete suTy 
will be issued. farst-in-set gueue record is just 
written back. ! | 
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PALTER - Partition classes 


INPUT 


CP work area 





OPERAND 


OPLEN 
OPS ITCH 
ORIGINAL 
OPDEC 
OPPLAGZ 
OPHEX 


OPKEYWRD 


{——_—_—_—__—_—_ 
| OPKEYOP | 


CPWTARSG 


[te | 


fro Oe ee er ee se ee oo te es oe ee ceed 


Register 15 


rr ee rr er ES SS LN NS YEN Ce 


WOTES 





of IBM 


PROCESS OUT PUT 


| CP work area { 


t 
: 


Mainline 


Verify authorization 


A. If not authorized: 


CPHWTARG 


[cpwrats | 


Set up argument list for TCBSCAN 
subroutine : 
partition id 





Locate TCB of execution reader task 


[a | 





<‘/ eccces > TCBSCAN 
—/ jl 
> A. If no TCB found assue sessage [ee '3 06 t 
1R51I ft 





>foa} Provide TCB of execution reader task 
ata perce (2) to class table Located 
in 


“ 


A. Build class pointer (s) 





——_J . 
< @eee0ese > CLASS 
ca / Se ee ee ee 


et 


| 
| 
= 


et 


+f 


Issue *OK* message when valid class 
specifcation 


Exit, return to Mainline 


| 
| 
| 
| 
| 
| 
| 





Tne *Verify command author izat ion* 
subroutine is calied to check .f 
the issuer of the coamand is 
authorized. If not, the command is 
rejected. An appropriate error 
meSsage has been already assued py 
the subroutine. 


Task identifier is *£ xx* where xx 
1s partition id 


| 


rr 


BODULE }| LABEL 


| REF 
SVCA 


{ SODULE {| LABEL 


NOTES 
Following message as issued: 
1k5 11 coceccce OPEBAND st 

DESIGNATES NON-EXISTING TASK 


In case of inwalid class 
specification subroutine CLASS has 
already issued error messages, so 
. praben to processor exit is 
aken. 


5 PaAPC210 
5 Pollowing message will be issued | 
to ceatral operator: 


| 
| 1R88I OK | | 


Chart Ca ay 
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CHART CACs LPWSSCAC 


This page was Lert Diank intentionally. 


Chart Cac 31 


IPWSCAC - PACT Processing 
Input 


| | 


CP Workarea i 
| 
| 


Operand 





On tetom 





NCBTIC 


(rood Oe be tee ones ete Cee es oe Os OF oe Be Oe et 


NCBOTTB Peres. 
| NCBEST1 [een 


Tl NCBREXT 


ts 
| 
iE 
| 
| 
| 








no NCB as found, indicating 
that no Connect 102 is 
established or even that the 
node is unknown, aessage 
1RB1I NO CONNECTION 
ESTABLISHED TO NODE nnannonnn 








ee 


Licensed Material 


PROCESS 











i 


--~--------> 


fa 





Command processor Mainlane 


Check if VSE/POWER NETWORKING is 
supported, if not, issue error 
message. 


A. Verify Command Authorization. 
Check operands: 


A. farst operand aust pe *PNET® 

(node 1d) 

C- validate 3rd operand (task id) 

D. Validate 4th operand. | 


B. Validate 2nd operand 


If any of the operands is invalid orjeee "> 
naissiig, the appropriate error /\ ca 
message is issued. 





Check if task can be activated. 
- issue error message if task cannot be | 
activated. 

- agnore command if task is not drained 





Reset drained state. 


1f transmitter task, request task 
creation. 


A. Dispatch NETWORK lane driver. 


Only seven transmitters of any 
sort can be activated 
conrurrently. The total number of 
transreitters is limited to eigth, 
so certain job transaitters 
exclude correspond ing | 


LNCB Bxit, retura to Command processor eee 
Rootphase . 
! } yet 
: ree -/ 
v 
NOTES | MODULE | LABEL |! REF NOTES 
1 A first _a check is made if peAcnge 2D rhe 4th Fd grag og Specat ics. What 
VSE/POWER networking is supported. the task be activated is 
} af anoks following error message is supposed to do, either to 
ed: rocess jobs or output (LST or 
iRa31 VSE/POWER NETWORKING NOT Be 
SUPPORTED yalad specification is *OUT®* or 
A 2nd check verifies the 
Authorization of the issuer. it? Boas of auete. 
Spee st tce tions, oage 
2A If the first operand is not 1R52ZI  OPERAND Pr} Oats ING OR 
| *PNET® following error aessage INVALID 
is assu as issued. 
aeeet OPERAND ## MISSING OR 
INVALID 3 The coagand rootphase has already 
verified that VS. OWER is not anh 
2B The second operand specifies shutdown period. Now the 
| the node id for the task to be termination code in the NCB is 
activated. The node id must be examined if the connection to the 
| alphameric, first character specified node is in stop state. 
alphabetic and we to a maxe so, following Message will be 
length of eigth bytes. It the issued: 
opens is errornous, message WRC3I cecccccce COMMAND REJECTED, 
Cera OPBRAND ## MISSING O nonoannnan iN SHUTDOWN PERIOD. 
1s escueas 
task going to be activated is not 
{ 28 The NCB chain is scanned to in drained state. 
locate the appyopciate NCB. If 


is issued. 


The 3rd operand is mandator 
and specifies the task id o 


the tack to be activated. Valid 
reer hers are °TR1 ee 
or - 


forte transaitter tasks 
for reveiver tasks. 
24 no valid task id 


iRSor “ope messa ag° 
wa OPERAND ## MISSING OR 


as re 


1s 
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soaepat 
OU 
excludes T - In that case 
following Error Message will be 
Eek ieee 


RC2E ccecccce TRANSSITTER CANHOT 
Be STARTED. 


4 The drained flag is turned off 1n 
the GEPRLOPEIAES task table 
contained in the NCB. 


t 

| 

| The command is ignored when the 
t 

tea pes acters" ion af: T 






The task creation flag is turned: 


on in the ap Per ope sate NCB and the 
Lane Driver ECB is posted. 


ee ee ge a rr a Se SO T-SPACE PT SN ee 


et ee re tn cS CR SO ET AY SD A SR TS 























} AODULE | 








- Property of IBM 


OUTPUT 


| 
| 


a erm 


CP Workarea 


ule 
CPWRVATL | 





aco 


Storage 
Descr aptor 








wCBEST1 


Line Driver 


$ 
| 
> hi NCBACT1 
I 


TCES 


7g 


LABEL 


PACTH6O 


| 
: 
: 
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CHART CB; 


LPwS$CB 


CB 33 


IPWS$$CB - PBRDCST - Processor 


INPUT 
Disk | [3 

BU RGGPMORED | ylint scores eee SFr on 
iy 


Oo ce ee ve sets ersesnece 


TETRIS MISIN IES ISIS SSIS ICRP EIT eee erererereireyy | 
. we 


t 


J 
{ 
Presse wees cree esas eceters 





PEEOT Gees Cone es Re eres er eters 


| 

| 

| | 

Pe 
| 


[ov] 





ee cae EE SY SE SE i ES EE SN SO A A ye SO SPE SS har PDS PP SE Sy SDAP See rs Pe Ss oorne wc 
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PROCESS 






Command Processor Rootphase 


Initial housekeeping 
eekyoe skeleton Nodal Message Record 


Validate local message (2 paras only) 





exceeded then issue varming asg 
RBI. 


C. Move rgessage text 


A. If 2nd operand of command is notjeee 
§t tt / | 
B. If 1st operand is not "ALLUSERS*{ese” 
or if not a valid reaote id, 7 
then assue msg 148521 
C. else Set appropriate flags. [ece” 
—,/ 
Validate nodal message (3 paraseters )} 
A. If 1st operand of comgand 1s not eo > 
®** or a valid node-3d, then / 
issue asg 1RSzI . | 
B. else if 2nd operand of command eee >f09 | | 
is not *ALLUSERS® or a valid | / 
renote specification or a valid | 
user-id, then issue asg 1R52zI1. 
C. else Set appropriate flags. 
Validate message text 
A- If 2nd or 3rd operand does not [eee "3f09 |] 
contain text, issue gasg 1R8521I , 
B. Validate messaye text for length, 
truncate to ligit. If limit is 


If *ALLUSER * type message for local 
systea: 


A. Put message in ALLUSBR sessage feoe > 
queue 7 9 —,/ 





Give message to gessage distributor and 
check return codes. 


A- If not a normal return, ... cee >[o9 | 
error Or warn ily. / 


Return to command processor rootphase 


ar 


u 
/ 


v 


1 


Issue error or warning sessages 


eee el 


ouTpur 


Nodal 
Message 
Record Qi) 8B) 


tan | 





RA EY A Ee a ES SEN CR EE FIP SES Aor IR RO RAMEE er I RC a SNS HIE AOI HN OE TEST SOE ATE TY LUPE TE MIEN A 


OS EL ES AS SO 
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IPWS$$CB ~ PBRDCST - Processor 
NOTES { BSODULE | LABEL { REF 











NOTES 





§ SODULE | LABEL | HEF 











1 The Command procersor roctphase PBCST100 5 If it is a local rnessage the znd PBCST400 
registers are stored in the save erand has to be *text®, otherwise 
arcea,reservyed for this purpose. the 3rd operand has to be "text*. 
Addressability to various control if not issue error message 
bliocks is set up. TRS Zl acce 
. coepaee the length of the text 
2 The skeleton NAR Record is set to with the max.length and if exceeds 
defaults: . truncate message and issue 
NARTO and NMRFA contain own Node warning: 
name and SYSID. ; 1B81I1 Command code MESSAGE TEXT 
Pana eens the maximpurm message WILL BE TRUNCATED. : 
en ° 
- . 6 The remote message service 15 SHAS 
3 The message text has to be in PBCST200 called to put thé ALLUSER type 
#ingle udtes, 1.@. byte OPSUQUO 
in OPFLAG2 is on. ecen 
& 


If text is available,the first 

operand can only be *ALLUSERS® , 

a one or three digit numeric IS PULL is issued. 

emote-1d, a rerote id in *Rann® 

ormat or ***, in which case the 

neasage is destined for local 
operator. 

_ Remote-id = 0 rgeans: Central 


If it is an unnoremal return the 
following messages will be assued: 


1R65I command code RJE NOT 
SUPPORTED 


1RA3I command code VSE/POWER 
NETWORKING NOT SUPPORTED 


1R92I command code ALLUSERS QUEUE 
IS FULL 


1R93I command code REMOTE 
CURRENTLY NOT SIGNED O8 


aRGor coamand code INVALID RESOTE 


operator. , 


Else issue message: _ 
IR5S2I command e OPERAND #@# 
MISSING OR INVALID. 


| 
If it is an *ALLUSERS*-type 
| 


qeosaser tus max-length 1S set to 


4 Tne node-id has to be * ,i.e local P3CST300 
node or 1-8 alphameric. 


a 


The user-id can be *ALLUSERS*® or 
correct resote-id as described 
above,or 1-8 alphameric user-id 

from another node-id).- ; 

£ not issue error gessage 1R52I 


LE command code NO VikTOAL 
STORAGE AVAILABLE 


| 
; | 
o| 
| 
— 

pacsts0u[ Sgas 
: 
- 
| 


18B3I comaand code WO CONNECTION 
ESTABLISHED TO NODE nonnnannn 


9 All the aeoegee described above 


PBCST700 {$gan 
will be assue 





message in the queue. 
If an error condition occurred, 
message 
1R92I° command code ALLUSERS QUBUZ 
| 
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CHART CC:  iPwS3$CC 


This page was ieft Diank lntentionally. 
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IPwS$3CC —- PCANCEL Processor 


INPUT 





58 


CP work area 


| Spanked | 








| 


CPWTCBeT i 


eee | 


ae ee ee em. 


OPSWITCH 
oeire 
OPDEC 
loaieiNaAL 


or: 





0000 0000 00 08 cr cem 


Bal | 

POO 06 98 00 05 0000 00 00 00 08 OF OF one 
! 
t 


| POTS RIRINI ET SISI RISES Y | 


cB 
CPPW ------ 
CPPN is wm 


bi eee recom 


ee wwe 


PS Workarea la 


PSWDPNA 


200 Oe Os 0000 00 00 oe or OF Ot O9 00 Oh Oe ee Ht CEs ee ee 





QRDS £ authorization is not 
TT = sufficient 
ea ro i b-~----> Be. Locate appropriate TCB 
QRNO | . 
lorew CC |S lutetetnabeteane? Cc. If no TCB is found, infors eco >fou | 
QRPw a originator via message $8 O8x / 
| 
0 ee Se D. Otnerwise set flush termination code ee 
in TCB 


| 


PROCESS 
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IL 


[ore Fron Command Processor &o0otphase 


a~--~-->|01f If first operand is *STATUS®: 


A. Set We Parameter list for 


routin 


aren | B. Locate TCB of appropriate 


TCK scan 


task 


message 1851 


-----3 [02] If 1st operand 1s jobnare: 


A. Make authorization check: 


E. If execution task: 


eee | c. If not Foupts infors originator via == 


D. Rca cancel code in print status task 


eel 


Ey Ca 


- dispatch all execution writer 


tasks 


tasks awaiting operator's 


reactivation 


J 


fost If no valid first operand, issue aessage 
tRS21 


fos} Return to Commjand Processor Rootphase 


VSE/POWER PLM Part 2 


Exiteee 
I 


ae. 





OUTPUT 


Se ee 





CP work area 








ar STE LE ES ES SER GER STE P-L A -  -SE  NM Gets Ae GE SS A PS Sa SN eS SS GNA ee EY SE NE EET NE RE 
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IPWS$CC —- PCANCEL Processor 











a ee a ee eM ee tea ae nat em mien ee eeew ee ee ne et Ree an ee ee a ae eS ae ee et ea OR en | ee Lee ear em ee ee ae ee ee 
NOTES } MODULE | LASBL | REP NOTES | BODULE | LABSL { REF 
The PCANCEL command has one of the PCHLOO 2c fol loy sng message will be SGA 
Fol loving foraats: ued = 
PCANCEL <STATUS> or “qn aer NOTHING TO CANCEL 
PCANCEL jobname<, jobnumber> 
2E Ail ool entries inp the 
where: partition control block 
jobname : A jobnaae known associated with the execution 
to VSE/POWER reader task are examined if a 
jobnumber : A jobnuaber execution writer task is 
asSociated with waiting for re-activation by 
the jobname the operator. If So, stop code 
*s* is set in the execution t 
1A Task identifier for eat PCNL10 writer task {fCB and the task is 
status TCB is "P PS* set dispatchable. 
1B The *TCS scan* routine a 3 Following aessage will be issued: SGAN 


called to locate the T 
meer and, the arguments Beas by 
the caller. 


R52I cecccccc OPERAND ## MISSING 
OR INVALID 


If the command arrived over the 

network (originated by another 

node), the from node Rhame in 

the command control plock as 

checked against the one m the 

PS workarea- If the node names 

do not match, which means a 

print status TCB was located 

eer ang a different PDISPLAY, | 
t 


the TCB scan is continued. 
tc Following message will be 
issu 


ed: 
7R5 11 command coer NO STATGS 
REPORT IN PROGRES 


2B The TCB chain is scanned to 
locate either execution reader 
or paysical reader/list or 
punch task. If such a task TCB 
if found the ueus record 
anchored in the TCB of the 
bel oS eae ee: 1s examined 
ether it is the queue entry 
(Jobnane) A de 4 oy to be 
canceled e PCANCBL command 
was Se iginated. by a remote 
Operator, the job supposed to 
be canceled auSt also pe 
submitted by hia. If the 
command is received from 
another node, that node is only 
allowed to cancel jobs (queue 
entries) which are origanated 
from that node. In case a 
remote operator or user of 
another node, issued the 
PCANCEL command, the 
originating user id aust also 
match. 


er a aap ee ee Se ee ee SE ee ee SS OS ce 
~~ 
too] 


Ee EE ES a A ER I CE ST SO 


ee Sa NEE Gre ESN ENS? Su SIPC > TOC PO SOY SPE SO A GS A SS SP SS SC DS YA er Sate 


RS eS ER RP SA EE Ey EOE RT fn SET REPL RENNER An nee SER 
aa ene SES Ge Se Se SE EET RS ame ee AC Pee SCA NR EA ES SE TS 
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. 


OS NS SN ca ND cnr enpn LOSE SILA ee DON AE CS SSS SY SSS SE re SE SS N-SEESS e RY Sp SN pS: SE tue GAS GSES? CUSED SAPD SSS - 
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IPWS$CD - PDISPLAY Processor 


Input 


PROCESS 


jeee >Prom Cormand Processor Rootphase 
CP workarea iu, / 


OPERAND j | one 
ee } 
ORIGINAL 


— 





<= fot} Determine what type of PDISPLAY command 
ij 3S to be processe 


5 


A. If 4st operand *MSSG*: 
$$, 4. 








Process Queve information Joos >f03 
[ailay cp-1 ay 


oO | Process ALLUSER type RJE eoe >}03 
| | opswirca | lpgosages 1.1 —/ 
| OPPLAG z {| ee. ei us 
| OPHEX i B. If tst operand °Qrs a 














~----> [02] Process Queue Grsplay 





CAT Spee etic Ce If tst operand *T*: 
NRPC 2 [errr nnn : : | [prsplay current time and date jeee > 03 | 
—_——_——_——| | 7 : Display number of pages fixed —/1 
NRTC 2 2 [| Steen ee oy : | and number of task currently 
eit :fa}--> active 
TATM ff tte 4 7 | Display own system 1d and node | 
| 3 H 1d, if applicable 
DMB 2 : | be eee | 
ae | | >fa) $0 pocin----> D. If Ist operand "M*: 
ARNN ! zo: | Validate authorization 
t k=-p 3 =---—> Scan TCB chain and locate task 
—->|A ss waiting for operator response 
TCB | S.. is | Display task,id and message why 
{ 2 3 task 1S suspénded . 
jEcee wo errorennn- 7 If no task is found, infora 
a t 3; (8 operator. 
Farr | | --~------- s: | 
et : j B. If tst operand *A*: | 
: | Dasplay active tasks coo” [os 
3 I of | 
: 1 CD-1.3 
7 | 
: | > 
a | 
: | 


{O03} Return to Command Processor Rootphase 


Exiteee 
| 


vy’ 


ee EE eR SEN NT Ge: CE ES NY eS 
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rid 


[miSSLEM 
> 


CHART CD;  IPWSSCD 


OUPPUT 


CP workarea 


Message area 


! 


ES SR AE SR ST SS AI SRE SS ST A Gt AE A SE SE Sa GPS SS SE SS GS FS A NS 


} MESSAGE 


oa oe 


a Co Ee SST eh Ge EY 


re SRA ee mg ORT FLL A SPORE EN 
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IPwWS3SCD - PDISPLAY Processor 


NOTES | MODULE | LABEL {| REF NOTES 


{ SODTLE | LABEL | 














! 
The PDISPLAY command nas the | | 1 Depend ng on the first operand the PDSPL100 
following format either: determination is made, vether the 
PDISPLAY ' : tI gucue status, current time, active } 1 
queue,<jobnamse><, jobnumber> ask(s), task(s) waiting for 
| oprePis Pshaee eee operator response, end 26 . | { 
veue aessages, a user 
< kayvord<value> wessages, network def init aon tavle ! 
| ppiseLat qneuer gene or Fie dob ea or job status is to De { 
ueue, or isplayed. 
PDISPLAY queue RJE<, rem id> or | ¥ | | 
PDISPLAY queue,LOCAL or | 18 The nurgber of free queue : { 
| pul aerey gugue steve or i Records ane a ae] Space in H 
ueue,class or e Accoun ile, i 
| EDESeEeT int PRED, node ad | | t applicable, are displayed. | 
astaddr> or 
PDISBLAY HOLD" or | | 1c Follow ing messages will be oGaM 
£ Or sued > 
PDISPLAY RJE<,remid> or \{ inser TISB IS xxsxxrxx:, DATE | 
| BBLSBEAY sasat oe | RABE" SRSBS ence, ax | 
abc or * x 
POISPLAY MSG or CURRENT TASKS 
| PDISPLAY A or | | and optionally: | 
ats “ or Rael SYSID=x,NODEID=nnnannnaa | 
OL 
PDISPLAY 1D Fach TCB in the task selection SoA \ 
PDISPLAY PNET<,nodeid> or last is examined if it ais 
PDISPLAY PNET,LINKS or { } | Waiting for operator response. | ! 
| PDISPLAY PNET,ALL<,cuu> i If so, a eereer” containing } 
| i | it the task id and {ne device 
where 1s: if eoceeee sopeoues by the eetee 
ueue : Specifies a = es 0 e@ message which 
‘ ier, PRT, PUN, RDR has been issued just Before the 
or XaTf queue task entered the wait state, is | | 
jobnagse : A jopnagze known | peoperee and displayed. 
to VSE/POWER i H { i} £ no task is waiting for | } { 
jobnuaber: A jobnurber operator reactivation { 
eseagned to | | iT fol tow Ang message will be | | 
opname issued: 
keyword : ches ed Le al { pee ar NO MESSAGE i 
3? or 
value :. specifies current 
vaiue of the | 1E A last of all active reader and | i 
attrioute | writer tasks, execution tasks { { 
rermid : A remote identafier and RJE tasks together with the { 
| abe : Specifies tnat all { hame, number, and class of the | 
jobs in the yueue job fnat is currently being 
Whose names have the processed is displayed. 
H specified characters 
anh common are to be 
displayed 
(generic jobname} 
class : Specifies that ali 
ops in the queue 
or this claSs are 
to pe displayed 
node-id : specifies that ail 
| ueve entries t 
estined for that 
node are to be 
; displayed. | 
listaddr : Specifies a printer 
address in the form 1 
; cuu or x®cuu® 
| nodeid : A specific Node Name 
or if omitted i 
t Own entry from NDT t j 
! cuu : phen ss ies a printer iy 
if address { 
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Process ALLUSER type RJE messages 
INPUT PROCESS OUTPUT 


| | | - 
ecoe >From Mainline 
CAT | 4 


[carn } Pe eee ee reer onm >for} If RJZ is not supported, issue error 


message tR65I. 





CP workarea 








p77 777 >{02] Get ficst/nexrt aessaye froma *ALLUSER* 


| 
| | PE We ee Ree ee = anes pessage queue. ‘“ i 

e >704 } 
sa 


Hessage area. 
SESSLEW 

A. If no more message 1S queued: [e° ————_——— 
MESSAGE ; 


B. Bove *ALLUSER® message to sessage 





output area 
Display message [ese 


nothing to display @essage. 


fost} 
fou} if no ALLUSER message is found, issue 


“ 


Exit, return to Mainlineees 
e 
=] 








i NOTES { SODULE {| LABEL j REF NOTES i ABODU LE {| LABBL | &sF 
1 pEDAEASS 4 Fol low ing nossege will pe issued: | .|35Ga8 
2 Remote message service 1S invoked SRaAS ik46I ececect mOTHISG TO . 

to return the address of the first | DISPLAY | 
message in register 1. 








| | 
Register 1 contains zeroes on 1st | 
entry of remote message service. 
On exit register 1 points to the 
next message in mesSage gueue to 
be displayed t 
ee | 
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Process Queve info display 
INPUT PROCESS 


[Eetbrcon Mainline 











| foa} Check authorization : 
| If not authorized: eo Cale | 
| Das i 4 CP workarea 
SSF1 : wee nnn nn wn penn > f 02 Display number of free queve records. ~_>| Message area 
H Se a es g 
[Nzos ‘} ee wera {| MESSLEB iI 
- | r-----> 103) If AccoBRE ARS is supported: ee a ee | l escage \ 
caT $ { lay the poecentage of the Account | j ; ———_____—_1 | 
lease I : fale t at is fu H —— Se 
Nenana | : Otherwise issue aessage 1R49I 
&>ACB : fou} | 
3 O4 
| ACoT 1 Sea SeecessssS= : u— 
ACcAC [ecerare ees er : Exit, return to Mainlinee | 
ACAC | waewneeneen a J pet 
Vv 








NOTES { MODULE | LABEL 


1 The command authorazation 
subroutine is called to check af 
the issuer uf the PDISPLAY comaand 
is:authorized or not. If not, the 








1 command is rejected. The 
subroutine has alreaay put out aa 
error message, therefore an 
immediate branch 1s made to the 
| Processor exit. | 
H 2 <I€ shared spool ing, the master } | 
record is re-freshed to get the 
most accurate values. This is done 
by reserving and releasing the Das 
again. 


aaa svVCA 





NOTES | BODULE LABEL {| MEF 
Tne nuaber of free records in {$8LB 
queue fileis obtained and 
converted into printable format | 
Pollowing message is issued: {seas 
W49I FREE RECORDS QPILE xxxxx 
*ACNC® in the ACB gives the | scan 


pay iaue capacity of the account 


£ 

TACAC® gives ene space available 
2m the account file . 

Following sess. sage is issued: 
R49I ACCOUNT FILE xxx% FULL. 


ollo pdr! message will be issued: 


1 
PF 
d adil NO ACCOUNTING 


REE Sawer ND regen PROTEST epee i ee OT OE 
ee ee ree eneeeameree | om 


oe ee er ee 
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Process dasplay of active tasks 
INPOT PROCESS OUTPUT 


J 
bo 
ee OP a fainline 


im 
2 











} i 
| } | 
| 01} Verify command authorization 
{ ’ r—- | 
} If not authorized: eee 5106 | } 
4 
CaT CP workarea } 
[rata } aan bac If TCB is not eLagible for display: fore” je Message area i 
| _——— MESSLEN 
— t ae Prepare and display sessage *IR461* zee ——''--———! MESSAGE 
| TCTN | | pas | 
TCCU 2 
3 3 tt more TCB*®s in task selection coo | Oz 
TCLY Seer aaa foo} ¥ [es a | 
TCFP : : 
3 : 05 Dae lay ®*no task active* message, when 
Test | : 3 fos} » CB was found. ome | 
TCDB | wee eene-- t--—-—-3 
TCQV H : | | 
TCSP : Exit, return to Mainlineecee 
i e 
: a | 
LUCS Sea oeseeas -,/ 
{nou } | : 
| >ORDS Eeceeees 5 
| QENS | 





Ne 





' NOTES } MODULE | LABEL j REP | HOTES } SODULE {| LABEL REP | 
1 The "Command authorization® SVCA | 3 Following infromation extracted 
subroutine is called to check if froa the task control block (TCB) 
| the issuer of the coarand is are assplareds 
authorized. If not, the routine - task id ; 
has already issued an appropriate - device address being used__ 
error message and the command is ~ tape address if tape spooling 
ignored . - class 
; - # of output buffers used 
2 Each (Cb in turn is examined if it i! obnare cone number 
is one of the foliowing tasks: - cla ; Scag 
- execution tasks - THACTIVE* if task is waiting 
payeicat reader/list/puncn for work ; 
tas - logical unit name (RJE,SHA 
- RJE reader/writer tasks only) 
~_ RJE message tasks 
If so, the task is eligible for Follow sag. GaOsSAge yale be issued: 
display. | R481 ADER OR 
1 wat TRE TASK CCGRRENTLY” ACTIVE 
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IPRSSCD - PDISPLAY PNET Processoc 
INPUT 


] 


aan 
a 
aQ| > 
ae tac) 
~~ 
=z 


poeeevoce 





ORIGINAL 












£ 
| petite ad @ : 1 | B. If 2nd operand is "LINKS* > —} CPWDPPTR 
| OPSAITCH | : - indicate in arg. List —,/ = § -_ 
ee : | t= ICP wPPLG1 
OPFLAG Zz : | >. If 2nd operand is *ALL® ! ———_______ 
Gpaex $ | - andicate in arg. list. H CPwNODID 
pron in '  D. If 2nd operand is "node 1d ~~} | | 
OPDEC : : ) - check syntax. | E | | 
$ 3 - check af node id is defined 
i a : : - save name in arg. list | j —--! 
: : H E. If invalid, issue rgessage 18521 foo’ > foe | 1 146. 1—_ 
reer a S : /\-— >| (CPWaScuu 
header 3 | ; | | CPWASLUM 
ey aaa t----- >fo3] Cneck 3rd operand (printer device) | 
entry us 
entry 2 | { fassiga pranter device 1 eee 
: re Pa pe 
‘—ataneniaheesincia : > 
: silo} 
naa Lie Build TCB for Print Status task knee Al > 
entry n | titi 
eS | ———' 7 
{oo} Attach new task Gare a p> 


ee Ae eR ea es NE RN SS ER A SS 
pm 
z= 
oS 
8 





NOTES 





| 1 Sessage 
TRA3I” cccccccc VSE/POWER | 
NETWORKING NOT SUPPORTZD is 
issued. 


< The Paeld CPWDID contains P,wich 
indacates the PNET Command was 
issued. 


The network definition tabie as 
scanned to locate the entry for 
the specified node. If not 
found message 

JRAGI ccccécce nodename 
INVALID is issued. 


If none of above has been 


specified, Sezeage 
WR52I  ceccccce OPERAND ## MISSING 
OR INVALID is issued. 


| 3 The 3rd operand specifies the 

rinter device address on which 
he print status display should be 

cinted out. ; : 

he *AsSiyn* sSuproutine is called 
to check if the device is defined 
in tme PUB, the device is 
operational, not_used and a valid 
printer device. If so, a free LUB 
is assigned to the specified 
printer device, unless the 
initiator/terminator task has 


originated the command, in which 


case SYSLST is used as LUS. | | 





PROCESS OUTPUT 


supported, issue error message a ies aa 
A- Set up argument list | 


Check 2nd operand ; | | 


.| 
dae jo4 | 
04 


CPWDID 
CPwrtorbd 
CPwDLU 





1f omitted, 


indicate dasplay of 
local node 





































A. Clear ECB address 


es ot Sd a see ee 


io pe 


| *\/ 


es 
Exit, return to Mainlineeee 
a eS 
s 












{ MODULE | LABEL 


} REP 

SGAA 3 When an error is detected by the 
*"Assign* routine, ah message 1S 
already put out by at. 


ed 


4 The dummy TCB area of the CP vork 
area 1S used to set up the TCB for 
the new task. Pollowing values are 
initialized: 

- task id *p PS*) 
device address 

Entry point address 

remote ident if ication 


| 
display argurment list. 


SGAM 


2 
' 





Chart Cv 


| CP workarea 


e 
sts. { 
Baa tase Mainline | Nessage area | 
4 ' . eerie [aussien 
a for] If VSE/POWER Networking is not eee >{06 — 


[MESSAGE | 





a SS a ae. PR SO A SS RE RT NS 


See eee | 


NOTES } SODULE } LABEL j REP | 
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Process Queue display 
INPUT PROCESS OUTPUT 


ob 


coe From Mainline 


CP workarea 


(Print Status g25p say) 
~- assume PDISPLAY A 


CP workarea 





Clear arguaent list, used by IPWSSPS | ar 
( 
> 


1 
{ 
| 
' 
' 
rere \/carenrennen ae 

o 
w 

Ne 

































CPWDTOLID 
Verify authorization ee 
: CPWDCDP 
A. Check 2nd operand (cuu), if ————— 
specified ; CPWDCPY 
Crpwpcsy 


< ee ae ee em, 
page printer device : 


If tst operand Queue ad: 


—4 
A.|Process queue display eco >409 | 
—/ 
CD-1.5-1 


07} Issue error smessage [ss f } 


14 


SER CTT TT OEE GME TECTIA GEIS I ERE GE OPE RT ee TSE RI EO PS ST SI TNE I CE PF EER: TI LNT cae ESN CAT Gin Ca SPER PRAT ER AE SIU CET 


t 
cc 
OPERAND eee aa 1g tat operand as generac jobnare eco 2108 | 
{OPLEN | : : 
ee | : Verify author ization ih 
ORIGINAL : | 
tga baa : e * 
OPSWITCH : [03] If 1st operand *HOLD, PREE or oo 3 [08 | 
OPPLAG Z 3 CPWDLU | 
3 Verify author.ization 
OPHEX : ‘ : CPWDJN | 
3 Set flag in arg. list according to Sanaa 
3 | operand. CPwDBIA 
: ‘é CPWDDEC 
aati >foal If 1st operand is *RJE®*: eco >408 oO 
i ‘ CPWDPLG 
Verify authorization ' —* CPWDGJL 
A- Check 2nd operand, :f specified __?} |CRUDGIE 
(rem ote-id) a 1 —_ 
CPRWDCLS 
~---->[05] If 1st operand 1s *ALL*: fore >fo9 | CPWDJOB 
| 
| 
i 


ISIE MIEEIEEISC ESI SISO ETSI eee Siri e) 


| 
i 


freee eden es cesere ener ccecy 
eve cron 920s 08 08 20 Ot OF OF 0 Oe 48 00 OF UF OOD FOF OF ne been et OD ee ee 


<== fos} Check keyword operands and set ae 
! arguaent list for gueue scan routine: 
| ~- “current disposition (CDISP) 
- current ag bape , eaeeh 
- current destination (CDES } 
- current system id CSYSID) 


If operand is wrong:.. Ee 


fos} Buald TCB for Print Status task t ccomr- 





—: 
| ee Se TE SE STORER QD ERE Tere 


WO; fsattach new task 


3) 


A. Clear ECS address 





[13] 
Exit, returo to Mainlineeee 
e 
(ee 
“yf 


ES ae ERED ES SA aE A PO HRY SEN NE EI EME ES PS EA ESSE ET 
ee SOS ee TT STEN NS EC prea Oe CEL OE 


S omheans 
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Process Queue display 








——: 





SA 










NOTES 


The *Comrmand autkorization® 
subroutine is called to check if 
the issuer of the command is 
authorized. If not, the routine 
has already issued an appropriate 
ercorc messaye and the command is 
agnored . 


Tne *Command authborization® 
Subroutine is called to Check if 
the issuer of the command is 
authorized. If not, the routine 
has already issued an appropriate 
error message and the command is 
ignored . 


Tne *Command authoraization® 
subroutine 1s called to cneck if 
the issuer of the command is 
authorized. If not, the routine 
has already issued an appropriate 
error message and the Command 1S 
ignored . 


The 2nd operand specifies the 
remote id, any number between 0 
and 200. the number must be a 
valid VSE/POWER remote ida and 
therefore defined in tne PRAT 
enerated remote table. 4essage 
R5zI ccceccecc OPERAND #¢# 
MISSING OR INVALID 1s issued, 
when the specification is 
wronge : 
The *Command authorization* 
subroutine is caiied to check if 
the issuer of the command is 
authorized. If not, the routine 
has alreaay issued ah appropriate 
error message and the coamand 1s 
ignored . 


The 2nd operand specifies the 
heaped device address on which 
he print status display should 
be printed out. 
The *Assign* subroutine is. 
called to check it the device 
as defined in the PUB, the 
device is operational, not used 
and a valid printer device. if 
so, a free LUB is assigned to 
the specified printer device 
unless tne initiator terainator 
task has originated the 
command, in which case SYSLST 
is used as LUB. 





| 
| 
| 
| 
| 
| 
| 
| 
| 
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NOTES 


When an error is detected by 
the *Assign*® routine, an 
message 15 already put out by 
ite 


The *Verify Queue id* subroutine 
as called to check if the operand 
1s valid. Valid specification is 
either "*RDR, LST, PUN or XAT*. 


The farst operand is wrong, 
following message will be issued: 
R521. cccccccc OPERAND ## AMISSLiNG 
OR INVALID 


Tne *VERKEYO* subroutine is called 
to check if the keyword and the 
keyword walue is valid. If not, 
the subroutine has already issued 
an appropriate error message. 


Tne dummy TCB area of the CP work 
area 1s used to set up the TCB tor 
the new task. Pollowing values are 
initialized: 

task id *P PS*) 
device address 

Entry point address 
reaote identification 
display argument list. 


fier 
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| Rar 
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Process Queue display 
INPUT PROCESS OUTPUT 


wl 


CP workarea 


Se eamenat 


| 0 1 Verify authorization 


[2° /7Fron Mainline | 
$ 




















| | 
ijMessage area i 
cP workarea | eee } | 
If 2nd operand is omitted: ooo fos } tl BESSAGE nEssace || | 
: —,/ | [pena | 
———______ 2 CP WDARGL 
ORIGINAL ?----- fos} If PDISPLAY XMT,PNET,.. : eee 
—— : pears —> [coupes | | 
OPSWITCH : panes i jensen 
t {—_—_—____—__ | | 7 A. Check 3rd operand (node 1d) ko Ae i j 
| | OPPLAG2 | 3 - set up node id im arg. list ! 
| | |oesex tT : | cewDoN 
i (sae | p----- >fou] 1£ znd operand 1s generic jobnare “|)[—7) pri lcrwsm | 
OPDEC | : (*abc) : . ! at | 
__________45 : - set up name and length in arg. list | —H CPWDDEC | 
: fost ——f pel Tp THT E 2 >} | CPwDPLe | 
teeta 2105 te 2nd operand 1s *PREE, HOLD, LOCAL or ae | | ~i}7 7) 
3 uu | | | { -| 7} | Aik atte 
| | : = vat flag in arg. list according to i { i { 
| H : | operand { } tp} 77> 4p |CPeDGIN | i 
: CPWDCLS 
| LsSe foe! If 2nd operand is "KJE*; | | 4 
| : is } = = CPWDJOB crepes. | 
: | A- If RJE is got supported, issue error | nena —| ——7| [cPwoTorD i 
. eessage | 
| : Set flag an arg. list : | | 
: B. Check 3rd operand (remote id) aE = | 
| | t----->J07] Check if znd erand is valid class lI t 
| : - calculate offset pointer in class 
| 3 table =} 
2 : i 
ba--- >}O8f Assure 2nd be eg nd ais jobnare | 
| { | - set up jobanme in arg. list 
j A- Check 3rd operand (job number) 
| ~ set up nuaber in arg. list, if 
{ Specified. 
| [ost 
| oe} 
| Exit, return to Mainlineeee 
@ 
| | 
| . 





| | 














NOTES | SODULE | LABEL | REF NOTES | MODULE | LABEL {| REF 
1 The *Command authorization* $VCA 3A No check is made at this point, | | { { 
Suprout ine a cartes to enees rf bebe Shak tbe epee stied 
e issuer 0 ne command is e node is ined in e 
| Suen DE Szece If nots the ree tt noework definition tabie. | | rf 
mas alrea issued ano appropraate 
| error sessage and the cohaahd is | | 6B The ore popecape specifes ris | | I scan 
ignor . rerjote °. e queue sets 
9 (either to or tros). Only queue 
3A the 3rd operand PheCit ips SGAM sets owned by the cemote id are 
dest ination nade hame. dasplayed. If the specifiaction 
jops/ouput destined fos re | is hot numeric, in the range | 
pode should Re pasrte ed. The i ber eesH 0 - 20 05, *opseas es 
node name aus ea ageric ecececcc 
first character aicbapeein: ap { | MISSING OR LNVALID is issued. | | | 
to eight bytes long. 
If the specification is 
pyalid, message 
R52 cccceccc OPERAND ## 
i ATSsiING OR INVALID is issued. | } 


i eel beeen vetrer tremens nll 


68 VSE/POWER PLM Part 2 


Licensed Material - Property of IBM 


CHART CE; LPwS$CE 


This page was Lett plank intentionaliy. 


Chact Cs oy 


Licensed Material - Property of IBM 


IPWSSCE ~- PEND Processor 
InPpot PROCESS OUTRUT 


























A. Set stop code *B* in each node 
control block, if applicable 


Be Post line driver. 


| pres >From Coggand Processor Rootphase . . | 
| Check command authorization ooo” [12] 
uae | - if not enough author ization / i 3 
[csr } wore rere roe wer rn en foz} Lf initiation of VSB/POWER is not [eee > 12 | P 
| {ecrr «i es coaplete issue message 1R89I if ‘ —_— 
| eer .----- If first operand is *KILL* 
& wor ea : 7 
—_—_ OO $ 
t OP ERAND | 3 A. Issue termination sessage 
| OPLEN | " B. De-~activate page fault appendage ~The > {NSTZua ; 
a processing lope ie 
ORIGINAL “HIiz > {[NeTrar 
oPHEx C. Terminate VSE/POWER 
| OP SWITCH i Check if first operand is valid: 
| OPPLAG Z 
| | eeu Pace | c Assign SYSLST to printer 
| t $ Bs 
—— leo eee If unsucessful.. 7 
CPWASCUU |------------- —_ 
Ee ; ‘ 
ieee peiueds 06] Shut down all actave tasks aa PRCB 
: PuCBNCB 
TCR me ee ee — 
acai Shut down all RJZ,8SC lines PACNTLD 
rccu A. Indicate signoff at EOJ acs < 
B- Inform remote operator that | ae 1 ane fucerr sd 
es VSE/POWER is 1n shutdown period | 
———____-—— Hic aCh < 
TCJB Shutdown SNA manager ae 5 pan 
- set SCOR SSS: 1f applicable ms [ucatT } 
- post SWA manager task. ————— 
| line driver 
Shut down JEP tasks TCB 
| | TCE 
| | [aot Shutdown NJE (PNET) line driver 
| | = f 


[14] Activate terminator task and issue 
shutdown sessage 
@ 


iz} Return to Command Processor Rootphase 


l 


see 
os 


\ +y/ 
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33 


3c 









NOTES 


‘Tne PEND command nas the following 


formats either 
P&SND <urr> or 
PEND RIEL, 


where isz 
urr 


address 
Specifies an 
igmedaiate 
tera anation 


KILL : 


The authority associated to the 
issuer of the command is examined. 
aus 1s done ZY Spy onang the 
propriate subroutine. located in 
t e@ Rootpnase of the Command 
processor. 


Message 1tRa9L eee eee : 
INITIATION NOT COMPLSTE is issued. 


Por oning message will be 


ed: 
*“TR99T VSE/POWER HAS BEEN 
TERAINATED 


Tne page pause /appencage 
routine of VSE ER is 
de-activated. 


Specifies a 
printer device 


SSTPFA 


Control is passed _to the 
VSE/POWER a normal termjination 
exit routine directly. 


The first operand is the address 
of a printer device. If the 
specification is invalid sessage 
is issued: 

48521 command code OPERAND ## 
MISSING OR INVALID 


t SODULE | LABEL 
on 


| 





{| REF 


SVCA 


SGAB 


SGaa 


Scuc 





NOTES 


In case of unsuccessful akes5 Rene 


subroutine ASSIGN has alread 
issued error messages, so a 
1S taken to processor exit 


Each task which is an the task 
selection list is examined and 
depending on the task ty 
following termination c 
set in a e gapPecersate TCS 
- fora bel pg ecxcept it SUA 
and Beet ese code *E* 

- depending on the state of an 
execution Ceader task eather stop 
code *S* or *&£* is set 

*S* is set if the task is waitan 
for work (Q-state, S-state ), 


nevec for _an execution reader oy a 


writer only partition. 

vk a) etob cole task (LST,PUN or 
BDR Se* is set unless 
ape) task as waiting for work 

{Q- erarels inactive (I-state} or 
in S-state, in which case stop 
code *S* is set. 


All signed-on remote ea 
are informed that VSE/PONE 

in picbagr ds Ba perted by weans of 
g2essage 


Panally the initiator task as 
godified into terminator task and 
as then reactivate 


Fosiow ing message will be issued: 
1899 ECEOuE Is I¥ THE 
SHUTDOWN PERI 





raach 
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| 
| 
| 
| 
| 
: 
| 
| 
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IPWS$CP - PPLUSH Processor 
INPUT PROCESS OUT PUT 


-u | | _ 


e 
eee >Froa Command processor rootphase 





A. If walid PARTITION specif ied: 
Process PFLUSH partition 


{ 
| 


PYeTeIRI PIT Ri ere ei ety 


| ORIGINAL il 
ces | CP-1.1 
B. If device address specified: 


Process PFPLUSH device 
| gia | 
nT F 


C. If actave RJE writer task specified: 


[Process PFLUSH RJE task | 

CF-1.3 | 
eT | 

! 

I 


L 


0 0608 Oe 09 Be oe 8e Oe Os ED fe Fe Bt Hem 


D. If PNET specified: 
ae | 


</eescee >| PPLUSH PNET PROCESSOR 
——/ 


E. Else issue message 








foz] Return to command processor rootphase 


t 
mes 
pe 


+7 
v 


a SE Sr EN RS ER SG EE SE Se SE GES SG SAS SR I SF RE RS SS 





aes 





REF 





} MODULE | LABEL | REF NOTES { SODULE — OFBS CCC“ EE SODULE | LABEL OL REF LABEL 





Transaitter line # (n = 4 thru 7). 


' 
1 The PFLUSH command has the | | | JOB “JOB +.~S«So::« Specifies thata #.##)| #4} °&»+J| that a 1 
Fotreetng format Transaitter or Receiver task could 
either eaj 
PFLUSH uraddr<,HOLD> or 
PPLUSH PARTITLON< bt aa or | Out : Specifies that a 
| erro task<,HOLDS if entered fros | Transa itter OF Receiver task could 
remote wnere 2 output. 
ouT 
PPLUSH PNET,nodeid,RVA.JOB HOED : Specfies that the 
; | entry for a Transmitter task oaly 
PFLUSH PN&T,node1d,Tkn,JOB<,HOLD> } 41S not to be deleted but place in 
aa . ¢ " { a hold state. 
urcaddr 3 ecifies a device 
address in the form cuu or x®cuu®. 1 after return from subroutine | 
VPARTID the field OTHPIBPT will be 
PARTITION : Specifies a PARTITION zero if an invalid partition id i 
froa BS to Fn (n = PARTITION has been specified | 
nuaber). 
| 1B a valid dewice address is one | 
task : Specifies an active in which oplen = 3 and the | 
| RJE wrater task LST,LST1,LST2 LST3 } } first operand is hex. g£lse af 
Oc PUN note : This éperand is only copies ~=3 then issue sgessage 
| valad for a FLUSH command entered | | geese ae rayon OPERASD $3 | 
y a remote oper ° 
PNET : Specifies that 1c for writer task only: cpid~ = 0 { 
| Pactition Network is active . | | | | {rents Gperator command) and i 
ode xa fips the nove iA Ws3t coadasd cole cbemane #8" 
Qo : ecif ies e node i command code 
{ for the ‘tak o be flushed. | | MISSING OR INVALID validate 
a) Specifies the Recesv i veaskid 7 aFenoe fii issae” 
n 7 e lies e Receiver askid - no ali ue 
hine # (n = thru 7}. aessa R52I command code | } 
OPERA D oe MISSING OR INVALID 
TRa Specifies ta | { 
t t l i 
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IPWSSCP - PFLUSH,PARTITION Processor 
INPUT 
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CP workarea iy 
| OPERAND > 
| RGIS ] ; weseencecoen oss 


OPLEN ss | | --~--------—-- 


1. 
| {onierwan | i 
CPWTARG 
jfcewrarx | jo----------—- ~ 
| [cperceer lee : 
i 


CP workarea 


li 


=) 
jcewrrc | ---------------! 


| 
| 


NOTES 


Issue IPWS$VCA macro to check 
authorization 


If znd cperand is omitted 
assume termination code *F* 
or if *HOLD® specified assume *H® 


Else following aessage wili be 
issued: 

1R8521 command code OPERAND ## 
MISSING OR INVALID 


Set up following fields. 
before invoking subroutine 
TCBSCAN=: 

CPWTARG = * °, 
CPWEATI(2) ="E * 49s 
CPwtaTI+2(2) = ePARTITION-id 


If no TC’ found as requested 
CPWTCBPT contains zeroes instead 
of a valid TCB address 


FPoliowing message wall be assued: 


1R5341 command code OPERAND $# 
DESIGNATES NON-&XISTING TASK 


VSE/POWER PLM Part 2 
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re ene 
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PROCESS 





Mainlane 


Make authorization check 
If authorization is not feoe’>foa | 
sufficient. / 
Check md operand of command 


A. If not omitted and not *HOLD® coo foe t 
issue message 1R521 / 


B. Save cancel code 


Scan for execution reader TCB 


/—- 
<° eeccece > TCBSCAM 
—/ | | 


If no TCB found issue sessage 1R511 pet Las } 
— / 


If writer-only TCB issue message coo 
1h61E : ? [" [oe } 


1f task is_at job boundary issue pees? 08 





— message 1K57I 





Set stop code and activate execution 
reader task 


Exit, return to Mainlineecee 
e 
=I 


ry 


LABEL { REF NOTES 


pie 5 Ifa @atee ing. TCB found, 

FCDT conta in: 

code, e.g. x*00° or x*B2* 
writer-only TCB 


@RITER OMLY PARTITION 


| not x*PF® 
| 6 Biee soleousna message will be 
| 


IS AT JOB BOUMDARY 


and if parti 
activate ECB 


a pe cee rt RE EE SES TE RCE SO 





the device type 
or 


| 5 BLSE following message will be 
issued s 
41R61I command code INVALID FoR 


7 Set stop code in fTcTT of TCB. 
Save original termination code in 
PDB. Set new stop code into 
get PIB of appropriate PARTITION 


——= “| = —| 
PDB 


issued : 
IR57I command code IGNORED, TASK 


LA 


t h 
| | 
6 IP task is at job boundary TCJB is | 


OUFPUT 


CP vworkarea 


CPwttc 


SEEN anne 
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IPWSSCF - PFLUSH,device Processor 
INPUT PROCESS OUTPUT 


| 





a ia Mainline 


for} Make authoraization check 


| 


suff icient 


CP workarea 


OP ERAND 


| If authorization is not [roe 08 
OPLEN 


| 
2| Check 2nd operand of command: | 





A. If not omitted and not *HOLD® [e==°3 [08 ] 





| Loneesme Hi assue message 1R521 CP workarea 
| | B. Save cancel cude wx CPwrtc 
CPWTARG H 





[ceeace it worn nnn ener nee 
CPWTCBPT = | |--- --~------—— - 
/-——. 
< ececvecoe D> TCBSCAN 
If no TCB found issue rgessage 18511 [==*"3 fos } 
—/ 


If task is at job boundary issue feos ’> 08 
message 1B571 / 





IF task 1s in seopped state issu fece > 08 
message 1R5AI or *HOLD® for RDR alg 
task specified issue sgessage 1R852I 


CP workarea 


[parc a a eee >|O7{ Set stop code and set task dispatchable 


| 


Cs 


a 
TeaSP 








| 
{ 
fo3} Scan for TCB | 
{ 
{ 


ai 


oe SE RE ie A CE EF GR RE IS TS A GE PS AD FEE I AS SE ES a ANS RIS SS AE HA ES OT 


| 
a 


| 

| 

| 

| Exit, return to Mainlineeee 
=] 
| 

t 


NOTES | MODULE | LABEL t REF NOTES 
1 Issue IPWSVCA macro to check | 4 If no TCB found as reguested 


MODULE {| LABEL REP 


authorization CPWTCBPT contains zerédes instead 
of a valid TCB address 





termination code °F*® and if "HULD* 
specified assume *H® . 


& 


Following message will be issued: 
1E51I command code OPERAND ## 
DESIGRATES NON-EXISTING TASK 


\ (vores DOL LaBHL 1 aEP | 
| 
2 If znd operand is omitted assume t | 
5 IF taRr i is at job boundary TCJB is 





2 ELSE following gmessage will be 
issueds 
1R52I command code OPERAND ## 
MISSING OR INVALID 


3 Set up following fields 
before invoking subroutane 


not 





1 5 Pollowing message will be issued: 
18571 command code IGNORED, TASK 


iS AT JOB BOUNDARY 


eae fT | | 


Se EE EST SL 


TCBSCAN: 

CPWTARG = * §, 6 Pol iod ing messages will be assued: 
CPWIACU (1) at's 1B52I command code pesnanh a 
CPwTACUS1(3) = device address MISSING OR INVALID 

CPWTAFPLG = CPWTACNT, to force a IRSAI command code FLUSH IGNORED, 
complete sca cE thru fCB chain TASK IS IN STOP STATE 





7? set Broce code and set task 
a 


daispatchable 


| 
| | 
| : 
| | 





Chart Cr 15 
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IPWSSCP - PPLUSH,RJE writer task, Processor 
INPUT PROCESS OUTPUT 







CP workarea 

















pose 


cor aemee exe erercape eummemmesnan \y seman semen 


tea ttneetetaa i 0o{ Set stop code and set task dispatchable 


TaTT 
TSF 





for] | 
Exit, return to ae 


| 
| i 


| Be Wig Sainline > {CPWTTC 
CP workarea ft Ss oo ets 
OPERAND ; | p-----3[07} Check znd operand of command: 
| OPLEN | ~--~------- = “a : 
} forten | l A. If not omitted or not *HOLD*® Pry >fo7 } 
| || OREGIWAL i| issue message 1R52I1 4 
ee | 
| | {| B. Save cancel code —— | | 
pda H 
| (omen e | 
| |ceeeare came  caieeteenane — Scan for TCB 
[JcewraBIN ~--------i---—, 
| 4 3 : f———. 
{cewrcaeT i SesSssee= : 3 < ececceee > TCBSCAN 
i : : —a/ 
i oe 
cPeTtc — YJ. J--------- i-~ ; -| 
sR $3 i) Uke SS >{03{ If no TCB found issue gessage IR51I jeee 07 
: ! , ae ae E=) | 
ives. paccees if task is at ob poundary issue eco >107 
| s 68 i jt message 18571 J uw ss [e=" 97 | | 
! s te i ——. 
| 4 3 peom-->/05] If task is in stopped state issue eco 5507 
| 3 : {— message 1R5AI aha nai 
| 
t 
| 
| | 
| 
| | 
t 

















| {| MODULE | LABEL 1} NOTES (| SODULE | LABEL | REP 
{ 1 at zod Obeeq seta ioe ieteduessuse | | 3 Solsoe ing peeeage wate ve teeucee | 
ecm ination code an e 
H specified assuae "h* | DESIGNATES NON-EXISTING TASK . 
| 1 Else following message will be 4 IF ae is at job boundary TCJB is 
i Pee e ee om mand code OPERAND nop x 
| MISSING OR INVALID 4 eee message will be assued: jj i 
| P 1R571 command code IGNORED, TASK 
2 Set a Fol sow a0 ag ert gio | IS AT JOB BOUNDARY | 
invoking subrou ine 7 
t cputagcs— | rf } 5 Sor tonsa messages will be issued: | { 
| TATI (1) =i | tRS2I command code GEER AED #? 
SEE, Clara eset seeesttntoeae Usiticontanl ‘cole PEusu rexonep | 
= comaa c 
i TASK IS IN STOP STATE 
3 If no TCB found as requested | | 
CPWTCS3PT contains zeroes instead | 6 Set stop code and set task 
| of a valid TCB address | | | dispatchable I 


i lt td 
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HART CG: ILPwS$CG 
IPWS$$CG - PGO Processor 
INPUT PROCESS OUTPUT 
| - | CP work area | 
iL. 
[eee >Prom Command Processor Rootphase eerene 
—,/ peas : 
! {CPWTACU 
( aera ? Deteraine type of command: iy  cuag EES ENT 
OPERAND So acteaaseettetetententeatets | - check Ist operand | CPNTATI 
| Tee Hy (partition id / cuu address) t ai 
ial aes | : | | | CPWTAFLG 
OPLEN pero >{02} Lf PGO partition,... | CPWTCBPT 
OPSWITCH : 
—_——oCooO 3 A. Check 2nd operand (cuu address) oe, 
OPPLAG2 : . DYTT 
waar : B. Check 3rd operand (action) ge 
OPHE s 
| | 7 | C. Locate aRpEopE.ate task control 
| OPDEC | : block (T ; 
: - ansert termination code and set 
: task dispatchable. 
z 


ray 
{ 
1 
1 
! 
! 
| ' 
! 
— ' 
ue 
Seeces be penpasesen cca 
| 
= 
Hen en ee eee cmTen Vy \/sme | sor ece \/eremearen memes aoe Vane \/ewermeme, 





----->J03] If PGO cuu,.... 
ae 





A. Check 2nd operand (action) {——_——} mes 
4%. Locate SRECopraace task control an iene! i == 
block (TCB) 


- ansert termination code and set 
task dispatchable. 





fou] Return to Command Processor kootphase 


Exitece 
e 
e 


y/ 


ie 


Se RR EE PT ET CSN CE EE EME EE SE MEE Sa GA I Ea: PSO EE TEER 


a i a a a ep SS A EE EE TY SRY eS eet ee ce SOS 


| 
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PGUCZ00 JSGAM 








The PGO coamand has two formats: 
PGO partition,cuu<,action> or 
PGO cuu<,action> 


2c The termination type is set 
Secor ans 5° the action operand 
and the sk is posted 
dispatchable. 





where: . 

partition: One of 
BG, FA, FB,F1 thru F9 

cuu : A valid unit record 
or tape device 
address in the fora 

' cuu or x*cuu® 

action : Either CANCEL,IGNORE 

or UNLOAD 





3A The 2nd operand specifies the 
action to be taken. Valid 
Brecon Acar sous are "UNLOAD, 
CANCEL or IGNORE*. The operand 
is optional. If none of above 

has been specified, message | 


} 
1852I command code OPERAND ## 
MISSING OR INVALID is assued. | 


1 «If the first operand is not a 
device address in the cuu format, 
the *VPARTID*® subroutine is called 
to check 1£ tne Ist operand isa 
valid pareactonnad supported by 
DOS/VSE. 


3B The *TCBSCAN*® subroutine is | PGOC&600 
called in order to locate the 
| TCB to be re-activated. 
3B After return from suproutine 
i TCBSCAN the field CPWITCBPT 
: contains the address of the TCB5 


2a If the operand is not a valad found or if no TCB could be 





device address, message located it contains zeroes. In 
185141 command code OPERAND ## the later case tne following 
message is issued: 
pant R511 WON-EXISPING TASK 
Pa) The 3rd operand specif ies tne PGOP300 |$GAM DESIGNATED : 
action to be taken. Valid Otherwise the TCs found is 
ppecat seat scns are ‘UNLOAD, checked on wait state. If tnas 
CANCEL or IGNORE*. The operand is not true the following 
is optional. If none of above message is issued: 
has been specified, message R771 command code TASK NOT 
URSZT command Code OPERAND ## WAITING FOR OPERATOR. 
MISSING OR INVALID 1s issued. 
. . 3B The termination t 
FAC The *TCBSCAN*® subroutine is PGOP8O0 


called ian order to locate the 


t and the task is posted 
TCBK to be re-activated. 


dispatchable. _ 

poe owing termination codes are 
set: 

ho action operand -_ & ® 

"Um LOAD * - ye 
*IGNORES = -8Ts 
*CANCEL® = (sse 





<c After return from subroutine 
TCBSCAN the field CPWICBPT 
Contains the address of the Tus 
found or if no TC3 could be 
located at contains zeroes. In 
the later case the following 
message is issued: 

PRS11 NON-EXISTING TASK 
DESIGNATED 

Otherwise the TCS found as 
checked on wait state. If this 
is not true tne following 
message 1S issued: 
1TR771 command Code TASK NOT 
WAITING FOR OPERATOR. 





| | 
| 
| | 
| | 
! ! 
| NO DEVICE ADDRESS is issued. | 
| | 
| | 
| | 
| | 

| 


ee rr a ON ES NES ES OE ENE SUN CUP SI Ae 


Oe ree ae en emer Saree gene Cee oe 


ee RS a EE ER ES TS te CSE toe RAREST SED ETRE TNT S MITA Soke cae CTE Sete Pe DOS SNES 


‘ ype is set | | 
accorw ing £6 the action operand | 
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CHART CH: sPWS5CH 


IPw$$CoH - PHOLD Processor 
INPUT PROCESS OUTPUT 











CP work area | al CP work area 
| eee >Prom Command Processor Rootphase 
| op2RAND 4 
fopLen | ( eeeeenerereenene se for Verify authorization | 
OPSWITCH ° 
cea | A. If not authorized: eos >foe | 
ORIGINAL [e=-"3 t i 
OPDEC ; : ; 
| oreo Lag Check if Ist operand is valid Queue ID: 


a 


“SS ?_—— a —_] | = 
—/ 











[cewoapin | 


CPRQAGIR 








CPWQAGLN 


| 


Vow Yo YW Vem Vem Vom V: 





A. If invalid gueue id, issue error 
message 78531. 


CPWQACL 
CPHQAJt 
CPWQACDP | 





----->|03] Cneck additional operands and set up | 
argument list for gueue scan routine: | 
- “Znd operand (*®ALL*®, *abc, class ' 
or jobnane) 
- 3rd operand {jobabumber) 
| 





CPWQACPY 


jcPaoacs: } 


a = 





preeee ones coes 





nt ays atom SHI gan EER ESTEE empeneenarerenninercawesmeneranaransnte. \yamm \y/ta 








ieee fou] Check keyword operands and set SP 
! argugenat list for gueue scan routine: 
- “current disposition (CDISP) 
- current pata . aay 
- current destination (CDES } 
- current system ad CSYSID) 


If operand is wrong:s-e. eoe >{ 06 
eee 7[06] 


fos} Process Queue update 
CH-1.1 


[oe] 


Exit, return to Command Processor see 
Rootphase 7 


“7 


=| 


—ee 
eee gure ete en EE A GS NN A SE EY SE TE SONGS AT ST ST a TD ST oo 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


lhe letee cs Soaad cei Steen ag tec ee A Se reyes we Sasa cee 























NOTES { MODULE | LABEL | REF NOTES | SODULE { LABEL | HEF 
The PHOLD commgand has the PHLDOGO 1 Phe "Verify command authorization * SYCA 
following possible formats: subroutine is called to cheek aif 
PHOLD neue, Jobnase<, jobnumher> the issuer of the comaand as 

skeyword=valiue authorized. If not, the command as t 
PHOLD gueue, ALL rejected. An appropriate error t 
skeyword=value> meSsage has been aiready issued by 
PHOLD queue,class ‘the subroutine. 
,keyword=value> : : ; 
PHOLD queue, sabe 2 The fe Queue id® subroutine 
skeyword=value> as called to examine the 
aperanc specifies a valid queve 
where: - Valid queue ids are 
queue : One of - RDR, LST, PON or XT. 
LST,RDR,PUN oc XMT 
jopname =: A jon name Known to 2a Bessage PHLD100 {SGA 
VSE/POWER B52 ecccccece OPERAND 1 NO 
jopnumber: A job number VALID QUEUE 
assigned : as issued. 
to job name “ ; : . | 
ALL : SpeCifies that all 3 If invalid specifications have SGAA 
jobs in queue been erntered message 
are to be held 1R52I ceccccce OPERAND ## AISSING 
class : Specifies that all OR INVALID 
gobs in queue will be issued. 
or this class are ; : 
to be held 4 The *VBRKEYO" subroutine is called 
keyword : One ot CPRI, CbDxuST to check if the keyword and the 
CDISP or CS€SID keyword value is valid. If not, 
value 2 specifies current the subroutine has already issued 
een ibet value of the anh appropriate error message. 
attribute 

*apc : Specifies that all S The RDR, LST, PUN and/or iAT queue 

P Rood in the queue as scanned for queue set(s) 

hose names have the specified by opérand 2 and 3. 

specified Characters Bach gueve set which as eligible 

in Common, are to be meeting the criteria) with a 

held isposition of *D® of *K* is put, 

(generic jop name) un *hold® state. The disposition 
is set to *H® af the ori inal | 
disposition is *D® or to *L* if 
the original disposition is °K®. 
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IPWS$CH - Process Queue update 
INPUT PROCESS OUTPUT 


























pee issue completion message 


e 


Return to Callereee 
e 
Viet 


CP work area | 
ache a aac 2 ne Slay Caller 
CPWQAMIN 3 
——_—_—_ : obtain storage to hold co of gueue 
CPWQAGJN | 3 jeu record being read ime ey 2 ' 
CPWQAGLN : 
| ictal a ale | 7 foot Set ue pointer to class list and number 
| Lone | 3 tJ of entries to be processed. 
CPWQAJ# 3 
| Belch el : fost Process each entry in the class table 
| | : A. If class chain is empty. fooe > 04 
TCB 7 —,/ | 
| [ frcov } | : B. Reserve disk management block. 
| z C.jConvert relative disk address to 
| &>Q-record Sse sStesess sso: absolute address | 
fomr sd | | 
Saar | : { De Read in first~in-set queue record. | 
| QRCL | i-----> Bej}Inspect queue record 
QRNC | 
| QRCR : | | FP. dold queue set, if applciable 
QRSID | | | Ge Address next queue set in class [ere > 03D 
| |< ___ Chain, if more exists. / 
R 
{2 | f He Release disk management block (D&B) - 
fata | 
| joeee { fou] If more entries are to be processed jeee >}03 
{ i i. /{—- 1 
| {QRXS 1 { 
| | Release storage used for queue record | 
I 
| | 


a Sate See 



























NOTES | MODULZ | LABEL {| REP NOTES } BODULE | LABEL {| KEP j} 
Tne reader , list , punch and (oe | | | 3F When the disposition of the 3HTQ 
X¥mit queue iS scanned and eac queue set is either "D*® or °K® 
| queue set which is eligible is H 1 Hy it is caaged to "H® or *L® 
| extracted and updated. | Prot cha eset ee aoe 4 ' 
| 4 For the queue record area | paLps00 SRS || record is written backs 
| workspace will be provided. 1 ; . 
; J 3G Queue sets belong ing to a class i 
| 3b The disk management block is SRSR are chained via the "QCcQN® 
beserved for the duration of cield. 2n15 eer con wp i | 
e queve scanning. solute disk address o e@ 
| : : id 1 lf next queue set in chain. For 
3c Suproutane R&LTOASS converts t j | the last queus set, this field | 
the relative disk address | contains BDinary zeros. | 
3D The first an set gueue record \srpo 3H The disk management block is SELE 
is read 2 Ene gucde record | } | {| released. | | 
area just acquifed. 
5 SELW 
3E The queue record just read in | | | | 6 If Boy gaan? set is held message $GAA 
| as alpha y hep af it is eligible SRSCE yt the central 
o be updated. operator on 
- jopsame and number oF if not x 
- Class ; IR88I NOTHING TO HOLD 
- RJE user id 3 will be issued. 
- locai or remote destanat ion 
' 





a ee 
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IPWS$CI - PIANQUIRE Processor 
INPUT PROCESS OUTPUT 


eee >From Command Processor Rootphase 
caT ay 


[cars | 
CALC 


wr crtrsere comer re--->)01}) If neather RJE nor Peet {network Angy is 
+ supported, issue error rgessage 1R65I. 


A. Return to exit. eos 


CP WORK-ARZA 


O2{ Validate 1st operand and if invalid 
issue error spessage: 18521 


A- Return to exit jessy 


| 
fe 
||| © 


CP work area 
OP ZRAND 
OPLEN 
OPSWITCH 
ORIGINAL 
\OPPLAG2 






' 
| 
| 


00 Oe 00 ee On OF Oe oe Os OF te Os Os Fone OOF oe Oh Odes seen te oD 


——---2 $03] If Ist operand is not "ALL®: ag fou | 





i 


ee me: 
— 


| A. Indicate *ALL® in SWFLAGM. 





| 


rr re eer eme re Smee emeeme | qm ewe cme geen arn aman ein epee 


RJELDS 


RJLLPU ~-------~ 


----- > A. Scan thru Line Table to locate eacn 
or specific entry. 


mons 


B. If a requested entry does not exist, 
issue error message: TROST. 


C. Return to exit. ere 


aleeeteteeaimemtamee De Scan LCB Chain to fand requested LCB 
containing device address. 


oc 


et im 


CB 
LCBDVAD 
LCBNEXT 
LCBFLG1 






E. Display status information for a 
specific or all lines. 


P. If tst operand is not °ALL": fooe” 








DO OF ree 0 Od OO FE EOS BE Es OF EP HD OT OF OE EEOS HE OS OF RE OL OT OOS OS Et EEE EEE Fe tomy 


----------->|05} If Ist operand as logical unit name or 
*ALL* 


an eer ae eS ET CATS ONE Oe ET SO TR 


Message Area 


pee 
MESSAGE 


re | 


SUCB -—-_ i rm m re geet errr A. Reserve the SNA unit control block. 
> %. Scan SUCB and’ LCs chains to find 


| 
| 
| 
| 
| 
----->]04] If tst operand is *cuu®, or "ALL®: 
[ a | 
| 


either a specific LU or locate each 


Ce If a specific logical unit is 
>LUCB currently not logged on, or no 
LULU / LUTC] --~------ 
ee 7 LUFS 


£ 

: logical unit 1s ed oa at all 
—— Beasage: 1R56I is displayed, ne 
otherwise the status of the logical 
nay. ie dasplayed via message: 


° 
. 
. 
. 
. 
Ps 
. 
. 
° 
. 
rs 
. 
e 
. 
» 
. 
. 
. 
. 
. 
. 
° 
. 
. 
. ° 
. 
. 
. 
. 
° 
. 
. 
. 
. 
ry 
° 
. 
- 
. 
s 
. 
rs 
. 
. 
. 
. 
. 


D. Release SNA unit contr block if 
either a specific or a LUCBs are 
processed. 


H EB. If Ist operand is not "ALL*: eoe > 08 


acomaies elope If 1st operand 1s PNET "NODE=* or *ALL*= 
uu 





PNCB crccc7 7 A. Lock NCB chain via PNCB during sScane | 
PNCBNCB fo teeter ern nn 4 ( Be Scan NCB Chain to find requested 
l fal--> wode or take each Node if *ALL*® was 
uu | specified. | { 
t Cc. If a_specific Node 1s not found or ate 
fal--> no NCB is available message: 1R56I 
H ct H is displayed. 
D. Return to exit. eos >108 
= | cy | | 
[NCBNANE } cm | ore BE. The status of the Node Control Block | if 
—-D{A = is checked and the appropriate | 
NCBNEXT if : message is displayed. 
NCBFLG1 Matias —_ FP. If connection is established, | | 
| display status of each transmitter I 1 { 
and receiver. | 
| patomea 
| If neither a liane, nor a node, nor a 
aon reat unit was found, issue message: 
R4A6L. 
| Jos} Return to Command Processor Rootphase. | 
| | | 
| | Exiteee 
e 
| | yet t 
| | = | | 
| | | 


| 
\¥ 
| 
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IPwWS$CI - PINQUIRE Processor 
NOTES 























| SODULE } LABEL | REP NOTES 





{| MODULE | LASEL } REP 








Tne function of this command is to 4B If no specific entry was found, PIRQMSG |3GAS 
display status information for RJE message: 
BSC Lines, RJF SNA logical units, R951 ccececcc LINE cuu sot 
or PNET Nodes. : SUPPORTED. 
The status of a RJE BSC line may is displayed and control 15S 
be: given back. 
Le Not supported, because no line i f i 
table entry exists. : 4D The LCB chain is scanned to 
2.) Not initiated, because no line find a corresponding LCB to the 
control block exists. | line address. 
3.) Inactive, when a line Control. ; : 
BLOCK (GE ISESs but nobody is signed 4E Poth ee Ing gspessages will be PINQNSG 1|S5GAA 
on yet. issued: 
au) Processing remote-id nnunnnan, If no LCB exists, message: 
somebody is signed one grace xx NOT INITIATED is 
isplayed. 
The status of a RJZ SNA Logical Otherwise, the following 
unit may bes messages are displayed: 
4.) Not Logged on, because no SUCB WwS6Il° cuu PROCESSING rrr or 
exists for this particular logical wa561 4 cuu INACTIVE 


unit. 
Ze) Logging ny the logical unit 
e 


: SA The SGCB chain is locked for 
is in e midd of the logon 


the duration time of the scan. 


5B zace SUCB 1s taken and the 
related LUCB*®s are scanned to 


SRSR 


rocess. . 4 
«} processing remote id. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| The status of PNET Node may pe: 
| 
| 
| 
| 


find either a specific LU or to 
take each LU if *ALL® was 


Node not nogged on, because no 
specified. 


1. 
cb exists for is particular 
ee. 
SB The following agaessages are 
displayed: 
WRSOL xxx PROCESSING yyy or 
WS6I xxx LOGGED ON yyy or 
18561 xxx LOGGING ON yyy or 1f ! 
not 2ogqed on 
S61 LOGICAL UNIT LOGGED ON | 


ish Session pending, because a PINQASG |3GAMN 
ode 


Control Block exists but the 
otner end nas not logged on. 
3.) Node processing. 


the following Foes formats: 
PINQUIRE lineaddr 


W56I xxx NOT LOGGED On 
PINQUIRE lunasze 


Se I ET GL NY ES CE ES ST ee I SPR RS ERAT SS RS 


| 
- 

| 
7 
: 
_ 
| 


PINQUIRE NODEB=nodenare 5D Release SNA Unit Control Block. SHLR 
PINQUIRE ALL 
wheres Status information of a specific 
lineaddr : BSC line address SHA logical unit is displayed. 
an the fora | 
cuu or x®cuu® oA The PNCB as locked for the $RSR 
lunase 2 Name of a SNA duration tirge of the scan. | 
logical unit ae 
nodename : Name of PNET Node 6B The NCB chain is scanned to { 
ALL : All lines and/or locate the Sppropesate node 
lunames and/or control block. 
sessions or ; ; 
remote id*s are 6c The following sessage is PINQMSG [| 35GAM 
to be checked dis ae 7 ea: 





oe I NODE nnannann NOT LOGGED 
aoe NO LOGICAL UNIT LOGGED 


1 Following message is issued: PINQMSG |3GAB 
R651 cecccecc RJE NOT SUPPORTED 


and control is given back. 





é The following message is PINQMSG [$GAB i 
displayed: 

¢RS2ZI — cccecccc OPERAND ## MISSING 
OR INVALID. 


oE The status of a Node can be: 
Ww56L NODE nannnonn SESSION 


ENDING 
Ww56I NODE nonannoann PROCESSING 


6F The status of an individual PISQNSG 
receiver/transmitter can be 
either: ys ee 
- active, if the task is just 
receiving or sending : 
~ inactive, if the task is at 
job boundary 
> drained. 


If *ALL* is specified, all s8Sc SGAM 
| Lines, ali SN Logical Units, and 
| all PNET Nodes are checked and 


their status is displayed. 






4A The Line Table is scanned to 
find either a specific abe? f or 
to locate each entry if "ALL® 
was specified. 


es Caer SR er eae SO a CE ETE EE EE CL A SC SANS ST SS OT SG a" I SE Sr SEMEN SRA A 






| 5 If a logical unit 1s specified, 
| 
| 


7? ££ nothing to eae: message PINQMSG {45GAK 
R461 NOTHING TO DISPEL 


issued. 


AY is 





| 
| 
| 
| 
| 


SS UR CO SUE CRUE ETP 


PLNQKSG : 
' 
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Chart CJ 85 


IPWS$CJ - PACCOUNT Processor 
INPUT 


86 


, 


| 





[CASA I 


ACB 


facts ! wonn----- J 


CP workarea 
OPLEN 
ORIGINAL 
OPSWITCH 


OPPLAG2 
OPDEC 


09 00 00 08 00 we 08 00 OF oe OF OF Be ne ee tem 
i | 
' $ 
' t 


t 


Pret 00 Oh 09 8 OO os eo Ot OF Oe One HO Os Be Ot ES ED ON Oe Oe OD OF EE FE He Ot on Bh Oe 


ee 


VSE/POWER PLM Pact 2 


[s.| 


hel al Coagand Processor Rootphase 


=<S-= fos} if Ist operand is *PUN*® | : [ore 
~- indicate *punch® function in TCB 


~----2} 06] If 4st operand is *DEL* . ; [ere’ 
- andicate *delete® function ip TCB 


----->[07] If tst operand 1s "DISK*: 


----->}08] If tst operand as tape address (cuu}: 


_----Sfro} Attach save account task 
— 


Licensed Material - Property ot ‘BM’ 


PROCESS 


a Check authorization 


! 
—~-->}02] If accounting is not supported, ooo 
horas assue message 1R69L —/ 


ee 03] If account task is already active, [eee 
H + issue message 1R69I 


| fou] Set up dummy TCB for save-account task 
- clear argument List for various 
subroutines 


A. Indicate save to disk in TCB 


| Be Check 2nd operand (file name) free 30 t 
- save file name in TCB 7 





dicate save to ig > 
- set up arg list for assign 
routine 





[ oa | 
| A- Save device address in TCB and 
in 


B. Validate 2nd operand (density) 


—— 


C. Validate 3rd operand {file name) 


D.}Assign tape address 
ooo. 
ae 


| 

Hh | 

Cee | 7 : 
mod 

| 





9900 00 00 Oe vO Re 6588 92 Os OF FO ee es OF ne 20 S888 es es tt Dem 


rr 


fay} Return to Command Processor Rootphase 


Exitece 
e 
pet 
a 
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IPWSSCJ - PACCOUNT Processor 
RuTES i 


SODULE | LABEL {| REP 





The PACCOUNT command has the 
oraat eitner 


T 
<tapeaddr>,<density><,tfilenaae> 
or 
PACCOUNT DISK,dfalename or 


PACCOUNT DEL or 
PACCOUNT PUN 


PaAccO00 





where is: wots 
tapeaddr : Specifies a 
tape device 
address an 
the form 
cuu or x*cuu® 
Density of 
oar pat tape 
in the fora 


density : 


ss_or x'ss* 
tfilename : Filename froa 
TLBL 


adfilenarme <: Carbine froa 
//ODLBL 


subroutine as called to check if 
the issuer of the PACCOUNT command 
is authorized. 
If the issuer has not enough 
authorization, the command is 
rejected. The suproutine has 
already put out an appropriate 
error message, therefore a branch 
is made to the exit. 
Pollowing message will be issued: 
R691 c¢cccccce BU ACCOUNTING 
SUPPORT 


Folsow ing message will be issued : 
ROOT ccccccC COMMAND REJECTED, 
SAVE ACCOUNT ALRZADY ACPIVE 

Task identifier is * ACT*. 

The 2nd operand specifies the 
file name of the disk extent to 


be used. The operand 
Bang ae ory 


al sce 
MISSING OR 


SGABM 


SGAM 


SGAs 


is 

If omitted, message 

cccccc OPERAND ## 
INVALID as issued. 


a 
P| | 
c 
es 
an 





8A 


88 


3B 


3c 


8D 


NOTES t 


If the operand 1s not 
phameric, first character 

alphabetic, rab 

aR5 HVALID 


51 ccccecccc 
FILENAME is issued. 


If the tape address is not 
defined as valid tape device 


nes e 
1R 74 cceccccc INVALID DEVICE 
SPECIPICATION is issued. 


The 2nd 
densit 
ran 


operand specifies the | 
to be used. If the 

opera is omitted, the default 
deasity accordin he device 

type is used. Otherwise the PUB 
iS scanned to locate the 
appropriate device entrye If no I 
en FS is found, seazege 

Ww58I cccecece DEVICE cuu IS | 


NOT KNOWN is issued. 


If the specified density is 
invalid according to the 7/9 
track tables, meSsage 

W531 cccecccc INVALID 
DENSITY is issued. 


If the file name specification 
is invalid, Bessnge 
WS5I_ _ceeccece INVALID 
FILENAME is issued. 


In case of unsuccessful 
asSigngjent, subroutine * 
ASSIGN* has has already assued 
error messages, 
taken 


the Ist operand of the PACCOUNT 

command iS inwalid peer bd 
1R52zI_ cecceccc OPBRAND ## 

MISSING OR INVALID as issued. 


so a branch 1s 
to processor exit 


SODULE |} LABEL 


| 
| 


| 
| 


KEP 
SGA 





SGAN 


6 
SGAB 
Suan 


$GAN 


SGAN 


nce RN rmatsteatinsemasnnmiem emer Ma enema 
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LPWS$CL - PDELETE Processor 











INPUT PROCESS OUTPUT 
CP work area y je | | CP work area 
apie | [:et-brcon Command Processor Root phase | 
OPLEN = Verify authorization 
UPSWITCH 
ORIGINAL [oz] If 1st operand 1s *HSG®: 









! 
OPDEC | 


OPFLAG 2 


OPHEX Be Check 2nd operand 


- message numper 


C. Delete one or more ALLUSER 
message (s) 


Issue error sessage if deletion vas 
not successful. 


tr 
A- If not author azed: coo >1|07 


| 
| 
| 
D. ooe 2 [07 | 
3---=- 1 Check sf Ist operand is valid Queue ID: 


f/f .. 
< paclchelaly VQUEUID Tented ea (cpwoapiw | 
: ~________ >} |CPWQAGJIN 





A. If invalid queue id, issue error 
| awessage 1R85z1. 
> 


foul Check additional operands and set up 
— argursgent list for gueue scan routines 
- “2nd operand (*ALL*, *abc, class 
or jobnare} 
- 3rd operand (jobnimber) 





> 
t 
if 
1 
j 
| 
1 
1 
[a5] 1 
OS} Check keyword operands and set up. > 
argument list for gueue scan routine: aaa t 
- “current disposition (CDISP) 
- current ergata & ¢ 
- current destination 
- current syster id CsYsI 


If operand is wrong: ee eee 5107 
free [07 ] 


AE ee LE PD PP SS PAS? GAN SS ca i NS Ge Sa A ee SE SG SG SR Sl: PS SE SP SEP NL 


A TEA SS SEL SS I IE SE ER SL SN eS NT SE SN GS EAN se 


Gera Queue update | 
CL-14.1 


| ce nes | 


[3 


Bxit, returo to Command Processor ee 
Rootphase 
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IPwSsCL - PDELETZ Processor 
NOTES 




















| SODULE } LABEL REF NOTES 


AODULE | LABEL § KEP 














class : Specifies that all 
gone in queue 
or this class are 
to be deleted 
Specifies that ali 
jobs in the gueue 
whose names have the 
specified Characters 
in. comaon are to be 
deleted — 
generic gonnans 
keyword : Ohne of CPKI, CDEST 
: CDISP or CSYSID 
value : specifies current 
value of tne 


been entered message 

IR52I ccccccce OPERAND ¢$# MISSING 
OR INVALID 

will be issued. 

*abe 


ry 


5 The *VERKEYO® subroutane is called 
to check if the keyvord and the 
keyword value is valid. If not, 
the subroutine has already issued 
an appropriate error gessage. 


6 The RDR, LST, PUN and/or XAT queve 
is scanned for queue set (s) 
epecie ec by operand 2 and 3. 
It the gueus score ais eligible to 
be deleted, it is removed from the 
class chain 


The PDSLETE command has the | 2c dH8S 
following possible formats: 2c message 18841 DELETION NOT SCAM 
PDZLETE qQueue<, jobnase ALLOWED OR IMPOSSIBLZ is issued 
, jJObDDuRber>> ; : 
<,keyword=value> 1 The mgrity command author ization* SVUA 
POELETE queue<,ALL> subroutine’ is called to check if 
<,keyword=value> the issuer of the commjand is 
PDELETE jueue<,class> authorized. If not, the command is | 
<,keyword=value> rejected. An bl d had feed be error 
PDELETE queue<, *abce> peSsage has beeh already issued by 
<,ke word=value> the subroutine. 
PDELETE SSG<,n> t . : t 
| 3 Tne s¥eeaty Queue id® subroutine | | 
where: is called to examine if the 
queue : One of Cperend specities a valid queue 
LST,RDR,PUNoOr XMT id. Valid queve ids are 
jobname : A job name known to - RDR, LST, PUN or XAT. 
VSE/POWER 
3A Bgssage PDLT100 }$G4A8 
; IRS, cececcce OPERAND 1 #O ! 
to jop name | 
ALL : SpeCifires that all 
jobs in gueue 
are to be deleted SGAM 


attribute 
MSG 


Specifies that 
messages are to be 


| 

| 

| jobnuaper: A job number 

assigned 
$ 

| | 

: | 
| 


deleted 

n : Shit ies that 
ALLUSER type 
messages humbered 
n are to pe deleted 


ya: ) The second operand is either 

nhuseric, specifying which 
ALLUSER message should be 
deleted or *ALL® in which case 
ali ALLUSER messages originated 
from the command issuer are to 
be deleted... take 
If an invalid specification has 

| been entered, chat 
1R852I cccccccc OPERAND ## 

| MISSING OR INVALID 

is issued. 





EE ES TERT ANE PTET LEE Ge ga PAS SAE ON POO Seber Rts OE EES ET 


| VALID QUEUE 
is issued. 
4 If invalid specifications have 
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‘LPWSS5CL -— Process Queue update 





Input PROCESS OUTPUT 
CP work area (1 | 
ets, 
CPWQARG l corre renee seem sl ae Caller 


persenree 2 
{ obtain storage to hold copy of queue 
record being read in. 


pereesass 

CPWOAGLN 

cewiacl — | Set up pointer to class list and number 
| cr 


CPWQACL of entries to be processed. 


ee \ | 





=} [s] [] 


Process each entry in the class table 


08 00 ne oe Ge ge et oe ee Ete Oe Chen ee ee ee ved 


A. If class Chain is empty. foro "> 04 
TCB /\ 
[recov | 8B. Reserve disk management block. 
C.fConvert relative disk address to 
PQO-reCcOrd = teeter eres ere absolute address 


QRPY 


pret oe te ce eres 





come earn ene: \/ rete es Sr SS EN I 


QEDP D. Read in first-in-set queue record. 
QRCL maou! i eel gueue record 
wRAC 
zs | P. Delete queue set, 1f applciable 
RSID 
| chain, if more exists. 
————| H. Release disk management block (DMB). 
QRFJ 
QRCP | 04) If more entries are to be processed pees 03 


[QRaxSs } 


Release storage used for queue record 


assue completion message 


eR OS AE OSS AON SEM GS EE SE A RT er SS ES EES SCE ee SEAS ESE A SO TN SS SR REE 


G. Address next queue set in class [oo9 3 03D 


eee 
° 
a) 
eee Pag SG SE YS PR NT PES Se ir SN AS ES Sa 
an ES LTE Sc ne NH S  e  r  A p ESNer NNN RUA GA SENP-er e 


: 


Return to Callereee 
| 
































deleted from itS class chain 
according to its disposation. 






NOTES } MODULE | LABEL | REF NOTES | SODULZ j LAvEL 1 KEP 
| The reader , list , punch and/or 3P All queue records, belonged to bPz0s } 
xmit queue 3S Scanned and eac the queue set being deleted, 
{ queue set which is eligible is are added to the free queue j 
extracted and updated. } record chain. ‘ I { 
| 1 For che queue ceecrd Bree. | PDLTS500 lsesw | 36 queue Sots Haron pag ce - ecaiag { | | 
workspa w provided. are chained via e 
e : field- This field con Sins the 
3B The disk Banagonen® block is SRSR absolute disk address of the 
bogeEred for the duration of Boxy. gucve set an eer ote 
e queue scanning. e las ueue set 1s field 
% ‘ : contains binary zeros. t t 
3c Subroutine RELTOABS converts ; : ; | 
the relative disk address 3H any aaa management block is SHLR { 
3D The first in set queue record SRDQ i } ' 
is read in the gueuve record 5 . SRLw 
area just acquired. @ If any queue set is dletetd PDLT700 [3GAM t 
message 
3E The queue record just read in 1RBB1 OK (for the central I { 
H ioe pace ace a it is eligible } } | operator only) 
o be updated. or no 
1 - jobname and nuaber 1R88I NOTHING TO DEL&TE | 
~ Class 2s issued. | 
- RJE user id 2 
~ locai or remote dest ination 
3FP If the queue set not currently PDLT550 |$DQOS 
being processed (execution 
Switch on) the gueve set is { | | { 
| | | 
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IPWSSCLD ~ PLOAD NET=.... Processing 
LaPputT PROCESS OUTPUT 


Ce Workarea CP Workarea 


















Vemereen Yemen: 


Get length of new network definition 
table 


| y Command processor gootphase e > 
— fort anitiai house-keeping SaB 
OPSWITCH | : ica naa 
OPPLAG 2 \ 
ikl ee | cams cree tantric oat oa foz] Check if VSE/POWER WETWORKING is | mma 

{JORIGINAL | | 3 3 jes supported. t 

i| : i----->[03] Check operands: —--—_! 

\| 3 - st operand *PNEP®*® paca 

: - nd operand (8DT nage) ak pucucai 

| j 


- format service reguest block (SEB) in 





CP workarea 





c 
i] 
i 


re re ee Oa 








STYELPINIPIRINISIS IESE SSIES Seay | 














| | 
| i sax asysnchronous servwace to do the a 
oad. 
| >PNCB 
PNCNCBA peuenaes not found, issue error [eoe’> [10 ] 
j PNCTALD | 
| Reserve virtual storage for new ADT. I | 
< a ee ee - 
— : 3 { = } 
{ i | jO7} Load network defination table in core ay 
j L>NDT 
storage 
| descre }-----> [08] Validate Network definition table | 
_———————- | ~- storage descriptor. ; 
{ node entry - local entry. specification t 
—_— - primary & alternate routing node 
node entry ad*s. x : 
| —_————_—- - check if APPLId"s are uniguely | 
| defined. 
A. If severe error is detected, een > }10 | | 
release storage to hold new NDT 4 | 
| Store address of new network definition | 
table in PNCB ; 
i - save own node name in DSB 
| | rol Restore caller*s registers 
| — 
Bxit, return to Command Processor 4 | 
Root phase 5 ko 
et { 
7 | 
Vv 
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IPWSSCLD - PLOAD NET=.... Processing 


H NOTES { RODULE } LABEL REP it NOTES | MODULE | LABEL | KEF | 


1 The Command processor rootphase 
registers are stored in the save 








If neither a link nor a session 1s 
; apecareea for the prime or 

area reserved for this purpose. alternate node id in its 
Addressability to various control 


blocks is set up. 


2 Farst of all a check 1s made if 
VSE/POWER networking is supported. 
If not, error message: 


TRA3ZL VSE/POWER NETWORKING NOT | 
SUPPORTED 





definition, message 1KAa&I is 
issued also. 


If no prigwe nor aiternate route 
exists and the node 1s not defined 
as having either a session or link 
conncetion with our node, the 
entire node entry is invalidated. 


Each node entry in the new network 
definition table 1s examined for a 
SNA type node. If so, the APPiLID 

1s checked if another node nas the 


$SGAMs 
is issued. 


4 Asynchronous service is eaployed 


v $SIAS 
to do tne load with the TXT=N 


t 
| 
| 
| 
| 


| option in order to get the total 

| length of the phase. Therefore a In. 

service request block is formatted anf the APPLID is invalidated. 

9 The address of the new definition 
table is stored in the PNET 
control block and the own node 
name 1S saved in the disk 
management block for later 
convience. 


and asynchronous service is 
called. 


eed 


oa 


Virtual storage is acguired to 
hold the new network definition 
table (NDT). 


6 If no storage can be obtained, 


message 
IQ7AL UNABLE TO LOAD NETWORK 
DBEPINITION TA@LE is issued. 


7 The service reguest plock 1s 
bd dob to contain now the address 
where to load the network 
detinition table in storage. 
Asynchronous service is called to 
the actual load. 


8 First of alli the just loaded 
network definition table is 
examined if the table is valid: 

| - storage descriptor and release 
level gust match. ; 

| - An own entry aust be specafied 
in the NDT. 

| - The local node name of the new 

if 


| 

| 

| 

| 

| e APP 

ALREADY DEFINED IN NDT is issued 
| 


NDT must_be identical to the 
current local node nare. 

All prige and alternate routing 
node id*s are examined i he 
appropriate node 1s defined in the 
network. if either tne prime or | 


alternate node id is not defined, 
message 

TRASL xxxxxxxx IS NOT A VALID 
NODEID is issued and the ; 
appropriate routing is nuliitied. 


ee Oe A OO SS NR ST TS LS SS SS NT SS SS 


A A A FE EES A ER RR EE RE SE SE SS A TT ET SS SE CU EIR 


ne Se I OS NT 


Se RR RRC ESE SES FEE OAT OO PTE 
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Chart Ca 97 


IPW$S$cCM - Command Processor Rootphase 
INPUT 


| 
j 





TAOC 


command code table 


START | 
STOP 
DISPLAY 





oe 
ee cee eee eins co 


Peres Hees OP 00 ve ee ee ke oe ccm 


i 
pee gseoeeree es HU O8CF CE OO OF OF eo EE SE He SHOT SESE Be com 


ee ee hae 


PPPe cee Oe Oe ON Re PF Oe Od He BF OD Het OF be D800 on ee eon eee os en Ot eee 


' 
FP O8 09 0009 OF 0018 POO RF Oe OF Oe 08 De OO Fe OED PO OS OF 20 OTOL HEED OE OD OO FF 0208 19 02 09 OF D0 EF O9 OS OF EE Od OF 0500 0088 0008 HO Re Ot Oe ev ere 





PROCESS 
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Be 
e « 
et ies VSE/POWER task selection 


-----$ 


-----> 


Reserve dynargic vork space for temporary 
coarmand processor task. 


fo2} Initialize CP-work area: 

uu storage descriptor | 

subroutine address list. 

PIK of VSE/POWER partation 
pointers used by Various command 


03] Check af command is valid and/or 
——3I supported: 


Ae I 


processorse | 
> 


f not, issue error asessage eco >[07 
ROBT.” 7 Aro] 


----->[oa} Check 1f command is allowed: 


eae 


—----> 


-----} 
| 
| 
| 
| 


98 VSE/POWER PLM Part 2 


A- If command is not allowed dur ingfeee” 
shutdown Bg5300- issue error i, 
message 1R97I. 


If command was entered by renotefece [o7 
ecator, but command is not —,/j-—4 
lowed £ 

message 1RS51. 


3B] 


\ fares, 


or hig, issue error 


Format operands of coragand | 


/—,- 
< eeccce > PORSAT 
/ Cu-1.1 


if Poesartsag was successful get address 
of appropriate command processor phase 
to process coasand 


ce command | 


Exit processing: 


Post ECB, 


Reiease CP-workspace for temporary 
command processor and detach task. 





if one was supplied. 


Otherwise put permanent Command 
processor in 


*inactive® state. t 


To VSE/POWER task select ioneee|} 
repss 

-/ 

v 


vUTPUT 





CP work area 

















OPLEN 
OPSWITCH 
ORIGINAL 


l= 


3B 
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IPRSsCM - Comaand Processor Rootphase 
NOTES 














{| MODULE |} LABEL 


1 To keep the permanent “7? To keep the permanent command | | ~~ ~*+~CPROWO |$RSV CPRO10 
processor working even if there is 
ho storage available, the farst 


REF 
$RSV 


[mores  } MODULE | LABEL | REF | 1 MODULE | LABEL | REF 
4 Fol loz 1nd error messages may be 


WROTI 4 ceccccce COMMAND INVALID 
DURING SHUTDOWN PERIOD 

1R85I_  ccecccccc COAMAND NOT 
ALLOWED FOR RESOTE OPERATOR 


5 The FORMAT subroutine picks up the 
command in the free format area of 





page of the pageaple area is used 
as a work area. If this is a 
teaporary comgand processor task, 
a temporary CP work area is 
acquired. 


3A fhe command code table CANDTAB 
contains all valid VSE/POWER 
commands and the addresses to 


a NOS RODUER | LABEL [REF 
the appropriate command 


{ 
t 
| 
CPx 200 { 
the TCB, formats the operands, 
converts if necessary, does some 
simple syntax checking and puts { | 
the Format tes operands into the ry | 
fixed format area (see also 
OPERAND DSECT Layout) - 
After return from PORMAT 
CPRYOU 
SRLV 


| 
| 
| subroutine register 15 indicates 


| processor phases. While 
| Scanning thru this tanile 

check i5 gade to verify €nat 
| the entered command in general 

is a VSE/POWER command and is whether formatting was successful. 
| = ported by the actual 

POWER ehvironment. 

Fo. owing error message iS 
aonncus 


6 The entry point address of the 


apprOpE Ars comzand processor 





se'is_ located ne command 
Bode table CHNDTAB- The command to 
be processed is at that time 
stored in the fixed-format area in 
the CP work area and may now be 
processed = He pints iavok command 
processor phase 


1IR eccccccc INVALID 
eRe owen COMMAND. 


3A Note: the command code can 
eitner be an long or short 
format. If a long format was 
entered, the preceding *P* was 
stripped of £ the attention 


7A When an _ECB address was 
routine or $ICP routine. 


a teapors which 1s the case for 

eporary corujmand processor, 
4 A check is also rade to verify CPR100 B is posted. 

that the command is acceptanle 
during the shut-down period of 
VSE/POWER and is allowed for a 
remote operator. If such a 
condition is not true, appropriate 
error messages are issued and the 
incorrect command is rejected. 


73 If the temporary command 
processor is active, the CP 
work area is released and the 
task detached. 
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PORAAT -— Subroutine 
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check if operand is alphameric 


If more operands, ..e.- 


ope 


Exit, return to Callereee 
es 

=] 

-/ 

¥ 


I¥PUT PROCESS OUTPUT 
| cP TCB | “Tbs | 
e o 
ceca | SOAIT dad Caller | 
oe | wren 
| t-----> [03] Set up input and output pointers. | 
t----->]oz] Scan operand until the maximus fece > 03 | 
| : number is exceeded. _—,/ 
3 -If so, issue error message 128911. ep 
: WOrk area 
-----2/03] If tst character of operand is a quote OP ERAND 
$ | and operand is supposed to be in quotes: 
7 —, OPLER i 
3 [strap off enclosing quotes and Joes >|O7 _ —_——__— 
| | : rouue double guotes to single ar i- 7 OPSWITCH 
: a ORIGINAL 
: | ; >| |OPKEYOP 
cee O4f Obtain operand ; OPKEYWRD 
: | alle ——* OPHEX 
z~~--—>[05] Do command specific formatting: aE pa >} JOPDEC | 
: OPFLAG< 
| : A- Strip off retained ®+* or *-* sign, 
: if applicable (PRESTART only) rt 
: B. Strip off preceding *** sign, if 
: applicable 
3 C. Handle znd operand of PXMIT eoe >(07 
: command a [r= / for ] 
2 t ! 
4&----—->}{06] Check / process operand 
| A. Strip off hex notation, if t | 
applicable 
| B. Splat operand in keyword and keyword |7~ ——'"| 
| value, if applicable 
Cc. convert operand if applicable : 
- decimal value to Dinary 
~- hexadecimal value to binary 


NOTES 


Tnois subroutine formats the 
operands of a_VSE/POWER Command. 
Tne positional operand -is 
collected from the free~forrgat 
area of tne TCB and formatted 
the fixed- format area of the CP 


into | 
work area. This fixed-format area 
1s passed to the various command 
processor phases in order to 
process the command. 

he operand contents are, if 
applicable, converted into binary 
values. The keyword operands are 
split into keyword and keyword 
value. If the operand is | 


surrounded by a hex notation, this 
is Stripped oft, also + and - 
signs and * are stripped off. 
Flags are set according to the 
Characteristics of the operands. 


Following 


Beoeegee aay be issued: 
I comman 


code TOO MANY 

S, COMMAND REJECTED 

I command code la TOO 
i 


WO a 


NO hee tah vot 


aCuwDa 


command code 

MESSAGE/OPERAND DOES NOT START 
WITH QUOTE 
4RS2I commana code LAST OPERASD 
INVALID 

After ceturn from this subroutine, 
register 15 contains the return 
code: 

0 - valid formattin 

4 =~ error detected 
formatting 


oO 
a] 
& 





during 
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| MODULE } LABEL | 





HOTES REP 

4% The remaining operand area {free 
format) is scanned for a deliaiter 
(blank or comma). If not tound or 
tne length exceeds the maximus 
Lamit he operand length is set 
to 255 to in icate the supsegquent 
command procesing routine a too 
long operand. 


REP SODULS | LABEL 


PRHO0OO 


Py | 
. 
i ae 
| P| 
| a a 
Pa 3 
| oasis ot 


| 


a or ree eS BT re CT OO 


ooo 


\ 
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MSG - Subroutine 



















NOTES { SODULE | LABEL | REP NOTES { SODULE |} LABEL | k&eF 
The command processor root phase . | - Write aessage to central 8SG000 $aTO 
t EPUSSCS eontaans ths code 4 this operator 
subroutine. Ss entry poin 
address is stored in the CP work H - Write rgessage to central 8SG020 swTtek 
a ay SCRUS Baking pracecane to operator and wait for his reply 
a other n SSO 
phases. - Put message into remote (RJE) 8SG030 $SRAS 
; / ; message queue 
| This subroutine writes a message 
to the Contras Operators piaces a - Handle AUTOSTART asessages. $aPc 
message into e remote aessage 
H queue or sends a message 1n nodal i - Queue message destined for 1 ASG060 $ics 
message record format fo another another node to ap ropriate node 
node. control block (NC . 
If some value must be added to the 
message text, a flag SWFLAG3 aust 
have been set to indicate that 
register 5 contains the address of 
that TCB from which this value is 
to be fetched. 
Following functions are provided 
by this Subroutine : 





RSLTOABS - Subroutine 
NUTES { MODULE | LABEL REF - 
Pras 


| 
VERCAUTH - Subroutine 
NOTES | SODULE {| LABEL 


This subroutine checks is the 
issuer of the coapand is 
authorized or not. 

If the issuer has not enough 
authorization, Beaeae 

1R85 ecccccce COMMAND NOT 
ALLOWED POR RESOTE OPERATOR or 
MRA7I cececccee COMMAND NOT 
ALLOWED ON NODE nonnannn is 2rssued 
depending on the issuer of the 
command. | 


WOTES { SODULE | LADEL | MEP 


The record nusber is computed py 
daviding the relative disk address 
by the number of records on a 

track and adding one. (The one 1s 
added because the first record is | 








This subroutine converts the 
relative queue record address 
passed in’ register 1 to an 
absolute address, whicn is stored 
in.an eagth-byte receiving field 
addressed py register 2. 

When the queue file resides on an 
PBA device, it 1s not necessary to 
convert the relative queue 

address, because all ' 
operations are performed witn | 





used internally). 
The absolute track (head) number 
as equal the relative track nurgber 


he absolute cylinder number | 
equals the relative cylander : 


relative block hurmber only. number plus starting cylinder 


nuaber. 
After return from the suproutine 


the format of the eight byte 
receiving field is aS follows: 
- FBA: *a RRBBBBE 

~ CKD: a” CCHHR® 

a 


| Rius the starting track nuaber. 


record number 

track nuaber 
dinder number 

PBA block number 


brat 


AH 
cc 
B 









REP 


| 


NOTES ( BODULE | LABEL 
The subroutine returns with a | 











displacesent of 0 when the issuer 
is not authorized or with a ; 
displacement of 4 when issuer is 
author ized. 


The routine is called py means of 
the IPWSVCA macro instruction. 
The macro expansion has set u 
register 0 with a function code, 
deScribingthe command to be 
executed. The function cade is 
used as an index into appropriate 
tables which define for eac 
command the authorization level 
required. 







a eherestemetincetaneshantetemntsanstinmntaanteidinaanemetaambmneiatetiedhtenentennalmbeanedl 
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TCBSCAN - Subroutine 








NOTES | SODULE | LABEL | REF BOTES $ SODULE } LABEL | REF 
This suproutine scans the T Tne field CP#TCBPT will conta TCBSCOO 
chain to locate a TCA chet Seats 1 the address of the fCB tae se aeets 
- 4 criteria set up by the caliing the criteria or is zero if 
routine. scan was not successful. 

Criteria might be any of the when continuation of the scan is 
following iff any Combination: Requested. by the calling routine 
- task id CPHTCBPT is Y assumed to con cass the 
- device address address of the TCB where t 
- remote id panary) previous econ te sckhe is CpETAPLG 
- remote id (decimal). must be set ning at the 
next TCB in ences is requested. 
A criterion is met if the arguaent 
field matches the corresponding H 
field in the TCB or the ergament 
field contains zero. | 


| PRESET | Td | 


ATTACH — Subroutine 
NOTES | MODULE a LABEL 


NOTES 


| REP 
The Spool. entries in the Bere ae ton | 


AODULE i LABEL 





is subroutine attaches a nev 


r 
VSE/POWER task. The task may be: 


ing 
Mae 


| control bl tae ero on with 
execution reader tas oO pe 

= de dederaon tp Mal irre task ateacnee are updated with the new 

- execution reader tas a esse 

- RJE/BSC line manager task Por a save-account task, the TCB 

= RUB (SEK meneger nek address is stored in the ACB. 

- sa accoun a 


The TCA has been prevscuelt = set up 
by the calling routine in 

dumay TCB located in the cP vork 
area. 








ASSIGN - Subroutine 


NOTES | MODULE | LABEL | REP NOTES { BODULE | LABEL | BEF } 





This suproutine ates the aASSGHOO Pollowing smessa i 7 
parciti tables e uPagtes VSE/POWER ; inset cecace’ BEvicE cos is sO oa | 
artition. 
o owing actions are performed: e581 ccecccecc DEVICE c N USE 
. "Pocate the physical unit block ae 
iven ysacal device 98731 ecccccec aoe DEVICE 
ini e Fabli partition TYPE FOR cee 
ownership IR95I  cecccccc TINE cuu NOT 
2. Validate a dévace is SUPPORTED or 
apportcd by VSE/E OSE ee cocecece SYSLST LUB NOT 
3. Locate a free logical unit AILABLE 
block within the LUB table tear cececece NO PREE LUS 
af VSE/POWER partition and AVAILABLE 
assigh it to the given 
physical device. COMREG 
On entry to the subroutine the SYSCOM 
DOS/VS systema is_ seized for the 
duration of the function by means 
of a SVC 22 and released on exit 
from the suproutine. 
etn ee ee ee er oe ot Me oe oh ' De eg t 


UNASSGH - Subroutine 
NOTES | SODULE | LABEL j REP $ SODULE | LABEL | REP 


This subroutine resets LUB pomeeeor SULP | 
assSigngent made for a task which 
can not be attached due to a 


severe error. 
On entry gf the suproutine 
register 2 Bust point 6 bytes 
before the LUB entif ier 
(assuming CCB). 





ISVDEV - Subroutine 





NOTES { MODULE | LABEL | REP NOTES 1 SODULE | LABEL { &R&F 


: ¥DEVOO Pollow in device type categories | 
device optained fror the PUB is are supp rt 
consistent with the task» If the tape devices | 





This subroutine checks if the 








device is not supported reader devices 


I 
55/2 O8ER or java id, a Flag is punch devices 
set in SWFLA ranter devices 


G 
On entry field *CPWASDEV® contains | iskette devices 






the type of task and *CPWASDTY®* RJE control units. 
the P device type. 
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| QRINSPCT - Subroutine 
NOTES { HODULE § LABEL 


This subroutine determines if the QRLUOO 
Ist-in-set goes record of a Sheve 
set meets the Crier te et © Sp DF 
the calling routine. he 
dente set is marked eligible for 
odifying, deleting, releasing or 


eguaebes may bes 
class 


Sobname ane Jobnuaber 
eneric jobnase 








| REP 





NOTES | MODULE | LABEL j 











terion is set if the argument 
Pista matches the corres pond sn | 







argugsent field contains zero. 






field in the gueue record or the | 


Upon exit from the subroutine | 
Keg ister 35 contains following = 






pen code: 
- gueve set aeets criteria 
f 7 queue set does not meet 
criteria. 










amary RJE user id 
local user id 
peserord. ¥ : 
- curren isposition riori 
system ia P « P Y. 
- current destination. 


pepedbe 







BINTODEC - Subroutine 

NOTES | SODULE | LABEL 
This subroutine converts a binary cvp000 
number into printable deciaal 


format. pon exit from this 
routane, CONVDEC contains the 


; decimal number ap. pe antab ble 
| format, left-juast | 


VQUEUELID - Subroutine 















} REP § SODULE | LABEL 


| 
| 























NOTES | BODULE j LABEL | REF NOTES Be nae re es Se ee, SODULE | LABEL § KEP 
This subroutine checks if the VQIDOO ~~ £4014 *CLASSPC3* contains = $|  °&4} J. *CLASSPC3* contains 
operand addressed by register & is x°80° - for 
a valid gueve identifier. Valid x°60° - for ass or PRT 
queue identifiers are: x*20° - for PU 1 
ST x°10* - for kat O£© an 
unpredictable value if none of 
above queue identifiers is 
at specif ied. 
the field CLASSPTR wall contain Pield "CLASSLC* contains the 
the address of the class tabie gaximum number of class entries in 
associated to the specified queue that particular queue. 
or will be kt te when the operand 
1s not a valid queue identifier. 





VTASKID - subroutine 
WOTES 1 BODULE | LABEL 


This subroutine checks if the . vVTIDOO 
operand addressed by register 4 is 

a valid task identifier. Valid 

Task AOeht le Aene Anes 


- PRT 
- RDR 


Ur | 
After return froma this subroutine 
register 15 contains the retura 
code: 
QO = valid task identier | 
4 - invalid task identifier 








\ REF 1 SODULE | LABEL } REF 




















i | 
i | 


VPARTID - Subroutine 













NOTES { BODOLE | LABEL REP 
This subroutine checks if the SYSCOB 

operand addressed by register 4 is 

a valid DOS/VSE partition 

identifier. This is done by 
scanning the PIB table for a 
aatching partition identifier. 


NOTES | BODULE {| LABEL 


After returs froma this routine COBREG PLBSCUO 
OTHPIBPT will contain the address 
of thee PIB for the partition 









t 
| 
concerned or will pe zero when the ry 
ifier. | 


operand is not a walid pactition | 
en 
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VERKEYOP - Subroutine 





































NOTES { MODULE § LABEL | REP NOTES { MODULE { LABEL | REF 
This subroutine checks if the VOKWOU If the keyword value is wrong, $Gaa 
operand addressed by register 4, Ressage 

j is one of the following keywords 18521 cccccecc INVALID 
and that the keyword value is SPECIFICATION POR KEYWORD ...cceoe I j 
properly specified. 3s issued 
alid keywords are: , ; 
~- CDEST The subroutine returns with a 
~- CDISP displacement of 0, when an error 
- CPRI has been detected (either keyword 
- CSYSID i orc keyword value wrong) or with a 
; displacement of 4 whea the operand 
If the operand is none of above 41s correct. 
keywords, message | | 
WRS2I cececccc’ OPELRAND ## NOT 
SPECIFIED AS VALID KEYWORD is 
issued, 


a ee ee ee ee ee een gE oe ee eee ee 








{ | SODULE | LABEL | NOTES t SODULE j; LABEL | REP 
This subroutine checks if the CLSs00 If the character is invalid $GAM 
class(es) specified in the according to the task type. 
argument list in the CP work area message 
is’ (are) walid. If so, this tR54I° ceccceee CLASS x INVALID 
subroutine places in the TCB 1s issued. 
addressed py the field CpwTCchpr, ; ’ 
pointers to aaster class table After return from this routine, COMREG 
entries. register 15 contains the return 
pupae arguments are : codes ; ae 
CPWCLAS - class(es) . 9 - valid class specification 
CPWCLTI ~— task type, either 4 - invalid class specif ication 

RDR,LST or PUN 


CPWCLDF - default class: 


: The table below shows which 
x*00" for physical 
Ss 


classes are valid for a specific 








task task: ; 
0 for BG partition Task type: Valid classes: 
1 for F1 partition LST A-Z 
etc. PUN a-2 
| CPWCL#¢C - max. number of classes RDR A - 2, 0 up to 
allowed highest DOS/¥S&£- 
} : supported 
Each character of field "CPWCLAS® $GAM pat ition nuaber 
is checked until a blank character RDR (ex .RDR) - Z, J 
is found. If the maximua nugber of corresponding 
characters allowed are processed, artition id 
message 0 for BG) 






wR87I° ccceecce TOO MANY CLASSES, 
FIRST n PROCESSED is issued. 
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IPWSCH - PDRAIN Processing 
INPUT PROCESS our Pur 


| | ' CP Workarea | 


>From Command processor Mainline ee ae 
>t | CPWFN OD 








>|04} Check if VSE/POWER RETWORKING eee >fos t a 
Sierras supported, if not, issue error —/pre— ~~ _ li 

message. A th ae Ih SESE, 
| A. Verify Command Authorization. 


A. first operand aust be *PNET® 
B. Validate 2nd operand (node id) 
Ce. validate 3rd operand (task id) 
D. Validate 4th operand. 

EB. Validate 5th operand. 


| 
| 
Check operands: | 
| 
| 
> 


If one of the operands is invalid, eee 
ab error message 1S issued and the t—,/ 
Command is ignored. 














Storage 


| 
! 
| 
| 
| 
| 
I 



























' 
: . | Descriptor 
foal If task exists, set appropriate eee ———_—_—_—_——_—— 
—~ termination code t ‘ NCBRIRTB t 
. | > {NCBITTB | 
fou} Set drained state | __t j-————— 
| a ' 1 NCBORTB i 
> {HCBOTTB 
fost t fe 
— i ae ; {NCBEST4 
ny 
Exit, return to Command processor eee | 
Root phase ee 
es 
¥ 
NOTES | MODULE | LABEL | REF NOTES | MODULE | LABEL | RKP 
1 A first a check is made if PDRNTOO | | 2D The 4th operand specifies what H | 
VSE/POWER networking iS supported. : the task to be drained is 
If not, following error sessage is { | supposed to do, either to | 
HBAS i se/pow sR NETWORKING NOT ou): SEE AE ASE REE ee, oe ! 
SUPPORTED oes | | {I Valid specification is *OUI*® or { | 
A 2nd check verifies the | *JOB Ft. ' 
Authorization of the issuer. af mone wot ebete 22 2 
i a 
2a The first operand gust be WR521 OPERAND’@# MISSING OR 
®PHWET®. If not, error acasede IRVALID t i ' 
pase t CE RRaUD ## <AMISSING OR is issued. ry 
is issued. 2E The Sth operand, if not | | 
. gaitted, must be *EOJ*. It. } 
7 NS Sode"da°Por*the Baar tter woecahona ss, isanehh a" sage 
e node i or e tas © be 
drained. The node id aust be of job rather than igreediately. i 
alphameric, first character Default is immediately. | 
fihgth of eigth brtess ff the teaitted ssceacs3 
en Qo el se 
openana is efrornous message 1R52I  OPERAND Fh BISSING OR | ' 
WR52I_ OPERAND ## AISSING ce) INVALID | 
INVALID y is issued. t 
issued. ; 
ass | } 3 The Status Byte in NCB task raha 4 PDRNTSO 
2B The NCB chain is scanned to is tested wether a task exists. If 
locate the appropriate NCB. If so the termination code (either j 
BO BCB is Found, indicating *S* or *B*}) is set in the TCB. | | 
a ho connection is 
established or even that the 4 The drained flag is turned on in | | 
node is unknown, message the appropriate task table 
IRBOI NO CONNECTION contained in the NCB. 
ESTABLISHED TO NODE nnonnoannn 
is issued. 
2c The 3rd operand is mandator 
and specifies the task id of 
the task to be drained. Valid 
specifications are *TR1 — TR7®* 
for transmitter tasks or "RV1 - 
RV7* for receiver tasks. 
*TR*® or *RV** are also valid. | 
If no valad task id is 
geese ted message | | 
1kR52I  OPERAND ## MISSING OR 
INVALID | 
is issued. { t 
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IP#@$$CO - POFPLOAD Processor 
INPUT PROCESS 





e 
se 
Bee Comaand Processor Rootphase 


for} Check authorization 
[oa | 


[102] Set up dummy TCB for POFPLOAD task 
- clear argument list for various 
subroutines. 

CP workarea 





[OPLEN ! 


| A. Validate 1st operand (type of 


| 
: 
| 
| 
OPSWITCH function) 
| 
| 
| 
| 


OPERARD Check operands | 


~ set type an TCB accordingly 
B. Validate 2nd operand (queue id or 
ALL) 





-[[—,F 
OPHEX 7 a ioe 
OPHEX C. Validate 3rd operand (tape address) : a 3 
- set up parameter list for zh hi: > fnew TCs 
*Assign® routine | 2 : ST 
De Validate 4th operand (class / , eater z---] 44 
density} 3 DYCU 
E. Validate 5th operand (class) : DYSI 
FP. Validate 6th operand (no-rewind 3 DYPL 
option / old node name) 3 j = loyer 
Assign tape devace :7 lov H 
- save PUB address in TCB of new task H el Dene t 
If unsucessful eee 5106 27 a t 
/ : DYRS { 
~~ 


Return to Command Processor Rootphase 


Exiteece 
=] 


tt 
t~~-—= >fos} Attach POFFLOAD task 
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OUTPUT 





Class arg-lis 


CPWCLTI 
CPWCLAS 





oe EE CY SN SE TT ee Se TN A SE Gar ERE SO 





| 


a RN Pa ETE NE SE SR ES SE SE SN TE Ne SP SO SS SE SO A PN NO SNE 


| 


Licensed Material - Property of IBM 


IPw$$CO — POFFLOAD Processor 
NOTES 


REP 
SYCA 





MODULE { LABEL 
1 The command authorization “7? fhe command authorization | |POPFOOO |$vca 
subroutane, located in rootphase 
of the command processor, 1s 
| called to check the issuer of 
the command has enough 
autorization to do i 
If not, the comagand is rejected. 
3A The first operand is mandatory POFF 100 [SGA 
and is either "SAVE* or "LOAD 
If none of above is specif ied 
message 78521 cccecccc OPERAND 
$# SISSING OR INVALID is 
issued. 
3B 


POFF 200 |S$GAS 


t 
POPP300 {$GAK 
POPF4U00 
To check for valid tape a | 
' 


and density the PUB is scanned 
for matching specif ications. 


COTES —“‘(‘(CSC*CSC*t*SCSC*CCC*C*C*C—~*SSCODULEE i LABEL =| REF 
The 2nd operand specifies tne 
gueqe to be saved or re~loaded. 

alid specif ications are *RDR*, 
*LsT®, "PUN®, "XMT® or "ALL*. 
In the last Gase all queues are 
rocessed. 
he *Verify. queue aq® 
subroutine is called for this 
BUrpoge. If none above is 
Specified, aes 
ecccccce 
SPECIFICATION is issued. 
3c The 3rd pperace specifies tne 
address of the tape device to 
be used. If invalid, aessage 
WRSzI cecececec OPE BRAND #? 
INVALID is issued. 


MISSING OR 
3D Por the *"LOAD* function the 
: erand specifies the class 
ich wall be given to all 
queue sets being re-loaded. The 
Operand is optional and if 
omitted, the quese pete Pad 2 
their original class. 
specif ied. the "CLASS* 
subroutane is called to verafy 
the class specification. The 
comaand is rejected when the 
class specification 1s anvalid. 
3D 
| 


The operand defines for the 


*SAVE® function the density of 
the rere device. If the operand 
is omitted, the default density 
is taken, otherwise the 
specif ified density is checked 


according to the device 2 8 aoe 
ress 


If the specified device icon 
is not defined in the DOS/VS 
system. message 
R58I cecccecce DEVICE cuu IS 
NOT KNOWN is issued. 
If the device is not a tape 
mevachs message 
WR74I cccccccc INVALID DEVICE 
SPECIPICATION is issued. 
as a wrong density is 
Specified, nessa 


Sead 


RS3I etcccece INVALID 
DENSITY is issued. } 





38 


NOTES 


“38 The operand defines for the | | [(POFFS00 } defines for the 
eave function the class(es) 
of the appropriate queue to be 
saved. Valid specifications are 
Ly - zZ*, Tt] - e Or =e 1n 
which case *n classes are 
processed. The operand is 


invalad if either all queues or 
the XSIT gueve are to be saved. 
The operand is optional and if 


onitted, the {oetsukt class 1s 
*a*®. If specif the "*CLASS® 
subroutine is acted to verify 
the class specification. The 
command is rejected when the 
class specif ication is invalid. 


In case of invalid class 
specification subroutine CLASS 
has already issued error 
message, SO a Dranch is taken 
to processor exit 


operand defines tor the 
eS ad function the ho rewind 
opt Lee: If "HWORER* is 
specified, the poffload task 
does not rewind when all queue 
entries are saved nor rewinas 
to the tape load point at the 


aan 


operand defines for the 
Take function the no rewind 
option. If "NOREW* is 
specified, the poffload task 
does not rewind when all queue 
entries are saved nor revinds 
to the tape load point at the 
og Lapeer « 


operand defines for the 
atts function, the old node 
name. If a node nage is 


4 righ donee) as the name is saved in 
t new 


In case of unsuccessful _ assignsent 
subroutine ASSIGN has already 
issued error spessage, so a branch 
1s taken to procesSor exit 


Task identifiers are *WLST®*® for 
SAVE function and *RRDR* for LOAD 
function. Tape address, density 
and class paraagters are stored 
into TCB 


| 


SODULE 


_ COFBS ee i—(i‘(‘(sSCSCSCidEC DUE | LABEL | REF LABEL 
eegielelaie 


| 
| 
: 
: 
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CHART CP;  LPwS$CP 





IPWS$SCP - PSTOP Processor 





IsPuUr PROCESS OUTPUT 
| [obs | | | 
| ee ros Compjand Processor Rootphase t 
fos} Initialize default cancel code and clear 
argument list for TCBSCA¥ subroutine 
CP workarea 
e—~--->{0z] If Ist operand is partition ad: 
OPLES rien 
~~, 
ORIGINAL as Process PSTOP,partition eee 
OPSWITCH CP-1.1 /\ 


OPFLAG2 
OPHEX 
OPDEC 


foruPiBPr I 


CRP workarea 


ooo If ist operand is "RJE*: 


Process PSTOP RJB,.«.- 


-----3fou] If Ist operand is *PNET®; 





CP-1.2 


i 


—_—+), 


Process PSTOP,PWET,... ese > 07 | 
cp-1.3} °” 


bone 2}O05{ If Ist operand as valid device address 
(Cuu) : 


° 
e 
. 
° 
° 
e 
. 
° 
e 
ry 
. 
ry 
e 
e 
. 
e 
. 
. 
e 
° 
° 
. 
° 
e 
e 
e 
e 
. 
e 
. 
e 
° 
. 
° 
. 
. 
. 
. 
. 
e 
e 
e 
. 
e 
. 
e 
e 
e 
° 
e 
. 
° 
e 
° 
4 
» 
7 


— 7 
Process PSTOP,cuu, a+ coe $[07 | 
CP-1.4 


foe] Otherwise issue error message 1R52I 
J 


Return to Command Processor Rootphase 


Exiteee 


+ 


Z 


2i 
























NUTES 


The PSTOP command has the 
following format oueeer 
PSTOP uraddr<, £OJ> 

PSTOP uradar<, RESTART> or 
PSTOP partition or 





} MODULE | LABEL j{ REP NOTES SODULE {| LABEL 





" ‘Eogeeral the task control blocks | | | the task control block, 
sp@cified by the first operand: % 1s 
proyijed with the cancek code 


Ss OTS —C—C(‘(CCS CODER t LASEL | REF 
vote: **, «eSTOP RJE commands are ' 





PSTOP lineaddr<,EOJ> or not supposed to be processed py 
PSTOP RJE,SNA <tunaae><, BOJ> or this processor. 
PSTOP PaEt, nodeid<, 


2 The *Verify partition Id* 
where is: subroutine’ is called to cneck if 
uraddr : Specifies a the ist operand is a valid 
device address partition id, Ragen =: ard ere 
in the fora systea. If so, su 
aa cuu or x*cuu® returns in stat *cBuBIBEE® the 
partition : Specifies a address of the PIB of 
valid partation artition concerned. Gtheceise the 
; identifier ield contains zeros. 
lineaddr : Specifies a 
line address 
t ! 


in the fors 

cuu or x*cuu* 
Specifies a 
name of a 
logical unit 
naae of node 
de~act ivate “when 


5 That can be either i line address 
or a unit record device address. 





lunaae Pollowing sessage will be issued: 
§2I_ cécccccce OPERAND Se “ATSSING . 


By: 
oR INVALID 


ry 


nodeid 
EBON 


tees 


transaission 
coaplete 


EES ES RE A ES een 
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Process PSTOP of partition 
INPUT PROCESS OUTPUT 


Bainline 


| sre 


Bake authorization check | 
If not authorized: fo-e">foe | CP workarea 
‘| 


[Esa] 
ane |e 


CPWTATIL 


le PWTCBPT | 


If further operands are specified, feos” 
issue message 12521 


—e_ 
| 
a) 





Set up *TCBSCAN® argument list: 
- partition id 


Scan TCB chain for execution reader TCBs 


/\——’- te 
< ecececee > TCBSCAN eae 
—a/ 
06 

















CTU S IRIS CISIMIS IS EIEIO Se 


ed 
A. a one TCB found, issue message A 


[ Pied 


| 

TCSP fo wereetscorn- ee ee a a a a hl a ee BS a sa cine! ae 
| for] fences 
| 
| 


-----3fo5} Insert stop code into TCB 

Indicate immediate stop wafreguir 
If task is not in *L or tae" state, 
post task disnetehants 








dle 





Return to Command Processor Rootphase 


06 
eter 
ye 
-/ 
| v 


a 
BIR 
e 
ee a I ON et RN RR A 








R521 ccceccce OPERAND ## TN VALID 
a ee a pe TR a NE 


DBSIGNATES NON-BXISTING TASK 


NOTES 1 MODULE } LABEL | REF ' §SOTES $| MODULE | LABEL 4 REF 

1 The *Verify command authorization® | SVCA & The subroutine reurns in field 
subroutine’ is called to check if *CPWTCBPT® the address of the TCB | | 
the issuer of the command has | macthing the criteria set up in 
enough authorization. the argument list. | ! i 
If not authorized, the command is 5 i 
rejected. Poriosing message will be i 

issu 
2 ror owang message will be ued ; SGAs WwS1E cccecccc OPERAND 1 
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IPWS$CP -— PSTOP,RJE,SNA Processor 


Ispout PROCESS 


2L 


ece >Pron 
/ 


Mainline 


cat 


[cass } 


| 
CP workarea | 


OPLEN 
ORIGINAL 


| 
| 


cle 


OPDEC 


Pee Oe on or 0 9988 On ee ee ae Ohm 


Check 3rd 


ic 


Lock SUCB chain 


0000 00 00 00 90 00 or es on Oe De ROL ee eres Bees oe tem 








t REP 
[erst 


$Gaa 





1 The *Verify Coamsand SUEbOF Azat4 ont 


subrout ine’ is called to check 


the issuer of the command has 


| | MODULE | LABEL 





enough authorization. : 
If not authorized, the coamand is 
rejected. 


<2 FPollowing mpessaye will be issued: 
WR65I  ccccecccc RJEZE,SNA NOT 
SUPPORTED 


3 The 2nd operand must be "SNA*. If | 
omitted or wrongly specif ied, 


$GAM 


message 
IR52IT° cccecccc OPERAND ## MISSING 
OR INVALID as issued. 


A_vaiid logical unit name is 
alpharmeriac, first character 
bytes. up to a length of 8 


b 
If invalid, 
WR5 ZI 


aeenare 
ccceccce OPERAND ## ASISSING 


OR INVALID is issued. 





erand, 
set termination code 








Make authorization check 


If not authorized: 

er errr >10z| Lf RJE,SNA not supported issue 
= message RO6SI BP 

Check znd operand (*SNA®*) 


Check 3rd operand if not omitted 
If *BOJ*, set termination code [ooe” 


Otherwise assume logical unit name 


t-----5fo7] If SNA 1s not active unlock SUCB [ooo "> iW 

ame Chain and issue message 1tRoSI 7 

~---------->]/038] If luname specified scan SUCBS and LECBS 
t— J foc matching luname. 

: A. If not found, unlock SUCB chain 

$ and issue aeSsage 18931 

: Be Set termination code 

: SNCB 

ef 
foul Set termination code in SNCB fork a [SNTT t 
| oe Y Ve Goce oS 
SHSS 

fia} Post work ECB and unlock SUCB chain a SNEP 
fa | JL te 
—> |LUTT 
| Exit, return to Mainl ineeee LUSS 












if not omitted 


OUTPUT 


CP workarea 





CPaTtTc 
| CPWLUNS 


° 
| e | 
° 
Ne 
Vv. 
= 
- 
Vere Veneer ene ene eerenrennesee women 












sa oeme ae \/tem N/mm eames Ny/stee Vem: Vere en een aCe AEN TS AN I 





NOTES ' 


SODULE { LABEL | R&P 





The 3rd@_operand must be "EOJ*. | Pree 
If invalid, message 
WR5S2t cecccccec OPERAND ## SISSING 
OR INVALID is issued. 
The SUCB chain is locked for the SHSR 
duration of the scan. { 

: SHLu 
Following message will be assued: 3GAM 


tR6O5I céccccce RJE,SNA BOT 
STARTED 





issued: 
ceccccce NO SESSION 


Port og ing message will be | 
1R931 
ESTABLISHED POR LUNASE | 


Chart CP 





eee perenne Shane tale CAE ED ND GERI? HERDER Pe HRI LETS ONS ES A SS AN EE SS TI SSN SN NE SE STI ase sony ee 
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OUTPUT 








INPUT 
ej 
ois, 
{ E >Proa 
/ 
a 
cat 
[caPn } ------------—-------- fox] 
CP workarea : | 
OPZRAND cori 
OPLEN 3-——i at 
ORIGINAL 2 fp} 
PUCB eee oe} 
PNCBNCB 
a] 
BCB > fr} 
| NCBNEXT 
NCBMAME 
| 
| 








authorization 
« Following sessage will be 1ssued: 


1RA31 command code VSE 
NETWORKING NOT SUPPORTED 


3 The only valid specification for 
the ist operand is *PNET*®. If 


OWER 


: not 
issue message: 


1RS2I operand xx aissing or 
invalid 


| The 2nd operand specifies the node 
| id whose line is to be stopped. 
It 1s manadatory, alphameric 


5 
Issue IPW@$VCA PSTOP,PNET to check 
i 
first character alphabetic), | 


ength <=8. If not issue aessage: 
R521 operand xx a@issing or 
invalid. 


Scan the ACB chain to determine if 
node id is valid, if not issue 


| message: 7 
See Se ee . 
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MODULE {| LABEL 


Aainline 


ew 


Sake authorization check 


If PNET is not supported issue 
message tRA3I 


ad and if 


Check operands of cosas 
PS R521 


invalid issue message 
Validate node id specified 


A- If not defined in the HCB chain 
assue message tRA4I a 


uceTtc 
NCSACTI 





Determine stop code 





Post the line driver 








Issue message 


/—_— .. 
< eeseee > 
?{-—_—=—_ 


Exit, return to Mainlineeee 
e 

=3| 

[-7 


So 
i) 
er CT CE A pr APACER EEA rr Cn er Cem te A 


1 REP NOTES { SODULE {| LABEL 
SV¥CA | { 
PRAQL xxxxxxxx invalid node-id | 


The 3rd operand is optional. Only 
when current transpission is 
complete will it be de~activated. 
The only valid specification is 
*Z0J*. If not issue message: 


{ WR52I operand xx missing or 
anvalid 


5S Ismediate stop flag will be set 
for default when *EOJ* not | 
specified. Immediate stop vill 
take prior ity only if NCB 
termination type is already ‘*e® 
for eoj or if blank. Termination 
type of *e® will be set in tne §CB 
when no termination code already 
exists. 


Post the line driver so that he 
can propagate the stop condition 


HPS ETD ASEM TED EIR SPER TES Ie ITE IN SUP IE Ce OE 


ars 
4 
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PSTOP, line/device address Processor 
INPOT 


| 
CP workarea | 
forzaan> I 
OPLEN 
ORIGINAL 
OPSWITCd 









—— 


3 


beer cece ervegeee oem 
eC er er ener sees ee rom 


- 


TO 900d Ceo ee neee De DH Es oe OD tere etm 


THO OH OD OF 00 OP ee OH Oe OF Ee OR Ee OE HO Et OD on ee or ee 


Pree en eves ce oe eege ereeere 


pr Sa ee ne ANN LENE SD CO ST a ST GE "SERS SATE SD ue Pr Se See SSA ene ep nce SO ee 





NOTES 


subroutine is called to che 
the issuer of the command has 
enough authorization. 

If not authorized, 
rejected. 


a re rere 


Za The 2nd gpenant 
must be *Rov*. ff not 
cececee OPERANDS 


MISSING OR INVALID 





t# 





scanned to locate any 
list or punch task exist ing 
the line bein BrOpP aa. If 
the task is s opp 

the stop code in 


a 


if necessary. 
The *"TCBSCAN® subroutine 1s 
used for this purpose. 


| 


Prod 09 00 0808 FF Ee 0 De OF Es F908 OF G0 08 Od O0 Oe HF 00 08 POOR OD BEBE On Oe 000s Bem 


coven eeneeeennecmmeen \ fem emma emanates ee 


The TCB selection list 1S _now 
reader 


Ey 


PROCESS 





eee edie Mainline 


t 

i 

' 

! 

t 
Vere 


1 The "Verify comaand SUCRE ize tion 


the command is 


if specified, 
message 


is issued. 


for 

SO, 
by settan 

nto tne TCS an 

setting the task dispatcnable 








-~---~----> 


MODULE | LABEL | REF NOTES 
$VCA The znd 
omitted 
*RESTART® 
| message 
| 1B521 
SGAM 


lfoal Make authorization check 
[a 


If not authorized: 


Ozj] If Ist operand is lane address: 
A. check 2nd operand 
- set termination code LCB 
8%. Locate line control block (LCB) and 
{ set termination code. : ) (fig, teiadaed 
C. Post RJE,BSC lane manager oak ee KJE Laine manager 
D. Process stop propagation rae || DES TCB 
- insert s os code into TCB*s |- 
~ andicate immediate stop if pat > [{rces } 
required ; cece [_ a | 
- set task dispatchable if 
required. TCB 
. ' 
E. eee > > "?CTT 
[7] i 
TCSF 


If 1st operand is device address: 


Check if 
*RESTART® 
- save termination code 


Locate task control block 


A. 


B. 

Ce ; 
not writer task, 
message 


Insert stop code into TCBs, 


issue error 





De 


task dispatchable if required 


[2] 


Exit, 


oopann araramnemenem | 














ta521 





tne Ne EE TEE tate OO EE ERT 
a 





2nd operand is *EOJ* or 


If 2nd operand is *RESTART®*® and 


‘ 2 E indicate 
imgaediate Stop if required and post 


| 
return to Bainlinesss] 
e 


erand, if not 

an either be *B0J* or 
* which is only valid 
for a writer task, ; 

If none of above is specified, 


eccecccc OPERAND 
MISSING OR INVALID 


Following error is issued 
cccce 
MISSING OR INVALID 


OUTPUT 


. 
° 
9 
Noe 
ae \Y enero 
o 
- 




















eel 


ra 


ei 
y’ 





o 
is issued. 


- 
; | 
|| 


Chart ce 





| MODULE {| LABEL 


ei 





| KEP 
SGAK 


$GAB 


a 
= 
4 
- 
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CHART CPP: IPwshCPF 





IPWSSCPF - PFLUSH/PHET Processor 
INPOT PROCESS OUTPUT 


| CP Workarea 


CP wWorkarea 












or receiver task entry table 


va 


= | 
NCBNABE 


NCBEDS 


fo7] Set termination code 


Exit, return to comanad processor 


es ee 


Le eterna 


' 
' 
' 
' 
! 
! 
t 
] 
! 


i 

iar coe 2From PFLUSH command processor | 

ee =e — 

! Hi &----—->/01] Check md operand (node2d) . pep eee rr aR TREY | 

| cart jl ~y i-----3----- fo2} Check 3rd operand (RVn or TRa) i E { 

a ee : : | 

| [cary 1 2 3 i----- lea Check 4th operand (JOB or OUT) {| ! : 1 

| 2 ee 04} Check 5th operand (HOLD ” aumemneanemen | pall € 

| PNCB | : fou} P pone) oe, Te 

> a--------i---—-, ™. : | 

a ee (ee | | ie @ 

if b~—---3----->]/05] Validate 2nd operand against NCB chain : 

ee | : : 

ae 

NCB eens | : | 

i Fe Se VSS sew ee —s : 

| <se= [06] Validate 3rd operand against transmitter -~-~---------—-—4 | 

| wchuake | 

I t 

meee | 
| 

) | =e} = | 

| - | 


NOTES | MODULE { LABEL | RBF 





NOTES {| MODULE } LABEL j KEF 


R521 erand xx missing or 
invalsa . iy | 


1 The znd operand specifies the node 
id, to which a transmitter or 








receiver flush will be requested. 
-It is sandatory 5 Reserve the PNCB and get FRSR 
-It is alphameric add rasseb it ity to the NCB. Scan 
-length not greater than 3. the NCB chain until node id match 
| f ho, issue message: ais found: If not found issue 
message: 
| pRo2t operand xx missing or ; ; . 
invalid TRAST xxxxxxxx invalid node-id 
| 2 The 3rd operand specifies whether Index the Transmitter or Receiver 
| we are flushing a transmitter or a 
receiver and also specifies the 
specific line. That is RVn is 
valid when n=1 a 7 
-It is ees afory designated 
~The oneyY id” specification as 
ae 9r n where a=1 Set the TCB termination code equal 
to the following: 
1f cries valid issue eeewe*: *s* —- if receiver was specified 
*h® — if transmitter hold was 
a foe 
inva -_ if only transaitter was 
specified (no hold 
3 The 4th operand specifies whether was specif ied) 
the transmitter or the receiver is 
a job or output receiver or Release the PNCB SRLR 


transmitter. 

-It 1s mandatory 

-The only aaa specification is 
*JOB® or *OUT 

Otherwise issue error sessage: 


1R52I operand xx missing or 
invalid 


4 The 5th operand aah earn that the 
quece entry of the flushed 
SE/P OW ER pob/out ut is not to be 
deleted bu an a HOLD 
state. ; 
eee is optional for a transmitter 





— 
eamregaie 


aske 

ot not valid for a receiver 
aske 

~The oniy valid specification 1s 
*HOLD®. 

Otherwise issue error message: 


| 
|| 
' 
| | 
Z 


; Table to find task entry match. 
| If no TCB found issue: 
R531 non-existing task 


rr ee ree re Si ere rte Te TRE SEP AT SENN SRS GES SPREE eS SD Gees PSR Ge: SODAS senee TUES 
eT RIES Se RE A SE SE SN HSE OSE EC EE SC SE EN SR SPS SPOR PU pe SE ne SSA ci 


he RA SE RE TEE EES OES SR FE EST TET EET SEE PETE TN SEY FON AP PIT 


Chart CrF 417 


Licensed Material - property of iBm 


118 VSE/2OWER PLA Part 2 


Licensed Material - Property of IBA 


CHART CPS: LIPWSSCPS 


fhis page was lert blank intentionally. 
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IPWSS$CPS- PSTART/PNET Processor 
INPOT PROCESS ouTPUT 


| 

















oa ie i i CP Workarea | 
coe ZF ron PSTART command processor | Pane | 
ress 
—----3[o1] Check operands: | 4 ine 4 
assvor 
amon A- Check 2nd operand ‘(node id). r~—---- [Node id | 
: | B. Check 3rd operand (node password). : Hode r | 
: : aSsSwor 
‘--——— C. Validate 4th operand (BSC line addr/ : —_—_—_——— 
: 3 SNA Trace): Bane 7 Trace Plag 
4 . - If operand not specified, set SHA . -_—_—_——_———_——— 
$ : flag. : pron i-——--— «|SNWA Plag 
2 : - If operand value is *PRACE" set | . : 
30 pttseceo > SNA lag and trace flag. 2 7 | 
o> Ss. 4 - If SNA flag, veraty that node Keene : : 
s ss iS was generated as SRA type. ¢ 7 > 
>PECD z= 2 - Otherwise assume BSC line address. : = ami pee ee 
= 3 3 D. Validate 5th operand (line : : scbididrinn ecry 
PHCBVDCB a es password). 3 $ NCSPROC 
Done! z: io: EB. Check 6th and 7th operands (TRACE or : z MCBDVAD 
PNCBNCH a NORESTART) . | : 3 aCADseD 
2: if any operand is erroneous, then [oee” fos : 2 CBN AME 
3s 3C6s issue error rgessage and return to /t 3 : —_——_——_—_—__——— 
S> it oS caller: $ 3 CBP WRD 
2 ob : : : wCBDATE 
? si--i----->]0z} If SWA node and VTAM terminating, eee >[oe | : 2 ———— 
sesseeseet 3s OS issue error sessage, indicate error, 4 : . 
Saar and return. : 3 —_—_—— 
ss So i <b 3 NCBANJB 
----------- a Acquire storage for node control block : NCBANLB 
: 7 (HOB) If no Ztorage available: 4 pcb 
: : A. Issue error message. 3 -__eooo 
ze B. Return to caller. eee > : ee 
: : 4 : BCBLPU 
= 6 2 SCBTLIB 
: 7 } 04] Create node control block (NCB): : ————————— 
: 3 : | [SCBFREA1 
: i-----> A. Set up NCB with information from: —--——--------- | BCBLDA 
3 | - operator | 
: ~ network definition tabie (NDT) BCBLPW 
: - if BSC node, line entry im line 
: table 
z B. Define the id@"s for the Transmitter WCBAPLID 
5 and Receiver Tables _——$<$<$—$—$— —$ 
2 C. If transparen feature has not cee >fos | ——_—_————————— 
S been Specified for BSC line, [-=-7 {08 | | RCBACT1 
: issue error message. | i 
: D. Indicate node initialization 
: requested. 
: E- Indicate node type (BSC or SNA). —— | | 
z | wCBTYP 
Hi Queue Node Resources | | 
: cPS-2.0 —______—_} 
=] 
: If any error, return to caller. [r= 73 08 
: | [26] If PNET line driver not attached, then | 
7 attach line driver. 
3 Dispatch PNET line driver. | Eine Driver 
: | re [rcep } 
>VDCB : | [oe] £xit, return to common processor exit. 
YDCBITC) =| ----------- 3 | 
eee 
| =] 
| a | | 
| 


| 
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IPWS$SCPS- PSTART/PNET Processor 
Coe = | eee ee ae Pe ee OP eee LP EE er eee 











For a BSC node, the last two 
operands can be TRACE or NR. 
Both are optional and can be 
specified in any order. 
For an SNA node, the TRACE 
operand may be specified. The 
seventh operand is_ ignored. 
| TRACE means that all I/0 events | 
for this node are to be written | 
into a trace area. | 
SR means that no restart for 
the node has to be tried 
whenever the node is signed-off 
due to time-outs. 
If neither TRACE nor NR has 
! been specified: 


W521 
INVAL 


Z youre xx MISSING OR | 
is issued. 


NOTES { SODULE | LABEL | REP | NOTES | MODULE | LABBL {| REP 
a The 2nd operand specifies the | } pate 2 YVDCBTTC will be checked if the 
node id, to which the following bits are set: 
connection should pe i i VBCBTTCV = ACP/VTAM Abend 
established. VDCBTTCE = ACP/SVTAM noraal t 
-It is mandatory shutdown 
~The first character aust | 
Pe al phaseeric, and ore S If VTAM terminating, issue $GAK 
- message: 
If to, assue message: 9 
THSZI  OPERAND SISSING OR ACPAVTRA, TERMI BOERS aemeene | 
Z xx 
INVALID | Hi i 
3 Storage is reserved for the node | SESW 
SGAA control block. 
The NETWORK Table is scanned to 
examine if node id is defined. If no storage can be obtained, $GAB 
If no, message: } | } | message: { 
H WRASI xxxxxxxx INVALID NODEID H I { i AUEL AD BERLE PILED STORAGE i 
is issued. | 
as issued. 
If the node id specifies the own | | 
node id (first ehtry in table) the 4 The node control block is 
same error message 1s issued. tj formatted: : 
: -storage descriptor 
If the node id is not for an } | -systen date 
adjacent (link) node then the ~task entries. 
rmeSsage 1KAVI is also issued. : . 
Otherwise the node id is saved in 4A The information used from the 
the CP Workarea. fo) erator: 
el 
1B The 3rd operand is optional and SGAA ~line address 
el Gere ieee node password. pasesord (line & node) 
-Alphameric (first Cnaracter i ~header descriptor 
alphabetic), length <= 8. trace option 1 
If invalid, issue error es pnd 24 a ck 
message; e information use roa e 
NDT: 
aie xx AISSING OR af pane the APPLID is soved to | 
ne 
-buffer size 
; f “max number of buffers for 
cheese bee password is saved ain transmitters and receivers. 
e orkarea. 
mae | i | If BSC node, tke line table, | 
1c IF the 4th operand specifies a | 3GAN weeGacc en by the PLINE macro at 
bets Lane pecreees taal Vv hed fd Seheracse eieee is 
= aus e hexadecina scanne o locate e line 
-It is mandatory ¥ . | entry. The information used 
If the line address is valid, | from the line table: 
it is moved in the CP wWorkarea time out lirgits 
for later usage. -line features |. . 
Otherwise issie error rgessage: -Line password (if necessary) 
: The line passvord is only moved 
WR74I INVALID LINE ADDRESS | S rhe NCB, when bo password 
as eh specif ied. 
; SGAK 
If the PSTART is in the SNA node 4C When the line is not ecified SGAA 
Cee en gec eens ad $eptorae ted Wa | | 1 Lieiery eee gas pobetinae eature | 
en e node generation in @ in e macro, issue 
PNODE macro is checked « the flag | message . | 
be eee pe Erg t fhen is oon wRO6I LINE NOT TRANSPARENT 
e set - not Set, e@n issue ! cuu 
the error rmessage: 
is | | 5 The node control block as chained | 
TRAST INVALID NHODEID xxxxxxxx ; | ; as first entry in the NCB chain. i 
1D The Sth operand specifies the i penn } 6 The Line driver TCB is attached att 
ine password: . and formatted in the area 
-It is optional, if omitted a } } contained in the CP workarea. 
blank ssword is assured } ; ; 
-It au be alpharmeric | 7 The NETWORK Line driwer is set 
ao Fong tk is not greater dispatchable. 
an 8. 
If so, password is saved in the | 
CP Workarea. | | I 
Otherwise message: 
TRS2I OPERAND xx MISSING OR 
INVALID 
is issued. 
1B | SGAA | 
| | | 
t 


Re ee cree rr ee ome ee eer mee eee: 
Se heuincnesannetanediabaininneieenmnieeehatmaamencanet aacthnemee dheantiemmaaeantimmaatetenmentnemmnaentene’ 





Chart Crs 421 


Licensed Material ~ Property of I6a 


IPW$$CPS— Queue Node Resources 
Input PROCESS oureuT 









Ce Workarea 


e 
eit 
be ston PSTART/PNET Comg@and Processor 


Reserve PNCB. 


[3] 





ptoo omnia ---21/02| If connection already exists or pending: <---------~------------ 
: : A- Release NCS storage. 

: : b. Error exit. ee | 

3 i----- >fo3} If first SNA node: €(+-----------—— 


1 
' 
' 
{ 
i] 
' 
' 
{ 
& 


A. Attempt to alloc real space for_VDCB 
without waiting. If unsuccessful: 


- release NCB storage. 





- error exit. 





\yimwess Yemen Venn \Vomemernemumen | enenmmmenremene 





B. Store VDCB pointer to PNCB. ae 


C. Move PNET local SNA APPLID to PNHCBe }— | f____ 


D. Create VDC. a 
If SNA node, increment the number of SHA ee -_ 


00 20 00 00 18 00 00 60 oe 08 Fee 8900 Ht Oe 


zl 
t 
| | 
cee een aioe nearer eee 


[z] 


nodes. 
If BSC node, assign 8SC line. 


PUB address in NCB’ and set up CC 
B. 1f Llane not assignable: ove 40 

bese 3a 

- release NCB storage. 


A. Save progrargmer logical unit a >fa} 


- error exit. 


0 Chain NCB as first entry in queue. 


TA ee ied 


re] 


wae a——-->)07{ If no PNET Line driver TCB exists: 


A. Reserve line driver TCB storage and 
wait on storage. 
B- Create line driver TCB. 


C. Store TCB pointer to PNCB. 


Release PNCB. 








O09} Return to caller. 


i=) [ez] 









To PSTART/PNET Command Processoreee 
re be 


1 
oe emenrmeeerrrerem em 
ewer emner emerenrernceme 
| it 
errr ete re re ee ne ae Sree ec SR NT Gee SSPE Sy MS Pur 





VDCs8SSUP 
et 
VDCBASES 
uCk < 
ES Ol panera era, | 
Release pncb hal 
| [19] Issue error message and indicate error. aa 
3 —~) | wCBPU BA 
| Return to caller. | ieee 
eee | 
| To PSTART/PNET Command Processoreee i 
se 
| “| | 
«f 
v 


——— esa ee Pee 
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IPd$S$$CPS— Queue Node Resources 

















NOTES } MODULE | LABEL | REF NOTES | BODULE {| LABEL 
1 Lock P&8CB resource. SRSR 5 . ; ASSIGN 
The lane address is assigned, the 
2A Release NCB storage. SRLW PUB Address and the logical unit 
are saved in the new created sCB. 








2A If tne node is already started 
or pending issue message: 


TRDII PSTART NODE nnannann 
ALREADY STARTED 


SGA 
allowed, several error sessages 
are possible (see HIPO tor ASSIGN 
routine). 


The PNET line draver storage is 


If the specified cuu is not 
7 i a 
reserved with *vait® since this 


occurs only vith the first 


| 3A Reserve storage for VDCB. 
| 3D Tae YOCR is initialized vith: 


SESW 
3A Issue sessage: | $GAS node, and is isplies that _no 
tasks are running which could 
i¢28? NO REAL/PFIXED STORAGE be waiting on the PHCB 
7c The address of the line driver 
= storage descriptor | TCB is stored in the PHCB. 


AILABLE resource. 
VDCBSD_ = 
~ VDCBSSUP= SNA start up reg. 
Gnlock PNHCB resource. 





Chart Ces 
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CHART CR;  LPW$$CR 





IPW$$CR - PRELEASE Processor 


rHPuT PROCESS OUTPUT 


| | 


CP work area 














OPLEN 
OPswWITCH 


Verify authorization 


CP work area 
baie? From Command Processor Rootphase 
A- If not autnor ized: ooo rf 


0008 00 pe ee reed 


















-—---> fou] Check keyword operands and set u 
—2 aegumont. list fon wueue scan roat ine: 


! 
| ORIGINAL 
ue >[02| Check af Ist d i lid Q ID 

—— Tater ec. s erand is va ueue : 

OPFLAG2 3 = 

\opaex. $ | CPWQARG 

OPHEX 4 /\-——’.- as 

: < pahbhta 3 VQUEUID oo 
: : : ee CPWQAGJN 
: : naw, & ———— >] jcpwQacLa 
: Ae If invalid quene id, issue error t _————— 
: message 12521. \ CPWQACL 
: ek >} | Cewoaue 
sooo >{03| Check additional operands and set up t ——_—__——— 
: } argument list for gacue scan rout ine: | oe CPWQACDP 
. - “2nd operand (*ALL*, *abc, class or t —— 
3 jobnare) P. CPWQACPY 
: > 3rd operand (jobnurmber) —_—_ 
: 7 : CPWQACSY 
: 


- current Reson ALY 
- current dest ination 
- current system id CSYSID) 


| 
If operand is wrong:.. est 


05[| Process Queue update 
CR-1.1 


Exit, return to Command Processor eee 
Rootphase ~ 
e 
ae 


- “current disposition {CDISP) 
CPRI 
CDES 


ae Gr a Ng A PN NT A Se SN A A SR ES a TP Ne E-D-T  D 


f & 


TS a 


a ee SE ERS Se ENR SRS ene Pe en rien PNR 




























NOTES 





| MODULE { LABEL RBF wOTES 1 BODULE | LAbEL 4 











I 
e ASE comman as following e *Verify comrgand authorization 
Th long pe : dh foll PRELOOO 1 enconeeae gna | oe ra ati? ® SVCA 
oss e formats: subrou e is calle o chec 
PRELEASE, queue popnanes«Jopnuabece { | er Beek po ey The command is ai 
eyword=value authorized. not, e cosrmand is 
PRELEASE queue ALL rejected. An appropriate error 
éyword=value> meSsage has been already issued py 
PRELZASE queue, class . the subroutine. 
,keyword=value 
PRELZASE queue *abc 2 fhe *Verify Queue id® subroutine | 
<,kéyword=value> is called to examine if the 
| | operand specifies a valid queue i 
where: ad. Valid queue ids are t 
queue : One of - RDR, LST, PUN or XAT. j 
LST,RDR,PUNOr XMT 
jobnagwe : A ae Name known to 2a Be spage PREL100 |$GAH 
VSE/P OWER 1852. ccccccec OPERAND 1 NO 
jobnusber: A job nurgber VALID QUEUB 
assigned éo We is issued. 
Le) ob name 
ALL FH Speeit ies that all 3 If invalid specifications have $Gas 
acne in gueue | been entered sessage | | 
re to be released WR5SZI_ ccecccccec OPERAND ## MISSING 
class : Specifies that all OR INVALID 
ge queue will be issued. 
or is’class are 
to be released & The *VERKEYO® subroutine is called 
keyword : One of CPRI, CDEST to check if the keyvord and the 
CDISP or CS¥sID keyword value is valid. If not, 
value 2 specafies current the subroutine has already issued 
. value of the an appropriate error rmessage. 
attribute if t all 5 t h 
pai ; sobs tar the queue disposition is sen to =D? if the | 
| whose names have fhe | original disposition is *H® or to 
specif ied characters | | | *K* if the original disposition is ' 
2h COmMBOA are to be *L®. 
released 
(generic job name) 
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IPWSSCR - Process Queue update 


Input 


CP work area | 


CPWQAGJIN 


CPWQAGLN 


re, 


CPWOACL 
eae | 


TCB 


= 


epee MEO 


&>Q~-record 





QRTJ 
QRFJ 


—— 
| — 
| 
la 
| | 





| CPRQARG es 
[cpwoaBIN | 


ee te es 


Pree OF 08 Oo eo ee 0094 Or Oe 0d Oy 00 Oe 80 Oe Be Oe 88 te BO Oe 6 08 tent 


---~-> 





PROCESS 


06 


07 


[os] 
[07] 
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ouTPuUT 


Caller 


Obtain storage to hold c of queue 
record beang read ine vet q 


Set up poanter to class list and number 
of entries to be processed. 


Process each entry in the class table 


A. If class chain is empty. coe” >[ou } 
Pow | 
B. Reserve disk sanagement block. 


C.{Convert relative disk address to 
absolute address 


D. Read in first-in-set queue record. 


£.j/Inspect queue record 


FP. Release gueue set, 1f applciable 
G. Address next gueue set in class eee > 
chain, if nore exists. [t= 73 [039] 
H. Release disk spanagement block (DMB). 
If more entries are to be processed free’ fos } 
zi / 
Release storage used for queve record 


assue cospletion sessage 


Return to Callereee 
=] 


*y/ 








NOTES { MODULE | LABEL 





6 
The reader , list , punch end (ce 
xmit queue 1s scanned and eac 
queue set whach is eligable is 
extracted and updated. 
1 Por the queue record area PRELSOO 
workspace will be provided. 


3B The dask management block is 
reserved for the duration of 
the queue scanning. 


3c Subroutine RELTOAKS converts 
the relative disk address 

3D The first 1n set gueve record 
is read in the queue record 
area just acquired. 


32 The queue record just read in 
i it is eligiole 


is examined if 
- jobname and nuaber 
- Class 


to be released 
- RJE user id : F | 
- local or remote destination 
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NOTES 


When the disposition of the 
queue set is either "H* or *L® 
it is changed to *D* or *K* 
respectively. | 

Then the first~in~-set queue 
record is written back. 


Queue sets belong g.to a class 
are chained via the *QCcQu*® 
field. This field contains the 
absolute disk address of the 
next gueve set in chain. Por 
the last geeue set, this field 
contains Binary zeros. 


The disk management block is 
released. 
If any queve set is released, 


message 
IR88I° OK (for the central 


Qo tor_onl or if not 
Theor soraine ro RELEASE 
is issued. 


§ SODULE } LABEL 


| REP 
saTQ 


SELB 





SRLW 
SGAN 
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IPWSSCRE - PRESET Processor 
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INPorT PROCESS OUTPUT 
| | et | 
| ioe 11 
eee roa caller 
DAB | 4 
4RSO wr tr met en ne eee nnn If not a shared spoolin eee > 
t a env ironaent, issue nossage R431 [e- [J 
MRSY 00 fo wero te eon 7 
| : = : 
SSCT —_— bs rrr ee 73 3 foz} Reserve disk management. block 
J : : uu 
CP work area : : | | | 
: L-~--—~>}03]{ Check operands of command and if  $jeee +110 
3 _ $ invalid issue mgessage IR44I or TR52I1&—/ 
OPLEN sf Jeon ee ---- = 
| i a ae 
OPSWITCH : 
Release disk manageaent block 
ORIGINAL ce rk 
wo area 


RO nears na rN ee a ee NS aT RE 
: 


QO 
o 
) 
wn 
| 
en Ye 


. 7 
[8 


CP work area 








= | 
ORIGINAL | 


CPeTATI 
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t—!I identifiers into TCB 








—=> [cPwew1 





Store temporarily the system identifiers 
entered 


Issue confirmation message tR60D and 
check reply from operatoa: 
f*-—..j. 
< eseeovee > 
——/ 
ae | 


ASG 





/ 


< eccocee > 
——/ 


If operator did not confirm PRESET 
command, issue gessage 


; | 
ree SITES SIGE LAS SPT GN SP SPE Ge LE SAN TEMES BSE: ANS GIES Se SS SS Sn SE SS Se EN Se SE ee SR SEG S| 


Locate tiser task TCB and store syster 

rs 
acessa’s 
ro / 


Return to cogmand processor root phase 


Exit 


° 
< 
“ 





Release disk management block 


Send message 


3, 
< seceeee > 


—_—/ 
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IPWSSCRE ~ PRESET Processor 




















NOTES | MODULE {| LABEL 
The PRB8SET command has the | PCREOOO 


{ REP SOTES SODULE {| LABEL |} REF 


[--—S 


| 


following format: 
PRESET 


a 


Pollow in tote hs ill _b 
tROOD CONFPIRA eset COMMAND 8o8 


fo wores ULE Lape REF | 
SYSID. | 
Bote: The Rags > Hb valid reply froa =| | 


PCRES4&O 











sysid1,sysid2, sysid3,...,sysidn 


where: 
sysid : Syster scent te ier of 


operator is 
the VSE/POWE 


Peemenaamomn 


sy stea(s) Oh ich 7 Following message will be issued: 


PCRESsO 
all be reset | 


| IRSBI COMMAND IGNORED 
aoe identifier for timer task is 

1 

11 


oe 


Note: Systea goer pee gust be | PCRE#00 }SRSR 
decimal and 1 byte ong. 
The systema identifier aust not be 
the syster identifier of the 
syste that issued the PRESET 
command. $GAM 
Pollowing aessage will be issued: 
IRG3I SHARED SPOOLING NOT ACTIVE 


Following sessages will be issued: PCRE 200 
R521 command pose OPERAND # # 

SISSING OR INVALI 

If systena identifiers entered are 

not Stored an system table or 

the own systerm identifier was 

entered, ec following message 


will be’ ed: 
WRS4T s¥stD n IS OWN OR UNKNOWN | 





“ 

bo] 

£ 
es 


Chact CRE tay 
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CHART CS; _iPwSS5CS 


IPw$sCS - PSTART Processor 
INPUT PROCESS OUTPUT 


| CP work area | [3 | | CP work area 
@te. 
eee 











! : : ee 
| be nee > A. Verify command authorization | 
! 


CAT 
---——> Bs If networking is not supported, eco >[07 | 
cca aa i issue error gessage 1RA / 


C.} Process PSTART PNET 
CPS-1.0 


106] If first operand is none of above, issue 
error aessage 1tk901 


| leans Command Processor Rootphase 
Initial house keeping: f 
- Initiale new TCB area 
{ SaeaaA 
r-—--->f02] If tst operand is "partation id?®: 
1 3 Process PSTART partition 
| ll 3 cs-2.0 
| l opzRAND pecs ----- —: 
| opLen | z----->f03] If Ist operand is valid task id: 
OPSWITCH 3 | 
OPFLAG Z : Process PSTART UR-device 
ORIGINAL : cS-3.0 
OPDEC 3 
OPHEX z-—--- [os] If 1st operand is *RJE*: 
| : Process PSTART RJE 
CB : 
T | : cS—4.0 
? 5 
2 u - fos} If 1st operand is *PWET*: 
| 





ES TEI TT A 


Bxit, return to Command Processor eon! 
Rootphase re be 


nef 


— 


















NOTES {| SODULE 4 LABEL 


1 The new TCB is initialized in the PSTRTOO 
dumay TCB area contained in the 
cee cekanee. Following fields are 
setup: 
- srbrage descriptor 
- class list 
- termination code. 


4 The *VPARTID® subroutine is called 
to check whether the first operand 
is a valid partition id or not. On 
return of the subroutine, field 

"OTHPIBPT® contains the address of : 





{ REP NOTES ) MODULE | LABEL | KEF 
SA The authority associated with PSTPHETO|SVCA 
the issuer of the coamand is 
examined. If the authority is 
insufficient, the subroutine 
issues an appropriate error 
message. 


SB Message SGAN 
WAZI coccecccc VSE/POWER . 
NETWORKING HOT SUPPORTED is 
issued. 





| 


6 If invalid task specification was SGAA 
entered, the following message 
will be issued: 
1R90I_ ceccccce INVALID TASK 

SPECIFICATION xxxxxxxxx 


t 

| tA 

{ the PIB of the partition supposed 
to be started or is hex zero, if 
the first operand is not a valid 
partition id. 


3 The *VYTASKID® subroutine is called 
to see whether the first operand 
is a valid task id or not. Valid 
SE ees are "ROR*, "LST* , and 
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IPW$3CS - PSTART partition Processor 














Se { A. If classes(es) are specified in the 

t PSTART command, issue ero a . 
message that the class specification 
is ignored. 





INPoT PROCESS OUTPUT 
CP work area et Partation — i 
ets. comgunhication area 
OPERAND | pee tee Mainline auee 
OPLEN ad 
—_———————_| ] 1 % [orl Check authorization | 
OPSWITCH | : uu > 
OPFLAG 2 2 If issuer of command is not fore ’> 09 | 
—_—— . authorized / 
ORIGINAL 3 > 
po—ea-- 91 02! Validate operands | 
: | aoa 
< Partation < 
: control block 
: If an error is detected oc >fo9 | om > 
POWPLG1 | --------- _ 3 os 
aD er -----> Check if tition to be started is jeee >[oe | 
POWPCB | 2: o:éC«€ 12 inactive. If 30 / [os | 
zi j Pe 
Partition 2 Ue gee S=>. If partition is neither waitin eve >foo | 
PIB ss 38 @ inact ive nor stopped set up seaSage ‘| Ce 
PIBFLG w--------i--:--4 | 
PIBCNCL i--; -------—>]05/[ check af partition is already under feoe” fos | 
lerecuct = [95] control of VSE/POWER. If not. /| [06 | 
PIBFLG2 = 
} 
B. continue fooe > 038 | 
| ais | 
[oo] Build partition control block (PDB) oe 
CS-2.2 
fo7] Attach execution reader task for 
—+ partition to be started 
A. Indicate that partition is under | ae oe 
control of VSB/POWER, save PDB | ances | pens 
address in COMREG | | 
fost} Sisulate DOS/VSE start comaand: E 
| 


- Set flags in PIB 
- Activate partition 


« 
| Return to Mainlineecee 
pel 
-/ 
v 


- 
Pf 
_ 
: | 

















NOTES | MODULE j{ LABEL j REF NOTES 


1 The authoraty associated with the | a $Y¥CA 5A 


} SODULE | LABEL 











Hessage 
1IRS8OL WARNING: CLASS 


issuer of the command is examined. 
SPECIFICATION IGNORED is issued 





This is done 2 4 anvoking the. 
appropriate subroutine Contained 
in the Rootphase. If the authority 
is insufficient, the subroutine 


‘ in the comggand processor 
assues ah appropriate error 


rootphase, is called to reserve 














an execution reader task exists 
already for the partition. 
Therefore it is not neccessary to 
create a parest aoe control block 
and to at 

task again 


in propped state, the BCopped 
state flag is reset, the Saute 
as set in the PIB which causes to 
c anwoke end-of-job processing and 
ach an execution reader the partition 1s sade dispatchable 
Dur in apaatang PIB anterrupts are |S¥C22 PSTP540 
disabled, the DOS/VSE_ system 15. 

shortly seized and released again 


7 The *ATTACH® subroutine, contained | | 
| message. storage for the hew execution 
reader task TCB and finally to 
{3 : GETFLD PSTP500 attach the task. 
{ 4 The partition supposed to be | . ; . } 
{ started must be in one of the } 8 For an inactive partition, the 'f 
following conditions. If not, the if pointer to the partition save area 
partition 1s not available. « Which is identical to the 
- inactive F t partition start address is saved | 
- waiting and in stopped state. i] in the partition PIB. The | | 
{ Message partition save area is zeroized 
BROSI xx PARTITION NOT AVAILABLE and the default name "NO NAME® is 
| is issued. ut into the save area as prograrg | | 
hame and in the COMREG as job narze 
already under control of VSE/PUWER | Por a partition which is currently |TREADY 


rn eee ee ee PR ee ET NEESER BNI SC OE OE: 


. 


| 
| 
5 If the etoppes partition was 
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IPw$ssCS - Validate operands \ 
INPUT PROCESS | OUTPUT 


CP work area | ley i | CP work area 







































If not, set up error message | 
> 


is 
‘ 
eas 
3] 


°o 
on : 


| 


Check if 4th operand specifies the [oce” 
sultitask indicator ( "AT*). / 


£ not, set up error aessage 





Exit, return to callereee 
ail 
od 


Lal 
(ees 


| be { 
pOERsn se | cern : Ee Caller | | CPWCLAR | 
forLew 3 ic } 
| G@uiGn H eee Qf Check first operand i, rf { peeees ' 
: >) (CPWCL#C 
| JOPFLAG. | : 4 A. If partition to be started is coe > 05 { ees | 
—————_— : : ( VSE/POWER partation itself, /t { | 
| ORIGINAL il ae casa + setup error message i| | | 
OPDEC 2 ig-—r-----> 8. If priority of partition to be [eee > = em 
| S83. . 3S i started islequ or higher than 7\ [05 | C4 | rf | 
| lr: ——3---— > the VSE/POWER priority, set up > 
=: : error message | vat 
t | s tense: -'s C. If partition size is less than |eee™ [os | | | 
} es Biniaus (128k), set up error / 
= zcoscts s message | Durgay 
S-. So e's 9s TCB area 
ss-sos4 ss 
| 1 : : ese fo2] Check second operand es DYCT 
CAT | rs : A. set up argument list for CLASS ma 
Cuca I eu ro: 3 subroutine and call subroutine 
—________4 s,s NS B. If 2nd operand specifies inwalid eee >(05 [- 
Priority list a) Sans nraee / 
seaece :--s : 
REET | 3 t-woo----->103] Check if 3rd operand is a valid ouput 
we 3 : i class. 
Partition t 3 3 
boundary info ------. S : 








NOTES | MODULE {| LABEL REF 


NOTES | MODULE | LABEL jj REF 








1 The first operand specifies the The CLASS subroutine checks if. 
partition to be brolght under walid class(es) are specified in 
control of VSE/POWER the command. Valid calsses are *A* 

- *Z* as well as the rtation 

TA cceccecce xx IS TH# BG 


12681 | 
VSE/POWER PARTITION | 
aie the CLASS subroutine in register. 
1B The GETPRTY macro is issued to GETPRTY | PSTP120 {$GAM 15, tells the issuer if an invalid 
class was specified. In this case 
ap error message has been already 


issue 


get the priority list 
he partition aneerrupe key 
(PIK} must occur in the 
peer ey list left froma the 
R the CLASS subroutine stores the 
class table pointers in the TCB 
class list 


SE/POW PIK noc aust the 
found PIK be oeperetee by the 
*=5 sign from the VSE/POWER 

PIK. If not, sessage ‘4 
GA 


‘ 
| 
| 


R631 cecccccc xx PRIORITY 3 The 3rd operand specifies, if not PSTP300 
TOU HIGH is issued he default output class 
to all output queues 


| petted s 
| tc The EXTRACT sacro is issued to EXTHACT SGAS 
| 


assigne 
sets. 
If the operand is omitted, class 
*‘aA*® is taken as default. only one 
class specification is allowed, 
valid specifiactions are *A® — 


get the partition boundary | 
anformation. The partition size 
is calculated and checked if 
less than minigum (currently 
128K) « If so, message 

1R7 command code VIRTUAL xx 


Message 
1RS2E” OPERAND ## INVALID OR 








' 
| 
the eocurid ooke Ma ivan back be 
| 


IS SMALLER THAN 128K is issued H 
. MISSING is issued 
« The 2nd operand specifies, if not terrae e ; 
omitted, classes of the Rbr ueuve 4 The 4th operand, if not omitted. PSTP4&O0 
to be prococeee by the partition specifies the aultitask indicator, 
to be brought under control of which must be *aT*®. If not "sMT*, 
VSE/POWER. If the 2nd operand is agssage 
Omitted, class "A® is assumed as 1852 OPERASD ## INVALID OR 
default MISSING is issued 
2; The parameter list for the | 
CLASS suproutine is set up: 
~ task type (8X reader 
- max. # of Classes allowed 
~ md operand (classes) 
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KPwS$CS - Build partition control block (PDB) 
INPUT PROCESS ourpur 
e CP workarea 
e 
: : Lesporery 
| CP vorkarea 4 spool table 
pane obtain device(s) to be spooled CPWSPDE 
OTHPIBPT = § | --------- ~~ an | CS-2.2-1 CPWSPéE 
CP¥PDOC eee + , | 
CPWPDMT t eecuaes p—---$ [03] Calculate storage requirements for PDB 
i] $ 3 and reserve space for it 
CPWAVS <== 5 3 biock 
CPWAVE Wis. coated sire aie etme £ill up partition control block PDB 
CPWARB eee : | — —— 
: odar 
| = fos} Reader/writer spool entries are built in | 
3 the partition control block for each <—[a} 
3 devi to be spooled as specified by the ; 
3 operator 
A. the PUB device Eyre and the PUB > 
address are stor an the spool 1b | 
entry ' JPLILST entraes 
B. the partation ownership for the ———} PUM entries 
pacticular device is removed 
fos} If autostart, inforsg operator that 
partition is autostarted 
7 
Bxit, return to callerees 
e 
= 
| = 















NOTES NOTES 


This 





| SODULE | LABEL 
prerseee 


| REP 











routine prompts the 


Wh 









operator to apacaty all UR-devices The tition control block is | 
to be spooled for the partition to built and filled up with following 
be brought under control of information: 


VSE/POWER. It calculates the 
reguired storage amount and 


| - PIB address 
| creates within the PDB for each 


- output cl 

devace a spool entry. applicable 

1 the operator is prompted to. 
speci i the UR t 

spoote for the partition to be 

started | 


devices to be 
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ass 
- _pultitask indicator (if 
partition boundary inforsgjation 


message ae 
1875: xx AUTOSTARTED is issued 








§ MODULE | LABEL | REP 


= 
: 
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IPw$$CS - Get device(s) to be spooled from operator 


INPUT PROCESS 
| ee a re aac | 
fobs. 
ae prron Caller 
for] Clear Cemporer? spool table, and ask 
operator to specify all 
spooled 


CP workarea 





t 


OPERAND 


JOPLEN } 


OPSWITCH | 





OPFLAG 2 
ORIGINAL 
OPDEC 
OPHEX 





“ 


A TY CEN RS SS ETE EE EL SN ee SE upattcen ee Sti = SD 


| a 
+ 
[ 


SE SE GS NR Se Se EN A ES Sp SPSS (A TSM SRD RR DY SEARS SPS OD SY PO 


Ti 











ask operator which reader device should 


be spooled 


A. Format operator®s reply 


» answer (device address) |= 


C. If an error (ainvalid/duplicate 


device address) is 
reissue message 


ask operator which prin 
spooled 


A. Pormat operator's r 


B.{Check answer (device address) 


Cc. 
device address) is 
reissue message 


ask operator which punc 
spoole 


A. Pormat operator's r 


B.jCheck answer (device address} 


i 


Cc. If an error {snval id/dupl icate 


device address) is 
reissue message 


If the operator did not 
device, retry proapting 













NOTES | SODULE {| LABEL | REF 
: 1 mgeeage | SGAA 
1R86 PLEASE SPECIFY DEVICES TO 
| BE SPOOLED is issued 
mess SGAM 
ET ts a xx READER= 1s issued 
the re ly of ke. operator is 
formatted and validated. 
When an error is detected, tne 
| message is re-issued 
messa ‘ $GAS 
1R86 xx PRINTER= is issued 5 









If an error (invalid/duplicate 


devices to be 


ee 


ter devices to be 


detected, 


eply 


_—,/ 


ve 
o 
w 


detected, 


h device(s) to be 


eply 


a _ a 





detect 


Ee 
oy 


Ae 


specify any 





NOTES 
the re of the operator is 
pee teens and validated 

coon an error is Jeroctad: the 
Ressage is re-issued 


Message 
1886 ax PUERCHES= is issued 
fhe re of the operator is 
tise and val iibated 


ie an error is dorsered; the 


message is re-issued 


when the Ceeravcr answered three 
times "NHO®, he did not specify any 
device 


7 
| 
7 


Ea 


OUTPUT 





CP 






Chart 


G 


workarea 


ee oe ee ee ee 
temporar 
spool table 


CPWSPDE 
CPwSPexk ' 


SODULE | LABEL 


u 


{ R&P 


ee oe 
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IPWS$CS - PSTART, task Processor 
INPUT 


CP work area 


: 


A 
| 


OPERAND 
OPLEN 





OPSWITCH 
|opriaG2 
ORIGINAL 
OPDEC 


00 Oo OP SE T0de FO er Oe Os enon oee8 


| 


ee ree ee ee 








CPWASPBP 
CPWASDTY | 


CPWASDEV H 
| 


PPP ee 


CPWASCUU 


CPWASAVE 
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PROCESS 





Sainline 


i] 
- 


Check authorization 


=2-4 
/t 
he] 


If issuer of copgrand is not 
authorized 


o 
w 


If first operand is "RDR* 


Check operands of writer task 


A. device address (cuu} 


B. class(es) / tape device 
Cc. Number of buffers 


If an error is detected 


Assign device to VSE/POWER 


If assign fails: 





Attach new writer task eco 


aa 


Check operands of reader tasks 


A. device address 
Be 
Ce 


default input class 


Number of input buffers 
diskette device address 
dikette file id 

D. number of diskettes (pramary 

diskette reader task only 
number of input buffers (alternate 

daskette reader task only) 

/ 


Additional 
[ose'> 
| 


diskette re 
/ 
7 


gE. operands for primary 
a 


er task. 


If an error is detected 


cad 
[] 


07 


[3] 


Assign device to VSE/POWER 


If assign fails: 


ign alternate diskette device to 
BOWER , if applicable. 


If assign fails, unassign 
primary device 


AS 
VSE 


Attach new reader task 


[-=° 
[= 


i & 
eae 


Bxit, return to Sainlinesee 
e 

ai 

y’ 





ouTPuUT 












CP work area 





CPWASPBP 
CPWASDTY 
CPWASDEV 
CPwASCUU 

CPWASLUE 
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IPW$SCS - PSTART,task Processor 


' NUTESg MODULE {| LABEL | REF | 
ae nr eine 


ap SA EN AO A A Se SE TN RE SERS FEN ——. 


ee 





1 


The authority associated with the 
issuer of the command is examined. 
This is done <4 4 invoking the 
appropriate subroutine Contained 
in the Rootphase- If the authority 
1S insufficient, the subroutine 
issues ah appropriate error 
message. 


The 2nd operand is mandatory and 
phecatics the printer/puach device 
address. Valid specification are 
cuu or X*cuu®. f 
The 3rd operand, if not omitted, 
specifies either the classes to be 
processed by the writer task or 

he tape device address an case 
of a tape writer task- Vaiad class 
specification are *A* - *Z*. Up to 
four classes are allowed. The 
*CLASS® subroutine, contained in. 
the commgnd processor rootphase is 
called t6 check if the class 
specification is valid or not. 
In case of invalid class 
specification, subroutine CLASS 
has already issued error messages, 
go.8 branch is taken to processor 
exit. 
To distinguish between classes and 
tape address, the tape address. 
must be specified in hex notation. 


The 4th operand, if not omatted, 
specifies the numper of output 
buffers to be used. valid 
specification are "1°, ®2* or "*D®*. 
The operand is not applicable for 
a punch task. 


If an error is detected one of the 
following mesages is issued: 

R74I cccecccc INVALID DEVICE 
SPECIFICATION 

3R52I cccecccc INVALID BUFFER 
SPECIFICATION 

reac cececccce DEVICS cuu IS NOT 
WR5S2I cccceccc OPERAND ## MISSING 
OR INVALID 

IRY21L ccecccccc OPERAND ## 
INCORRECT 


The "ASSIGN® subroutine is called 
to check whether the specified 
device is known, available, and 
valid for the specified task type. 
If the assign fails, the 
subroutine has already issued an 
appropriate error message. 


The “ATTACH® subroutine is called 
to reserve storage for the new 
wrater task TCB, to initialize the 
TCB with values stored tempory in 
the dummy TCB area and finally to 
attach the new task. 


| 





: 
: 
| 
| 
| 
| 
| 


PSRW100 


PSWTK800 





A Se I EO a OS SO OT 


ee 


SVCA 


SGAM 


| 












6 


HOTES 


The 2nd operand is mandatory and 
specifies the reader device 
address, which can be either a 
card reader, a tape or a diskette 
device. The specification pust be 
in *cuu® or xX*cuu*® format. 

The PUB is scanned to optain the 
device type. 


The 3rd_ operand specifies the 
input class. Valid class 
specification are *0* — ®9®, #a®° — 
*2*. If the operand is omitted, 
class *A* is ken.) : 

The "CLASS® subroutine is called 
to validate the class 
specification. 


The 4th operand has different _ 
meaning cepengs23 on the type of 
reader task. The operand is not 
appiscabte for a tape reader task. 
if this is a card reader task, the 
operand can either be the number 
fe) apput buffers or the alternate 
daskette device address which aust 
be defined in hex notation. . 
Valid buffer number specification 
is "4" or 2%. 


If_an error is detected one of the 
following rmesages is issued; 

R74I ctcccece INVALID DEVICE 
SPBCIPICATION 
WR INVALID BUPFER 


cccccccc 
DEVICE cuu IS woT 


SPECIFICATION 
tR58I 9 ceccccece 
OWN 
OPERAND ## MISSING 
OPERAND ## 


IR52E =cecccccce 
OR INVALID 

WR4 21 ccecccccc 
INCORRECT 


The "ASSIGN® subroutine is called 
to check whether the specified 
device is known, available, and 
valid for the specified task type. 
If the assign fails, the 
subroutine has already issued an 
appropriate error message. 


The *ATTACH® subroutine is called 
to reserve storage for the new 
reader task TCB, to initialize the 
TCB with values stored tempory in 
the durmmy TCB area and fanally to 
attach the new task. 


} MODULE | LABEL 
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SGA 
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IPW$$CS - PSTART,RJE Processor 


INPUT 


cPID 
CcPPN. 
CPRT 


CP work area 





OPERAND 
ales 
loppLac2 

\ORiGiNAL 


OPDEC 
OPHEX 
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ore 


i 


hove er coos cees rege cess ee ee com 


eoet sed 


' 
soot 
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PROCESS 








a 


] 

! 

t 
Vv 


--------> 


Mainline 
Check authorization 

If issuer of command is not feoe’>ft5 | 

authorized “| 
If 2nd operand is *SWA*. [ee >f10 | 

4 | 

If RJE,BSC is not supported, issue eco >[15 
message 1R651 Fe ' [r<*7 [15 J | 


Check operands: 


A. 2nd operand - line address 
B. 3rd operand - line password 


AN (ewe cmc armen ae gre RE EE | 


OUTPUT 


LCDS 
> |LCBHBAD 
LCBDVAD 





LCBPSwb 


LCBDATE 1 
LCBACT 
LCBPUBA 


LCBBUFF | 
LCBBU PSZ 


CP work area 





CPWASDEV 
CPWASCUU 


Ce 4th operand —- trace option CPWASLUN 
Assign lane address to VSZE/POWER t 
. ea * 
If assign fails: eee >)15 i | 
spe Bens 
Reserve real storage for LCB | 
. cat 
A. If no storage has been qote eee >fas } 
issue error message 10781 /\ > {CaLc l 
| ECE | 
Initialize LCB with walues derived fror Line Manager 
the operands. TCB 
—_ [rcEes } 
Chain LCB to LCB-Cnain and post RJE,BSC i ———___—_ 


Line Manager. 


eee > 
Ee 
[-*’ je 
If RJE,SNA manager already active, [roe [15 | | 


If RJE,SNA is not capete tea: issue 
error message R651 


inform operator 


Setup SNA control block 


If another operand 12 specified, 


Attach RJE,SNA manager 
warning message 1R 
t 


issue 
Exit, return to Mainlinesee 
e 
aH 
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Vv 


TcTl 


RJE,SHA 
manager TCB 
1 

> |PCR3 
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IPWS$CS - PSTART,RJE Processor 





NOTES 


{| MODULE | LABEL | REP 

4 The authority associated with the PSTRJE101 SV¥CA 
issuer of the Command is examined. . 

Tnis is done by invoking the. 

appropriate subroutine Contained 

in the Rootphase. If the authority 

is insufficient, the subroutine 

issues an appropriate error 


message. 
3 sessage SGAB 
TR65L° ccececcec RJs,BSC NOT 
SUPPORTED is issued. 
SGAM 


RS2I 4 cccccccc OPERAND ## INVALID 
ececccce INVALID LINE 
ADDRESS 


WR62I cccccccc INVALID RJE 
PASSWORD 


S The "ASSIGN® sudroutane 1s called 
to check whether the specified | 
line address is a valid RJE device 
or not and to assign the RJE line 


PSTRJE30 


to VSE/POWER. If the assagn fails, 
the subroutine has already issued 
an appropriate error message. 


6 Real storage is reserved tor the 
Line Control Block (LCB). 


be issued, if an erfor is 
detected: 
R741 
6A Bessage 
1Q78I° NO REAL/PFIXED STORAGE 


AVAILABLE POR ttttt,cuu 


7 LCB identifier is *LCB*. The 
following fields are initialized: 
LCBHEAD Line address cuu 

Line address cuu 

Account identifier 

System Date YY/H8/DD 


Line password 


ec 
aQ 
@ 
o 
> 
ic] 
a 
tou an 


PUB address of line 


LCBLUBN Logical Unat Nurgber. 
The reai address Ke} the read ans 
write bufter is calcaluted and 
stored into the LCB. 

The LCBACT byte is flagged to 
indicate the Line Manager start of 
the line. If *TRACE® was 
specified, LCBACT is flagged to 
indicate the Line Manager tracing 


required. 


4 One of the tollowing messages will 


~ 


NOTES 


The LCB is chained as first in 
chain to the LCB-Chain via Compare 
(CS) Instruction. 

The address of the Line Manager 
TCB is loaded and the ECB is 


“posted. If the LN is inactive, not 


any start was perforred | 
previogsiy. the task is dispatched 

oO perform the required 
activities. 


Slessage 
1R65I° cccccccc RJE,SNA NOT 
SUPPORTED is issued. 


Message 
WROSI° cecceccec RJE,SHA ALREADY 
STARTED is issued. 


The *ATTACH® subroutine is calied 
to attach the RJZE,SNA manager. The 
task identifier is *LSNA®*. 


Hessage - 
IR9IL” cecccccc FOO SABY OPERANDS, 
PIRST n PROCESSED. 15 issued 


LABEL 


Chart CS 


PSTSNA10 
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IPW$$CT - PRESTART Processor 
Inpot 









CP work area | 

1 eee >From 
OP ERAND 7 
a Ip 
ORIGINAL | 
OPDEC | 
OPSWITCH 


CPW@ICBPT rf oo ee 


TNDS H 





NOTES 
1 pees BEperaet command has following 
RESTART uraddc<,n><, p> 





1 where: 
uraddr 3 Specaraes a 
eae record 
ress in the 
fora cuu or x*®cuu® 
Specifies the 
number of 
cards/pages 
Specifies the 
copy group index 


—e 


i ; : 





1 If inwalid specification has been 
entered, one of the following 
nessa ee Biot be issued: 

WO DEVICE 


NO WRITER TASK 
e@ OPERAND 2 


R70 mmand code 
ADBEESS “SPECIFIED 

R661 command code 
SPECIFIED 





1R852I command cod 
NEITHER DECIMAL NOR OMITTED 
485 21 
INVALID 


Command code OPERAND 3 


PROCESS 
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CHART CT: <SPWSSCT 





OUTPUT 
CP work area 
command processor root phase 


Check operands of command and eee >{08 


if 
anvalid, issue sgessage 18701, 18661, '*—/ 
or 1R52f 


Provide arguments 


Scan TCB chain for list writer TCB 


> 
/ 





assue message 


=e 
yc 


If TCB not found, 
R511 


If it is neither a list task nor a 


punch task, issue message 18661 


If task is at jop poundary or eco “>f{oa | 
secip/esate an PoogResss issue 4 
Bessages Sr or OR 


| 


Calculate page/card restart count 
and store in 


Issue messages 


3 
< eeoese > 
cos / 


ASG 


Return to command processor root phase | 


Exiteee 
=;| 


a 









NOTES 
3 Fee a tereeee for list writer 





i REF 


{| BODULE | LABEL 


PRST100 


Pollowing message will be issued: 
1R51I command Code OPERAND 1 
DESIGNATES NON-EXISTING TASK 


4 

5 Pollowing message will be _ issue 
1R66I command Code HO WRITER TASK 
SPECIPIED 


6 pee of ed? following messages will 
sue 
IRB2I cos Bcoue PSETUP OR 
PRESTART I in *pROGE ss 
R571 command code OBBAND 
IGRORED, TASK AT SOB. BOUNDARY 


8 SGA 


ee emis | am 
ART ET RE AT TR Se 
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IpwSSCU - PSETUP Processor 
INPUT 


| CP work area fe} 
as 

ee 
OPERAND | 4 





[OPLEN ] 
| | oaicivat 
| OPDEC 





ene 


OPS#ITCH 





| 
| 
= 


Bes 
| 
| 
| 
| 


i i 


TUSP 


wae eo > 


Re DE ET SE Se SPD ST EE AES: SR SOE SAM fr OS 


ceed eee ener | 









NOTES 
4 pae RE LA command has following 
PSETUP uraddr<,n> 


' 
ee era ee Gad | 
| 1 where: 

uraddr : Specifies a 
unit record 





address in the 
form cuu or x*cuu* 
Specifies the 
number of pages 


a > 


1 If invalid specafication has been 
entered, one of the fol 
messages is issued: 
R741 command code 
ADDRESS SPECIFIED 
1R75I cormpand code NUMSER OF 
PAGES NOT DECIMAL 
1R67I command code OPERAND 
BepuceD To 99 
NOTE: Boesege 1R67I is a warning 
message only. 


ow lng 
NO PRINTER 


PROCESS 


04 


[os] 
{06} 
07] 


RODULE | LABEL 





command processor root phase 


Check operands of cosmpjand_ and 
inval id¢ issue aessaye 18741, in7ex, 


a 


or 
CPWIARG | 
Provade arguaents ————}| ferent i 
CPWTAsIA 1 
Scan TCB chain for list writer TCB CPWTA DEC 
CPWTACU 
3, 
<€ eeecee > | 
( em) 


issue message 


=r 


operator [eee 73 
Fi] 


If TCB not found, 
1R66L 


If task js not waiting fo 
abtion: tesue message 1R771 


Calculate page count and store into 
TCB, set task dispatchable 


Return to command processor root phase | 


Exiteece 
= 


Issue messages 


{/-—_. 
<€ eseeeee > 
——/ 











} REP NOTES 


PSETPOO 
| TCB is *WLST 


Rk 
TASK Doss” tor BxIs 





18771 command Code TASK 
WAITING FOR OPERATOR 





Task scar steer for a ae writer 


[ores pone | Laven) ner | 

Pollowing guenaege will be iss | 
66I comaand cone LIST wRiTeR 

| 


Pollowing sessage will be ssned: 


CHART CU: iPws$CU 


OUTPUT 





CP work area 


| | 
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| 
| 
| 


ued: 
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IPW$S$CX ~ PXSIT Processor 
INPUT PROCESS 


| 


CP work area 


prev ee ne cece xe 


OPLEB 
OPSWITCH 
OPDEC 


~----> 


J] i & 





ee er ee 


Cree ese sees oneceseeen veal 





' 
( 
' 
‘ 
{ 
' 
' 
! 
Poe econ cece ence 
' 
peeeene ad 
4 
{ 
] 
‘Veewermenn eran \/emreaneageremnene 


ee ES PEE TEES TI ee Se Te PUG Sop Sr ERSTE SSSI a 
o 
~ 





NOTES NOTES  —i—s—sSCSC ODULE | LABEL Ot REF MODULE | LABEL 


2 The "2 The following message will be ft message will be 
issue 
TRA3I VSE/POWER NETWORKING NOT 
SUPPORTED. 


3 The PXMIT Comaand has the 
following forrgjat: 
PXMIT nnfnnonn,cand 
where is: 
nnannan : A valid node identifier 
of the system to which 
the corgmand is to be 
sent . 
cand : any command which is 
id on the target 
system. 


| 
| The following message wili be 
. issued: 
1R52I command code OPERAND 1 
MISSING OR INVALID 


Note: It is not checked here 
wether the node is known to the 
systems nor if there isa 
connection to this node-This is be 
done later by the service 

LCs Ace co es eee 


Prepare NNR (Nodal Sessage Record) 


Check if PNET supported,if not issue [ees > 07 


Bessage 1RA31. 
Process ist Operand of Comrand 


CAT | oO 
e J . 
Sapa ee coamgand processor root phase 


A. If invalid, issne sessage 12521.fece >[07 
, [ooe?> [07 | 


Process 2nd Operand of Command 


A. If invalid, issue Message 18521. woe 3 [07 
feoo > [07 | 


Get_Informations out of various 
ctrl -.Blocks. 
Update Nodal Hessage Record. 


Link to command service; if queueingjece 08 
Was successful 2 oo [oe } 


Issue message 


{/——-_. 
< eecceee > 


cc / 
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NARLEVEL 
HSRPRIO 
NHRTYPE 
SMRAL 

= 
| 





NSRP 


[ramsas | 


-— oe 
J 

Vm Vm Vem Yes Yere Yore Vere 

ES A PP ae ST a Te a | 





Retura to command processor root phase | 


Exiteece 
31 


ER Re REP ERS EERE ES RES I NE STE 


LE TT SNS SO SO (ER S  CE SE LS ET SS - S R  SEe  SNSEDH TEN-AESS-FSS Po fee METS GG SU 


NOTES } MODULE | LABEL REP 





The following ressage will be 
assued: 

1R52I command code OPERAND 2 
MISSING OR INVALID 


| | 
| | 

Note: The validity of the command | | 
i 


to be transaitted to the node is 
not checked here. This is done 
later by the target systen. 


ate Gem epee, ee PD 





oy f returns are possible: $ics 
- hormal return 
~ no_ storage 
- node unkidown 
~ node unreachable 
SGAK 


rele, wensegers.. depending on 


iggar cocec'wo VE VIRTUAL STORAGE 
TRB AL NO CONNECTION ESTABLISHED TO 
NODE nnpnnannnan 


ooaaee 
SE IE SE RT 


a a ee 
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CHART DD; sPwS SDD 


Open Queue Open Data Open Account Process __. Read Queue Read Data Process 
Pile Pile File account file maze and ze and specific job 
ran 


DD-2.0 DD-3.0 


DD-4.0 DD-5.0 DD-6 .0 DD-& .0 





{Set up pTFPH | 
Rout ine 





DD-2-2} ' DD-5.1 
— 1 





ea Ima TE: 
oe eae ree 

emee oe Tse assess | 

bee) “aed 
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IPW$$DD - Mainline 
INPUT 


fF 


Operator reply 


eee secceseees + 
ae | i-=--->]0z Request duap function [ 


I 
| 
DTFPH 
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PROCESS 





= 
oe ie iia Caller 


Entry house keeping 


A. ASk operator to specify the aap 
function he wants to be selected. 
Analyze the operator reply. \ 

B. If reply is "EOJ*, exit | 


To Callereee 


ot 


DD-5.0 


= 7 
|03{ Open VSB/POWER queue files r 
A.jJOpen Queue file aoe ee 
i DD-2.0 | 
B.f;Open Data file z = 
IJOQPILE ras —_— DD-3.0)|- 
DTFPH | : 
: Process Account file 
fIgDFILE } +------~---—-- : 
: A.|Open Account file : 
DIFPa H DD—4 .0 
——— : 
[IJAFILE [ears eens - - 
B.}Print Account file 


eae TO EN See RAPD SO SS eS FESS > GEA SAR SEIS SP Se TAI SGA SR STUPST: SRST. SOT GERSPUSAAIDTD® pS Sti ahSiy SSS: sper SVU GNLSPGHERO SP sre SUSIE 
ee 


nr ete ca a RP Re A EN MEY SE 
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fos} If dump of Queue fale was requested: 


A.|Dump Queue file 
DD-6 .0 


If dump of Data file was requested: 


A.jDurmp Data file 


| 


LIL 
| 


DD-7 .0 


for} If printout of specific job was 
requested: 


A.|Print specific job ema 
DD-8 .0 
> 


= > Close the VSE/POWER files: 
2 [08] - Queue elie” 


| 
PEE EE Se eenEe Ne ame 


FEO Pe ee re Oe OF OO HE Oe OEE CORD HERE ON HE HD OE RE RS OO OD tH Oe Ee HH OFe 


- Data file 
- Account file 
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Yee Vere VYiwe \Vemerem caren 





OUTPUT 





Yen 








Duap | 
function 


farero } 


Jop ' 
specification 





CB 
Data fale 


a 


Account 


| 
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NOTES | SODULE | LABEL | 





If a third operand is Bpee SE Laiy 
it indicates the queue to be 
looked at. Valid Specifications 
are *R*, *L*, *P* or *X*. If none 
of then has? = entered, message 


The program IPW$$DD enables the 
user to display the queue file, 
the data file or the account file. 
The user may select a conaplete 
dump of one of the files or, for 
the queue file and data file, only 
the entries that belong to a 
specific job entry. 





ISVALID TH PERAND is issued 
and the operator is re-prompted. 


If a fourth operand is specified, 
which is only valid when the third 
operand was *X 


2 *, it indicates in | 
which sub-queuve the queue set is 
supposed to be. Val | 


the default SY¥YSLST line size is 
obtained from the communication 
area. 


specifications are *JOB*®* or *OUT®*. 
If none of therm has been entered 
or the 4th operand is not 
applicable sessage ae 
IRVALID FOGRTH OPERAND is issued 
and the operator is re-prorgpted. 


2 The operator is prompted to EXCP DD10 
speci the dump function he wants | 
to be done. Message 

DUAP PUNCTION= is issued. 

WAIT 


) 
| 


2B If the operator replied *ZOJ*, 
the DOS/WSE BOJ macro is issued 
to terminate the process. 
If the Queue file is open, it is CLOSER 
closed. 
If the Data file is open, it is CLOSER 
closed. 


If nothing has been entered, 


aceesie Ra 
INVALID REPLY is issued and the 
operator is re-proapted. 


If the reply is not *Q* nor *D* 
nor *A*, it 
jobnaaze. 


2a The jobnarme and if specified 
the jobnumber are validated: 


is assumed to be a 
CLOSER 





If the Account file is open, it is 
closed 


- joObname aust be alphamer ic, 
1-8 characters | 

= jobnuaber numeric, maximus 
of six digits. 





If an invalid jobname has been 
tee: message 

I 

fo) 









VALID JOBNASE qs issued and the 
erator 1s re-proapted. | 
Otherwise the 4 Dbnage and its 
length is saved. 
If an _ invalid jobnusber has been 
hae ere age j 
IRVALID JOBNUSBER is issued and 
the operator is re-prompted. 
Otherwise the jobnurmber is saved. 


t 
1 The base registers are set up and COHRG 


SE ES EE ES EE SE ST EE ST SS SM GEREN SE a gE SS 
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Open Queue file 
INPUT PROCESS ourputT 





ece >Prom Mainline 
DTFPH {for} Get DTF device-type code and device 


| coietentes inforajation 
IJDPILE -->faj : 
Bl A: 


< evsceee > 


















| Device table : | —/ Set up DTFPA 
device info 3 | 
-_ A. Save device information in DMB SiR 1) PRS 
1 | B. Get nuaber of queve records fitting 
‘ On one track and store it into DMB. 
Register 1 
eee Die Open Queve file 
>Extent anfo 
| incaennemnea o A.}XTNT-exit processing a Eta > 
xTow Ss | - store extent information H] j 
—_—_—_———} | : - store logical-unit nuaber > 
XTLL | aor | - store DTF pointer } 4 
[XTUL base 7 | 
t grrr Be Set up disk address of gaster queue } 
ACB 3 | record and first queue record | { | 
} facto ] -----------— —s ) 
| | jo3} Read gaster record 4 
| Meee 
| Read record from disk 
DD-2.2 
Exit, return to care 
e 
Je 
- 4 
| v 

















WOTES 1 ee Ee nS we is VOD BEB: | ABEL. ERPS MODULE | LABEL REF NOTES } AODULE | LABEL REF 



















' t | 
| ane Queue "Phe Queue fale is opened for. inpyt + | °&4» is qectes for inpyt 2A If the Queuve-file resides on an |LBREP 
te sucend ocr Glee | piattetec ss aaieiitatase | | 
e an are itaaliz 
| ! the extent. This is done py i 1 { 
H 1 The *Set up DTPPH® routine returns DDS2 | subtracting the physical ‘ { 
the address of the device-table starting block number from the 
| entry associated with the device. | Periec tne welataee lee I 
| “© -Btorsatson ie saved in th Control is retained tp th | 
information iS saved in e x ett 
DMB: | calling routine via the LBRET i 
- Eh atnesd 2 oe Epacte/G ae ) g@acro intraction. rf 
~- hupber o ocks on 
( ¥ | 2B The disk address is set up to | | 
1B GETVCE address the first queue record 
| * TseRageas teed Seats»? ic Ute ‘Parse guevs record is 
issu in e macro 
ieee snetion . Seed for integnal purposes 
2A Control is given to thi DD70 gory) address is lower extent 
Rout ane when OPER is perforaed pan en dnt cecere BUaber as ¢ 
the: extent, information (roNer é nuaber is set to one. 
gr limi is saved in 
seb. ) 2B The master record lies on the 
end of the queue file and 
2A The logical-unit number and the occupies four normal queue { | 
t DTP pointer are saved in the records. 
| MCB. { { 
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Set up DTFPH (Subroutine) 


IuPor PROCESS OUTPUT 
| | rd : 
eee >From Caller | 
ter 4 The PUB entry of the logical unit, Device table 
pe Sora | specified in’ th © DIPPH. is examined to 
aa | see if the Rovice 1s assigned and to 
a | obtain the PUB device type code. - i A 73 device anto| | 
>DTFPH evice into 
| ptr n> A. Get address of device table and_scan 
- 4 for matching PUB device type code { | ae ene | 
H 4 B. If device type code is not in device | t 
Saeed table, print message and exit 
ween 2 ===> Get device characteristics 
i----->/ 03} Put DPP type code, associated to the PUB ———— DTFPH 
device-type code, into DTPPH {'- 
Exit, return to Callereee 
qaet 
{+47 aa 




















NOTES 


A The internal device table, 
containing one entry for éach 
disk device supported by 
VSE/POWER, is Scanned to locate 
the entry with the matching PUB 
device-type code. 


NOTES | MODULE | LABEL REP 
The PUB device-type code is DD62 
obtained from the logical unit 
specification in the pia ts This 
code is checked against the 
Supp ported device- ype° codes in the 
VSE/POWER device ta 
If no match is found, message 
INVALID LOGICAL UNIT 
is issued and a branch to taken 
to exit the process. 
If a aatch is found, the proper 
device tzee code is inserted in 
e 


Then the SYSIB macro is agsued | in SYSIR 
order to gst the applicable PUD 





1! BEP | MODULE {| LABEL 











1B If the device tapi code is not 
an the device ta Les message 
INVALID LOGIC 
is issued ana” a burt is 
taken to close the files. 


2 A&A GETVCE macro is issued 1m order GETVCE 
to obtain the disk device 
pur enaes ie (eg. no of 














aang LOB address for the Tog ical tracks/cyl 
4te 
3 Insert os device-type code into DDoa 
1 The EXTRACT macro Be issued in EXTRACT DTP PH 
order to exazine the "Bee al 
unit is assigned ana ne pean 






the PUB device type cod code. 
Non-zero return Cod given” 
back, it is epaiaed thatot 

Hie Eagergihs hnegh not Seat akea. I 
this rror message 

INVALID STOGrCAL Unit 

is issued ang 9 br branch is taken 
to close the files 








Te onueneamaenaeenend aaadhemie ahaumtcaahesedeemendedhaaseneiaemtemmementeemeamatonaeiaenmmtmetemmncettl these 
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(Subroutine) 


Read a record from disk 
Input 






ol 


eee >From 


Ep oeeoeneseiil | C1) 





Register 1 








Seeger 
>disk request | 
word Dies (es SUES) ee eee eae 








SBBCCHAR 
or 
AOBBREER 





NOTES 





This suproutine is used to do all 
1/Q for the VSE/POWER fales 


1 The *S8*® of the disk request word 
is_ used to locate the associated 
module control block. . 

The DTF pointer, stored in the 
sodule coatrol block, is used to 
point to the cca. 


The disk address as rnoved to the 
seek bucket which is pointed to by 
the seek CCw or locate CCW if PBA. 


The logical unit is then aove 
fros th 36 


@ ACB to the CCB and a 
the record length is taken froma 
the ACB and goved to the read CCW. 
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PROCESS 
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ouT PUT 


Caller 
Rdacese Module control block and update 
- ove disk address to seek bucket 





If device is an PBA device: — 
- set up extent-description block 
- set up locate word 


Issue read command and wait for its 


completion 
Exit, return to callereee 
31 








t REP WOTES | MODULE | LABEL 
2 The babe: pte taal Tg peed block 15 

anitiated vith following values: 

= phy sical starting-block nusaber 

~ YFelative starting-block nuaber 
- relative ending~block auaber 


| REP 
















pDp700 


——— 


2 The locate word is set up wath 
following values, gotten from dask 
request word; 

- “current block nuaber 
- number of blocks to be 
processed 


3 Read _ the record and wait for 1/0 
cospiletion 


BxCP DD715 






WAIT 
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Open Data file 
InPotT 





DOTFPH 


[IuDFILE | 


ee 


“>Proa 


PROCESS 





Mainline 
Get DTF device-type code and device 
anformat ion 


ss 


OUTPUT 























| t----—> < ecccce > 
Device table —/ 
| Set up DTPPH 
device info} -->{A es 
| | fou} Open Data file | —— 
ote 
Register 1 steam ob XTNT-exit processin ; { 
ph dca t r - store extent information Sage oer ar DSKADDR 
5 : - store logical—-unit number 
‘ ‘ $ - store D address y A BBCCHHR 
PExtent info ¢ Or 
an : | | wosakRRR 
—_————-| | 3 | crane B. Set up disk address of first data — 
| ioe : | block 
a---5 : “<> Cc. Save device information { 
| | : | Exit, return to Mainlinesee > 
: Pe be t ! 
i *7 | 
wwe enn ee —J as 
. Je 
> 
| 





eee 


NOTES 





The Data file is opened for anput 


operations. All re 


evant fields in 


the DMB and appropriate SCBs are 
initialized. 


the address of the device table 
entry associated with the device. 


2 The data file is opened. OPENR 





| 1 The *Set up DTFPH® routine returns pps8 


Control is given to this DD71 


routine when OPEN is performed 





by I : 

The logical-unit number and the 
pre pointer are saved in the 
The extent anformation (lower & 
upper ligit) is saved in the 


If the Datafile resides on an LBRET 
PBA device, the relative ending 

block nusber is calculated for 

each extent. This is done by 

subtract 389 the paysieel 
starting-block nuaber from the 
physical ending-block numper 

an adding the relative 


(Note: the relative block 
nuraber for the first extent is 
zero). 

Control is returned to the 
calling routine via the LBRET 1 
macro iIntruction. 


ae er ren a CED RO EU TE 


{| MODULE {| LABEL 





| REF 





2c 





NOTES { MODULE {| LABEL | REF 


The disk address is set up to | 
| 
| 
: 


address the first data plbck. 
seek address is lower extent 
limit and record nurmber is 1 
for CKD; for PBA, block nurgber 
ais set to zero. 


The number of records(DBLK) / GETVCE DDo~ 
track is calculated and saved 
in the DMB. Additionally the 
hnuaber of Pract ec cri sncer is | 
obtained from the device-table 
entry and saved in the DMB. 
The number of track 
grogps/cy} inder is calculated 
Oo initialize the track group 
control table. Bach track is 
represented by one byte 
containing head address + 1 of 
the correSponding track or, tor 
the last-in-trac! Ms 4 or 
nonavailable track, x*00*. 
| 
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Open Account file 























INPUT PROCESS OUTPUT 
| | | 
| fel | t ! 
I jeus.] . 4 
| | pales Se Mainline | t 
| DTPPH | Get DTF device-type code and device \\- > ACB | 
I | canal auforgation t 
| IJAFILE 9 | =-~------ 1 : 4 | 
t Se f-——— . 
: < eecses > 
| Device table | 3 | roof | | | | 
3 peat ee DTFPH : 
: DD-2.-1 | | 
device info| wenn + ------ i | ' 
| | fox] Open Account file 
| ce Hl i= i 
| Register 1 | ceaaheteataateteceematen -----> A.{XTNT-exit processing ; j 
a Sea | 3 { - store extent infOrmation i 
| : store logical-unit nurgber fr 
| : : Store DTF audress ASKADDR 
extent anto : | | apECCAEY 
$ is 
XTUN peace ; ; | > OL | 
[xruv | | : pct cco> Be Set op disk address of first account { t rt | |MOBBREKR t 
PXTLL Po 3 recor 1 ' | uD 
\eTuL ----J : Exit, return to Hainl ineeee] | 
b4 e 
| : jist 
aC3 : | - / | 
{ 3 | v | 
mh 











NOTES 


2B The lowex limit of tne extent 
is_used to set up the disk 
address, the record number is 
set to zero in order to read 
the countfield of tne farst 
account record. | 
If the Account file reaades on 
ap FBA device the block number 
as set to zero. . 
The number of tracks/cylinder 
is saved in the SCB 


AODULE 





NOTES 


The Account file is opened fur 
input operations. All relevant 
fields in tne ACB are initialized. 


1 The *Set up DIFPH* routine returns DD7zZ 
the address of the device table 
entry associated to the device. 





{ MUDULE | LABEL 








ce oreeeme 


2 the account file 1s opened py OPENK 
{ issuing the OPENR sacro 
instcuction 


Za Control is given to this 
routine when OPEN is performed 





by 1 . 

the iogical unat number and the 
ben pointer are saved in the 
The exteat information (lower 4 
upper limit) are saved in the 


| 

| 

| an FBA device, the relative 

H ending block number is 
calculated. This is done by 

| subtracting the physicai ; 
starting block nuaber from the 

| hysical ending block nuaber. 
note: the relative block 
number for the first extent is 
Zero) - 
Control 1s returned to the 
calling routine via the LbRET 1 

| macro intruction.e 


ae er rt ce Sr ST SST SIE Ar SN Se Se 


| 
| 
| 
| 
2a If the Account file resides on |uouer 
| 
| 
: 
| 
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Process account file 
IWPoT 


P| 





! 
| | oe Ara Mainline | 
| Register 4 | If Account file resides on FBA eco. ls | | 
40] device —/ ! 
>DTFPH | foz} Print operator*s reply | 
—_ OO : — ! 
| PHDT | wr scssr —-—J 
SeRiDE {a} --> [03] Read count field of record 1 on track 
a ce eet ZEROSW 
MBBCCHHR ->TA | —— u—_45. = 
ce | eee | aaa ee eT 
& 4 | | bi record froa ee 3 ey cpa 
Buffer -> ee ; 
area [2] | ° 
SAI AT ER | A. If EOF record is read. eee 2110 | 
ETS | / B=; | 
ACB®*ACLO | ag . 
aCET [a}--2 [04] read in Account record . 
jects | ->[c] 2 feats er aae a 
2 < eceeeee > we ~—--= puffer 
tc ——_—-.--- area 
ASKADR ~>1C| | y peat record from disk C.-Y} 
—_———— DD-2.2} 
MBBCCHHR { | US 
or | 
MBOBBRRRR | 


ee ee een] 


a ee a  E  ALES GNS -S LN PE  Sy  Y S A SEL  e S gS 


- 
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PROCESS OUTPUT 


F oueaneanneiemstomeanaannmmntcamshatemmndiantmbmemnnastnanineteanianeamnbteen inaitthantheassthninh acntmtbacnetomamentinanteatah dates tntinatn niidhanctedttteinas attiasdl inieiath- aoml sade cteharael araloamts adres aha eat anh ead oethanadacadh a chanmhnm ata aokabeh anaemia anid aakendenatkem toa maa aetaaetaani akenennae aaaemeet aaa neem aa ee 





























Be Check if Account record contains 
binary zeroes. If so, set Flag. 


| ] 
A. If EOF rcecord fooe” >[ 10 : 
| 


| 


| 
| 
| 
| 
| 








iP 
: 








ja} --> Ce Format and print Account record — 
| a a 
| eeecee "> i 
—/ 
H Poraat and prant => fo} 
DD-5.1 
ai--> D. Update seek address [eee fou I} 
t_,/| 4 


i 
| 
| 
fos] Calculate nusper of FBA biocks/Control 
interval 
[oe] tor’s 
| O06} Print operator®s reply | 


| 


fal--> 07] Read in control interval : 


| es 
< eeeees > 


r——_ 


ag! 


Read record from disk 
DD-2Z.2 


| 

| A. If EOF control interval as read jeee 
[Tout Format and prant Control interval 
| SC ocueee Sc s oS oS 
| a lrormat and prant | 
1 | DD-5-1} 
-> 
{ 
-$ 
| 
me | 
| 
| 
1 
} 
| 
' 
I 


| 


. 
: 
. 
. 
ry 
. 
. 
. 
. 
. 
. 
. 


=>{D 
3s 
fal- [os] Increment relatave block number to 
iw address next CI to read in 
fel - A. If not end of extent is reached ooo [o7 | 
[rot 
[a | 
2xit, return to Mainlineece 
e 
pe 
of 
v 


: 


_ ooo oo 1 eee 
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Process Account file 
—_— 


Nw 


| 
\2 
| 3 
| 
| 
| 
| 


4D 





The channel prograa a> ereneres to 


first account record on the track. 
It an SOF record has been read 


NOTES ! 


fessage DUSP PUNCTION= reply is 
printed on a new page on SYSLST 


d in the count field of the 


{data length in count tield = 0), | 
branch is taken to close the 
Piles. . 
Otherwise the buffer is cleared 
and the seek bucket is updated to | 
read in record one. 


Tne seek address as incresented 
to address the next account 
record to read in, unless the 
EBUP record was read prior. 

If track cnange, update seek 
address to read in count field 
of the first Account record on 
the new track. | 








ert re re ee en Se ee Oe 


MODULE | LABEL 


DD74 
SKIP 


ee ed 


NOTES 


The number of FBA blocks occupied 
by on control interval is 
calculated. Thais is done py 
dividing the CI size (1995 pytes) 
by tne physical FBA b 

round ing up the result. The Cl 
size is 1995 bytes, regardless of 
the FBA block size 


Hessage DUMP PUNCTION= re iy as 
printed on a new page on By LST 


The relative block number is 
ancreased by the nuaber of FBA 
blocks occupied py one Control 
anterval 


lock size and 


f BODULE | LABZL 


DpDad 








SKIP 





Semeant 


Chart vD 


EP 


A eteaheteetaatcanhdeenetatapetemteae dheas adloa mtr otemmnachaet akin odemtmeneaemaeendl tame 
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Format and prant (Subroutine) 





INPOT PROCESS OUTPOT 
| {31 
ets 
i Sad Caller 
P j Prant 
04] Prepare head ing pes 
| aE ——_——_ 
[ pro o noone A. For CoK-D dev ice: Head ing 
i = : - cylinder nusber 
>disk address : = yf Sper nanDor record 
| MBBCCHHR ‘ - record number 
or moons 
¢ eee > Be For PBA devace: : 
SOBBRRER ; i - curr block nupber 
fo peewee > - block length : 
Rec length 2 | [on foo? 
{ I a---5 Se a ae aes fozt Print sessage instead of record ooo >1/ 04 
[R7SAV } ones, iS yhen record contains only binary —-/|*— 
3-3 zeros 
| Register 4 : 3 
| AD | — —---->[03] Otherwise, print record: naeaecneral 
[ zo: Hi o*"Gharacter format 
>DTFPH ets : - hexadecirzal forrat 
3 5 - scale 
| RE [ye ecrnees “3: : 
ce |G | 
| ZEROSW | : Bxit, return to ae 
Py e 
| Register 5 3 ple / 
(eee | : v 
>Buffer : 
area | : 
ed ea te > cms en ee etme tame ow eh 
























NOTES REP 





t | MODULE | LABKL j 





| NOTES | SODULE | LABEL 














Each record is divaded into 1 : DSKDEBL 
segments of 100 bytes. For each Ta The cylinder nuaber, track 
segaent, four lines are printed: nuaber, record number and ' 
Line 1: the printable characters record length are converted to 
are printed. decimal and stored in the 
line toes zone part of the byte heading. 
is printed. 
Tine 3: the nurgeric part of each 1B The relative PBA block number 
rte is printed. : and the block length are 
Lane 4: a scale is printed to converted to decis#al and stored 
| indicate the byte-sequence nuaber. in ay heading of the first 
record. 

If a data record contains only ; i 
binary zeros, a message is printed 2 If the record contains all zeros, DEBLOK 
instead of the record. neernde, 

THIS HN ie oe CONTAINS BINARY 

ZEROS OW DISK is issued. | 
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Dump Queue file 
INPUT PROCESS OUTPUT 


| 
| 













































A. It last queue record read: 


{ 

| | Exit, retura to Bainl ineses] 
e 

| ; 


Ce Ee ee EE OE Oe re EE SO 





Otherwise, increment disk address: 


| 
' 





A. Dranch to read in next queue fece >|03 
re 





ist | 
[== >Prom Mainline { 
DPPPd : / for] Print operator’s reply | yueue tule 
ouECES, iB (teen ee era ump 

| form ne wont ii, Y 
H ae : I << > 2102} Pormat and prant master record —,| ! { 1 
Device anto | ot ae z HI | | | 
fo go tL | eevece > i ot, P H 
| te} | 4 proenct and print — 
Qcur LS = pp-5.31 | | | 
, | reac | | | b= | 
ie | fee. Be] Reaa next queve yeonore i jecow | 
! QC Qw | | 
| tes Queue ee | <fseeese’> SS OS | | | | | 
| | {| Read record from disk | | 
(UU cates pome-2} | (oe | 
ausue cessed o : | Ou | Pormat and print gueue record —— i | | 

{ Ti-->fa : I | 
| : | any Format and print | | | 

. $ 
: DD-5.1 | | 
i i aeteatete $fosl Check for last queue record | | { | 
| | | 
| | | | 
| | | | 
| 
| | | | 
| 

{ 

| 

! 
| | 


| 





Ref 


NOTES } MODULE {| LAdEL NOTES MODULE | LABEL 





This routine reads all queue | DD3u0 6 If PBA device, update curent plock {QRUPDY 
records and prints thea on SYSLST } gugber by one. 
: | If CKD, increase current record 
% Messaye DUAP PUNCTION= reptt. SKIP nuaper. If the new record number 





printed on a new page on is higher than the saximug naurgber 
of records per track, the curreat 
record numper is set to one and 


J 

4 

t 

t 

| 

3 The queue record is read in the | 
the current track husber is | 

' 


auxiliary yueue record area whicn 


is part of the DMB. ig . 
f the new ack poaber is higner 


tnan the number o 
tracks/cylinder, the track nuaper 





5 fhe last queue record is indicated 
by *b*® as queue-record idaeatif ier 
is set to one and the cylinder 

muaber is increased by one. 


| 

1 

ff aoctoance b 
1 

1 


I l 
| 
| | 
D|a3 10 | ) 
| | 
| | 


ce ee te eee eee ee OO 


| 
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Duap Data file 
INPUT PROCESS OUTPUT 


i a 


ee Yee 





Sainline 


—o 


------ DSKADR 


_| 4 BBCCHHR 
cl} Or 
Stece tesa soo SMOS5BRRRE 


| 
Lbs Soe bieisisnaatesae | puffer. area d 
ee lis os] 

> 


aie en 
[e}<-~ *eROSW 


‘“ 


kegaster 4 Print operator*s reply 


CREE | 


ey 


Aw 


butter area Read in farst/next data plock 


[a 


= 


ls] [2 


! 





Read record from disk 
DD-Ze2 





>DTP PH 


[IuDFILE ! a wo eee ee ores 
Se) 


DAS 
[Device anfo 
= 


{| DC&k | 
locus | 





Verne 


td 
s 
i 
a 
i] 
Le LS SNE TT I TOT SE ee PSS SS SS SUE agED> ROA 


Check if data plocx contains all binary 
zeroes. 
If so, set flag 





i] 
w 


Data file 
uRp 


POO os Od coos 08 oc OF es sees Oe OF oe. 





i ee 


' 
4 
' 
' 
U 
we 


Format and print data piock 


| 


e 
bo 





Aj-- /-—-_. 
i < eeevce >} 


me A ore age ee Se erence SE SGT EEN EE ENTEN EO ee 


] 
[=] 





| ae | | 

Pormat and print 

| pp-5.1| 
i } 
Increaent disk address 


oS ae a te Ee a Gree Se SA SS SEY On 





Pee eeererescseee eed 








| A. 1£ not upper Limit of last foes bon 
extent 1S exceeded, branch... —., 
J 

Exit, return to Mainlineees 

ripe 4 

- 7 
v 

| 


i. 


REF NOTES { MODULE | LABEL KEP | 











NOTES [sores —~—~—“‘*é~*~™SCSCSCSC*dCROULE | LABEL | REP | MODULE | LABEL j i Sa 
This routane reads ~~ ‘This routane reads all data plocks = {pDwOo, sf data olocks DDuOO | | 
and prints tnem on SYSLST If this data block is already 
A par tantly outside ot the extent, i 
1 Message DUSP FUNCTION= eR SKIP ti he module index 1s increased py | 
printed on a new page on ria? |. pour fe address the next data-file | | | 
« The data block 1s read in from the if there is no next data-file | 
the Gish address word ore date blocks are ‘printed cut. | 7 [ 
e dis ress wor ’ 
‘return to the call ler is made wata 
5 Por FBA, the current block number a displacement to finish up | | 
“Geancker (cast te the nascar Of Ottery iss the dsek aaacess is 
ansfer at 215s e numgoer © 
| PBA blocks whach are occupied py | updated with a lower-extent liait’ | | | | 
| one data block). I | : the new datastile extent. ' 
Por CKD, the current record nuaber | DBUPDT | | 
3s increased py one. If the new 
record number 1s hagher than the ' | | 
@axigum huapec of records per j | 
track, the current record number | | 
is set to one and the current 
track nuaber i3 increased as one. 
If the new track numper is higher 
than the number of 
tracks/cylinder, the track numper 
is set to one and the cylinder H | 
humber as ancreased py one. Ps See eg Fete be ot, Ot 1 1 


160 VSt/POWER PLM Part 2 


Licensed ttaterial - Property of IBM 


Duap specific jop 

















Increment disk address fee 


INPUT PROCESS OUTPUT 
[ I ‘ [ ! 
| 1 | 
| [ots | 
| } [see >From Mainline } ' 
Job ; “| for) Address class table to be scanned in SYSLST 
| specification [0 Ler > order to locate job <n —! | 
[jopname | Vf fin oe ent ee: : | A. If use count in master record is eae Sion } fin —y| | | 
a a | ae -— abe ere cadre 2) | | i 
| queue | 1 er : | fox} Scan gueue to find job | | | L. aa H 
| SWPLAG | eau A. If end of queue peter | | | 
isarouis =f !ecieee —_ | 
ead ! 3 : 3s. If jop is found: | | | 
| | : : | < econ sel? aetoeee| | | | 
: : | corer | 
: | | C. prancn to continue scan ye | | ! 
| i-——-}---—-7 [03] If no job is found, issue error message | | ‘ | 
: | Bxit, return to fainl nesses t | | 
: pret it 1 
| Po | ey | | 
| | : {fos} ek Ue disk address to address 2nd queue | i | | 
| ft Read in gueue record | i | | 
F it 
: rs | | 
| : | I ee es | | | 
| | : Read record from dane 2 tI I t 
: i 
| | i = A. If last gueue record [eos 73 [oa | i | 
! | | ag.ee,ageue secon ap gatsecaneace | i | | 
a jas 
| | oe = ae | 
| < a) | aia | { 
| | | : tals joo pp-8.1} 
| | | | 
| : | | 
| 
| i i 









i NOTES { MODULE | LABEL | REF | NOTES | MODULE | LABEL {| KEF ; 
} 1 The class table, placed in the | | | 3 JOB ENTRY NOT FOUND 1S issued. | | 
master record, 1s addressed and ar 
H the pointer to the queue (eitner } } | 4 The lower extent ligit (CCHH) is | t 
RDK, LST or birdy! is set depending | t f used to initialize the seek : { { ] ‘ 
on user®s specification. j | t bucket. If the gueuve file resides i] 
| ; | H { on an P#A device, the relative { 
| TA If the use count is zero, it block humber is set to one. 
indicates that the last ! | 1 Note: the first gueuve record 1s rT | 
{ VSE/POWER system terminated | } | used for internal purposes only. | t 
normaliy and that we can rely - ; H 
| on the contents of the class | 1 SA The last gueuve record is t { 
taple. | idenitified by an ID of "D® { t i | 
| Otherwise we have to scan the I 6 The disk adress of tne queue | t 
entire queue file in order to | record is incremented to address i | ! | 
locate the job we are looking fore I the next queue record to read in. ' t 
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Duap Job (Subroutine) 
Input PROCESS OUTPUT 


IL. 
eee >From Caller | 


01} Save caller*s register and set >fa] 
indication that job is found 


A. Print operator’s reply, if not [4] 
already done 


fo2} Porsjsat and print first gueue record of =>fe} 
job 


disk addr 
| ae DED | 


Rel 
< eevsecee D> 


| 
OUTPUT 
/ Pormat and print : [ce] 


DD-5.1 








As Save isk address of next queue 











| 
| 
recor : ee = 
fo3} Read in data block =e} But fer 
> 
| 
| 
| 


| If foun 


< 
ebseecce seen cee, . aaa ' area 
: Se ; NEE | 
3 Read record from disk 
: DD-2-2 | 
[1ODFILE ]} ------- --4 i----- A. Check if data block contains all 
: : | binary zeroes. If so, se flag : ~ 
: Poa B. Format and primt data block >fe} ZEROSW 
: : | /——.. jon | off | 
: : < eceese > 
soawreo satay 17 = 
= 3 Porrmat and print poss | | fp} <= DSKADD& 
z 3 ad | MBBCCHHR 
oe eo oe ee oe oe : : ° or 
gS bore, C. Scan data block for end of data. [eee BOSBAKER 
3 and —/ 


I 
a——------)71/04] Increment disk address to address next 





|| 





praia ~ 
3 3 data block 
3 A. If next data block is within eee >[03 
— 1 3 same track/block group . 4 
: \-------~------- 2/05] Get next queue record in set > IC] 
: < eeeeee > 
2 of Read record from disk 
: DD-2.2 
Sete ee A- Format and print queue record 
as 
< wustee > 
—_———/ 


Sn ee 


Pormat and print 





B. Set up disk address of farst [ooe” 
data block in track/block group. 


EE DE ROT EPA ET CE TSI EHR RIS SHE GEST ERI ET TER PEST ITS SS OS ORG PEAT RT MN SE SEE PEE EO COPE IES GET ET ARE OSS Ee TI SPENT 


06] gSestore callers registers 
- grestore disk address of next queve 


record to read in 
Brit, return to Petters 
= 
pe 
v 


DD-5.1 | 
| 
| 


ee erceeitaineneaenenabamneineduesiaiaestnahiiemnmemnimnetedeanenemndianmmmmenaennintemeattanammeimentemamemaareecnaaientniananetdene 


/ 
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eT Job (Subrout ine) 
NOTES [wores. ~~  § MODULE | LABEL | REF | MODULE {| LABEL | &EF NOTES { MODULE | LABEL | REF 
Gate gicceetang Rb2sciated Gaeue | Boe device, ‘the catrent cecors, ateber | 
e 
SYSLST made if the new data block fits in 


| records allocated by a job on 4is_incresed by one and a check 1s 


the rrent track. If the new data 
1 The operator’s answer is printed block 


as on the next track, the 
on a hew page on SYSLST 4 b 


track numper is incresente ce one 
and the record nugber is set to 
one. A check is aade if the new 
track exceeds the track qr oup - if 
50, the next queue record is read 


: 5 The address of the next tone 





2 The first-in-set .aaexe record is 
formatted and printed 


| 2A Since the queue set say 
consists of multiple queue 
records, the disk address of : 
the next queue record in the record is obtained froa 

current queue record. 


6 the disk address of the next gueue 
record in the class chain or the 


set or the of the next queue 
record in the file in case o 
abnormal termination is sav 
DJOB 10 next queue record 


the queue 
fale is restored. 











Each record in the data block 
is examined for the end-of-data 
record 


3 
3c 
4& If the data file resides on an FBA 


device, the current plock nuaber 
is incremented by the unit of 
transfer (that is the number of 
PBA blocks which are perm ee by 
one data block) - The new 

nuaber is then checked against the 
res ge vaiue. If the new 
data block does not fit entirely 
in the picekgr our. the next queue 
record in the set 1 


Ss Fead in. 


| 
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¢ 
| IPWSSbDQO - VSE/POWER Delete Queue Set from Chain 


] 


Label 


‘Routine 


eset 
Function Entry 
Examine Queue Record 


rw wTw Nw we Se = 


yQo00o 
DY08 
DY32 
DQ 36 
Dy40 
DO44 
DYQ50 
DQ90 


Delete First in Class 





Delete Middle in Class 
Delete Last in Chain 


Delete Complete Chain 
Punction Exit 


Address Conversion 


ee ee ee ee ere eee 
}) Services Usea 


re 


service 


\ 


Macro 


CHART DO: sPwS$DY 


ULE 


a eed 
t Resource Management j 
|} LTPWSRSR 
+—-——_—————————V——uXexqu——————u—uMm ——— 
} bisk / Tape Service | 


\ 
| 


LPwSRLR 


IPWSCTT 
LPwSRDQ 
LPwSwlQ 


| ee 


| Called py 


tC Co Oe 
} Description 


Sa SS SS 


ree SS eS 2 


Module 


IPWSSCA 
LIP WSSCL 
IPWSSLR 
IPWSSLW 
IPWSSNR 
IPWSSNT 
IPWSSOP 
LPWSSTR 
LPWSSXR 


or ee ee we ow oe ae oe 


Conmand 
Command 
Logical 
Logical 
Network 
Network 
Otfload 


Processor (PpaLT&xR) 
Processor (PVDELETE) 
Reader 

Writer 

Reyeiver 
Transmitter 

Queues 


fask Terminator 
Execution Reader 
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cr a 
jLapbels j|Chart DQ: IPWSSDQ ~- Delete Queue |Jmoditied Data jRege-  jcalis 4 
j {set from Chain jflelds Wsage | i 
] — ee oe ee ee ee we we ee a we es we ow we = oe oe ee we we wee we we ww we ww ww oe ew we ewes we we ww eee ew www www eS Oe eww ew we we we i 
}DYCS ifthe first 16 bytes constitute the 


| 
} {section descriptor: } 
) 1 1 
! 1*DQCS 10 release® } 
| \ \ 
} OwWUd jfunction Entry j 
1 \ \ 
t jSave cailLer registers 14 through Y i IPwSDSV 
} jinclusive. } 
i iSet addressability for queue record | 
) jarea. } 
| )If no tape spooling, Drancn tO..-ee-> DVI 
1 jRead 1n the trailing queue record. ! LPWSCTT 
\ | i 
1 \ | 
] j Branch CO ccc ccecccvcccccnccecscscaser{DUIID 
! | 4 
}DyvV1 }set Lunction track indicator to D TCET  (LewsDre) 
| | (deLete in progress). 
i jset addresSability for disk 
} JManagement block (DMB). 
Y jLock vDMB. LPWSRSER 
! \ 
| jaddress first-1in-set. TCyuW (ITPwWsvCT) 
1 \ : 
\ 


yo 
£ 


' 
| 
| 
| 
1 
1 
! 
1 
DyO8 tsave "flush nold"™ indicator from t 
{current queue record. j 

|Save remaining copy count from | 
jcurcent queue record. | 
| 

| 

1 

1 

| 

j 

1 

1 

\ 

1 

| 


a = ee ee er we ew ew ee ew ei ee ee 


Dw 
££ 


{Ro 
{Rs 


1 

| 

1 

1 jSave current copy group index. 

t jsave remaining restart page count 

j )fcom current queue record. (it Sstiit 
| jexists 1f£ PSTOP, RESTART was 

j Jentered). 

! ' 
| }ixamaine Queue Record 
\ ‘ 
1 }kead LicSt-in-Sset queue record. kewWSRDO 
| jit the previous class pointer 

| jaddresses the record itself, the 

| }queue set was not yet aaded toa } 

| ICLASS ChAiNe cece careccececnccccsceccee*| DUDZ 
1 \ \ ) 

1 tit function byte indicatoc *hold®*, | JXCCB(LPwWS$dDTC) 
] {the yueue record execution Switch 1s | {URAS (LPwSOYR) 
\ 

\ 

| 

\ 

\ 

\ 

\ 

\ 

| 

\ 

\ 

1 

| 

| 

1 

1 

1 

1S 


oo ee ee eee eee ee ee ee ee ee eee oe ee ee oe oe Oe oe = 


jreset and the Shared system id 1S Setj IWRSI (Le WSDYK) 

to xX*00". The queue record is ' | 

PCEWLACTCN, ccc ccc cccaanvecceacccccccerfVYID2Z 

4 | 
DQ10 s1If request from Command processor...>|Dy2u 


LPWHWTQ 


ve “KEEP* disposition, pranch A ee 
ve not, *FLUSH,HOLD*, branch seabed els 
ee *HOLD* disposition. 
DVI3 eget saved flush hold waren eeu os peas IWROI(LewsDVk) 
Dyt2 ‘aus *LEAVE® disposition. Teehinereweubel 
rte *fLUSH,HOLD*, pranch eos ceadactes (oes ' jk 


ee OO Se Oe ee Oe Oe ew wm Dew ee ee Owe ew ww ww ww we Ow wm ew ee em ow ew Oe we ew we rw we ow ew ww we ow ow} 


YRDP (APWSDUK) 


—_—_esse ee eee ew 8 ee 
— 
-_— = we we ow oe we fm oe ww we ow © we me wm ee we wm we ie ewww wei a 


-_— en a a we ae oe we ew ww we iw i ie ie ae 


' 
! 
i 
! 
1 
i 
| 
t 
\ 
i 
' 
\ 
\ 
‘ 
| 
i 
\ 
t 
1 
! 
' 
i 
1 
I 
| 
\ 
| 
\ 
' 
\ 
\ 
\ 
| 
' 
! 
i 
| 
! 
\ 
\ 
\ 
' 
i 
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! 
\ 
' 
\ 
\ 
| 
! 
\ 
| 
\ 
i 
} 
1 
1 
' 
\ 
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‘ ae ee -_— oe ow a a we OO ee ew OO OS BO | Ow Ow |S SS Se Sw Ow DO Ow ee a a a i ee ww we ee ee ee = ow. 
1 


DO2ZU 


DQ26 


DY32 


DQY36 


DQ40 


PST we ee wee we eww ee eee ee ewe eee ee ee Te See See SS ee eee eee eee 


oa a ee 


ySet from Chain 


{Reset execution switch. 

jset saved remaining restart page 
jcount. 

}Reset system-id indicator. 

\ 

|Rewrite the record. 

\ 


PEXAC wc ccc ccc cr ceccccccscccccccccecccer| DUD2Z 


1 

}fne aadress of the correct class 
jtable andex entry is caiculated 

) 

|Detecmine position in class Chain py 
jexamining the class Chain pointers: 


Delete FATSt 1N CLASS. ccccccaccccceer|DYSZ 
pDelete middle in ClaSS..ccccaccceeae>| Dy30 
jvelete Last 1n CLASScccccacccccccece > {DU4V 
Delete complete CnalNeccccccce cece ee r| DU44 


b 

twelete Farst-in-Class Set 

i ; 

}Read next first~-in-set gueue record 
jan the auxiliary record area of the 
}4Zero its previous class pointer. 
{Rewrite this record. 

\ 

)Store new forward pointer in class 
jtable entry. 


PEL iso Sis eeieta Seceictels dle Sic cele 6.6 .0bieleeaeele > 


jDelete Middle-in-Class Set 

] 

iRead previous and next first-1in-set 
Iqueue records in turn. 

1 

jExchange class pointers. 

1 

iprevious record - forward pointer 
{next record - previous pointer 

i 

JWraite the records pack in turn. 

| 


PEKLC ec ccc ccc ec acc eccccccccccaacscccce>| DUD 


1 
iDelete Last-in-Class Set 
1 


ead previous first-1n-set queue 


jrecord. 

}4ero its next class pointer. 
jkewrite this record. 

{Store new backward pointer in ciass 
}table entry. 

{Set live pit (class ECB). 


PBXLC ec ncaccnvrcaccccscasecccaccscececcee®| DYDVU 


b 
' 
' 
1 
! 


-_— es Or eo as OF we oF a we Sw SS ow Se ew ew ow ew ee 


-_ 


Imoditied Data 
jFlelds 


fORAS (LE WSDUR) 
IWRRR (LPwWSuyR) 
! ° 

WURSY (LPWSDY RK) 
i 


WURS1 (LP WS DY R) 


JURYL (LPwSvOR) 


YWCYP (LPWSDYL) 


CTuPr (mceT) 


VCUN (LP WS LUC) 
QUCUP (LPWSDUC) 


IWCUN(LPWSDOL) 
| 


ICT UL (Act) 
| 
ICT YL (MCT) 
| 


ee ee ee re tt eth tet th el et el 


jReg. jealis | 


2) 
a 


Lewswiy 


LY WSRDY 


Lrwswty 


LewsRdDQ 


LrewswtQ 


— ee a oe oe ee Se ee ee ee oe ie pe eee oe eee i i oe oe wee ie 


LPwsRvgQ | 


4 
LeWEW LY | 


oo ew ee wi oe oe ie ea eo 
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| pee en eee 2 oo oe on + 9 2 3 no 5 oe 5 + ee eee e+ Rec re ee eR Po ---, 
jLabels jChart Dy: IPWSSDQ - Delete Queue iModified Data iReg. jCalus | 
j }Set from chain }Fielids Usage } | 
Se ee re eae te a eee Pee Ore ee ee en ee ee em eae ees oe eee L 
Dyas {Delete Complete Chain | " 

I } | | 

Zero forward and backward pointers inj jCTUF(NCT) | 

jthe appropriate class table entry. | {CTYL(uNCT) ih 


' \ ! 
}if the spool files are not Shared, j i 
jexamine next CclaSSceccccocceanvccccece>|DYUDU | 
1 | | 
{fhe appropriate bit in the sysid 1 \ 
jcLass table is turned off for ali | | 
!sysids, because there are no Longer |} ) 
jany entrieS in the class list. t 
i ' 1 
sfxXamine next CLASS cccaccccesecccccce oer>| DYDU | 
i i | 
{function Exit t | 
5 ! ! 
Dy50 {set previous set pointer. | IWRYP (LPWSDUR) 

\ 

] 

1 

\ 

| 

t 

h 


}Reset execution switch. IwRaS (LPWSDUR) sPw5w tly 
}kReset system-id indicator. 1ORSY (LP wWSvUR) 
{kewrite the record. ! 

\ | 

Dy52 {Set function track indicator to c*U* paxCrT (LPwSuTtC) 
{ (uncnained). | 
' \ 
{lf 1t is command-processor task or ) 1 
JSaveraccount FUNCTION. ccec ee accccccee>| DYDD | 
! 1 | 
jUnlock DMB. j j LPWSRLR 
| b i 
i 1 | 

DYoS5 jxrestore caller registers and return. | | 
I i \ 
Jabsolute to Relative Seek Address Conversion Subroutine 
| | i 

DYyg0 |The absolute seek address addressed j| 
}by cvegister 2 is converted to a t 
jcelative record aadress which 1s } 
jreturned to the caller in register 1.] 
1 ft 
jFor FBA devices 1t 1S not necessary | 
jto convert from absolute to relative, | 
jbecause READ/WRITE will pe done witn | 
jcelative plock number ony. } 
| | 
iif fBaA device is used, store absolute} 
JoLocK number (register 2) in j 
{register 14 (relative block number). 4} 
I ] 
{Retucn to caller via register 14. i 


canon ec ena ae acoso Cee ee ot ewe SC eee eee cee See een a Coe wee Soe etl eee ay 


R14-RY 


— ew ee ee ei i ei ee 


jRO,R1 


bs) 
Q& 
= ow ww we ww Se ww ies isi oi ei i oe ee ee ee oe eee Om ee ee ie we ewe wee 
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CHART BR: iPWSSER 








Wop pees FO a ee a ee ae ie ge eG Sole an 6 pte IP cae ye Se ee nr a yy Oe ge 
| LTPWSSER - VSB/POWER 3540 Diskette Reader i 
k A Ce em —_— HH 
| Label } Routine | 
++ —-—~4 
{| 2kCS } Routine Entry \ 
| Psodod } PUB Scan Routine i 
| opoo } Open Extent Routine hi 
{| sPOU j fnitialize Physical Data area j 
| RvOd } Read Data Block | 
} DBOO | Deplock Routine b 
| EXOU | &xit Routine | 
| SR10 j Subroutines j 
| ee NT a | 
eee ee ee ne Oe es ee eg ee Oe ES eee Tage eee ee 
| Services Used \ 
Se SS SS So 
|! Service { Macro t 
|} _+_-—--- ie at Sa 
| fask Management | ITPWSWFC j 
t--————_> OO t 
| Storage Management } IPWSRLW | 
| | IPwSRSW ’ 
+ 
} message Service | LPwWsGam | 
SS ee ee Seed 
| Notify User Message {| LPwsnTy | 
| a eg eS en RR aE EY SONS a ee no cE ee a rE a ee EE EE ED 
cr SA SA AIS RE RET RE TSS BFPO RS a SS CE ZOE NOTRE SSIES SRST REET TOES | 
| function used \ 
|-—___—_—___-__._ —-_m oO mm qi 
| Module | Macro | 
eee eee ———e—e—ee——eeee—a—=aa=—aa=—=—=[9anana—n—_—_ OOO SOS OS ccaarananeinct | 
| LPWSSLW | ITPWSPLR - Put Logicai Record | 
} IPWSSNU } IPwSOLI - Open Logical intertace \ 
| LPWSSOE 4 } LPwSOEF - Open Diskette File | 
| IPWSSLU | IPWSULP - Update LUB/PUB fable i 
|e eee ET =e a a ee Ee TEED | 
CSS ek Oe ae ge ae ee EG ae ye gg pe Ope ee ee Eee a Ce Pm Gee eee gee Pt ae eee ed ee 
} Called py \ 
|} ———__  H 
| Module | Description i 
nn rc ewe 
| IPWSSCS } Command processor (#STARKT) | 
| LEWSSLR } Logical reader | 
| ee 
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tLapels jChart ER: IPWSSER - 3540 Diskette keaderc {Modified Data tReg. jCalls 
1 j¥lelds Usage | 
}@has routine 1s entered when the | 
ijLogical Reader (LPWSS5LR) encounters a} 
b* $5 RDR Statement, or when a PSLART 4} 
jcommand 1s issued for the 3540 
{Diskette Reader. 
' 

ERCS }CSECT name. 

\ 

jtne first 6 bytes constitute the 

iSection descriptor: 

\ 

{}"ERCS release * 


te 
ao] 
wn 
oO 


iGeneral Register Usage 


***8 —- Service work register 

- **** - Service work register 

- ***¥* ~ Service WOrK register 

¥*** =~ Service work register 

- **** - WOIK register 

~ "*** ~- WOCK cegistec 

- **** ~- POInter to Last CCW in 

string 

- **e* ~- ReCOrd counter per tLlack 

IPwSDPw - Physical work space 

- PRCS - PhySical reader base 
cegister 

~ LPwWSDPA - VSE/POWER nucleus 

~ LPWSDTC - Task control plock 

¥*ee - Reserved for nucleus use 

- LPwSuSV - Task save area 

- **** - Subroutine Linkage 

register 

¥*¥eX -—- Subroutine base register 


eb bw 
£&UuUnR Cc 


1R5 
1R6 


CWS UR &— Cc 
' 


}R7 
{R38 
{RY 


[Va o a 
' 


}R 10 
}R11 
{R12 
1R13 
{R14 


mew oo 
fun 
' 


- 
u 
' 


pRoutine Entry 
l 
REVO jit this routine is entered from the 
{the Logical Reader with a connected 
$3540 diskette device (aiternate 
jaiskette processing LWER=X%*U1°), 
POCANCH COcccecunacccccccsanccecesce> (OPUD 
\ \ 
\Iif this routine is entered from tne | 
{the Logical Reader in case of either |} 
iprimacy diskette process (LWER=xK*08*) | 
for i 
idynamic diskette process (LWER=xX*°805) j 
POLANCH COccacccccacecccccccacscceoseaer| REI 
' I 
Otherwise this routine 1S entered on | 
jpehalf of pstart commana for a 3540 | 
{daskette ceadec ) 
jSave the parameter values which were | 
jpassed 1n register 1 1n register o. | 
\ | 
Open the anterface to the Logicai \ 
{Reader routine. | 
\ 
\ 
| 
' 
\ 
i 
) 
\ 


——_— oe oe ee oe ee ee eee ee ee ee ee ee ee © ee a a ee om ww a or ew ee ee ee ee oe 


LewSOLL 


| 
jReserve 3540 physical work space to 
jhold 3540 diskette information. 

' 
}Save the reai address of the physical 
}work space. 

| 
jAnchor the 3540 PWS in TCB. 


eee ee ae ee ee ee ae oe ee ee ee ee ee ee ee ce ee re oe wm we oe ee ee ee we we ww wn me we re ee a we ee re we oe re ee ee ee ee we ee i ee a 


LewsRsw 


i 
i 
) 
\ 
\ 
| 
\ 
h 
) 
\ 
\ 
| 
b 
\ 
i 
' 
i 
\ 
\ 
\ 
| 
\ 
| 
\ 
\ 
b 
\ 
| 
\ 
t 
\ 
i 
\ 
|R1V5 | 
\ 
1 
\ 
\ 
i 
\ 
I 
\ 
\ 
’ 
i 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
1 
i 
\ 
\ 
\ 
i 
1 
\ 
\ 
1 
PERA(LPWSvP mu) | 
\ 
\ 
i 


ce E ww ww we ew we wee ew ee eee en ew en ew nee eee ee ee eee ee ee eee ee nee renee eee eee 
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jLabels 
1 


RE10 
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pCnart ER: IPWSSER ~- 354U Diskette Reader 


jinsert 3540 diskette intormation into} 


jthe physical work space: 

1 

je File identification (from 
registers 4 ana 5) 

Device type indication (from 
register 6) 


Byte 1: Device type 3540 daskette 
reader 

Bytes 2 and 3: Programmer itogical 
unit 3540 diskette reader 

PSLART parameters (fcom register 

7) 


Byte 1: Number of diskettes to be 
read 

Byte 2: Volume sequence cneck 
indicator 

Byte 3: Verify indicator 


{Store the device type code in tne 
}fCB. 

I 

jindicate primary diskette process in 
jthe TCB. 

! 


jLoad the address of the masSter record 


{register 3. 

\ 

iClear the option FEED. 

1 

j1lf tne option FEED in the mastec 
jrecord is not on, then branch to... 
i 

pfurh on the option PEED inh the 3540 
jphysical work space. 

i 

Check it there is already a 3540 
jagevice assigned. That is the case on 
jpcimacy process at Ist occurence, CP 
jmade the assignment, or 2nd RVR stmt 
jin one jobstream, the punScan and 


? 


! 
| 
| 
i 
! 
\ 
i 
| 
\ 
\ 
1 
| 
\ 
| 
t 
| 
' 
1 
t 
' 
1 
| 
b 
L 
i 
} 
i 
h 
] 
! 
i 
! 
pRe20 
| 

1 

} 

1 

i 

1 

' 

h 


fassign function was perfocmed already} 
jin this case skip COs wwcceveceveececer| OPUU 


}modified Data 
|frelds 


PEPL(LPWSDEN) 


PEDL(LEWSDPW) 


PEPS(aPwWduPw) 


£CuT (LPWSDLC) 


LWER 


PEOP (iPwSuP WwW) 


PEOP (iP WSDPW) 


eee eee ee eee eee oe eee ee 


jReg. pCalis 

jO0sage i 
| 
| 
) 
i 
1 
i 
j 
| 
1 
! 
1 
| 
1 
1 
| 
i 
i 
i 
i 
1 
' 
i 
i] 
i 
i 
h 
i 

R3 j 
i 
1 
| 
} 
1 
1 
i 
1 
| 
i 
i 
| 
| 
i 
i 
' 
i 
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jJLabeis |Chart ER: IPWSS$ER - 3540 Diskette Reader iModitied Data jReg. Calls 
t |fi1eldas jUsage j 


ee a ee ee ED ee A EP ee ee cD a ee ee ee ee ee ee oe ee ee ee ee ee a ee we we ww we we wwe ww ww ee we we we Oe we © Oe ew ow ew ow we ww ow ew ewe 


jPub Scan Routine 
| 
{Establish addressability to PUB tabie| 
1 | 
iScan PUB table for a 3540 device 
P4%354u). and 1£ Found... cc cw wees nee eo Af PSD 
! | 
j}Get next PUB addressed and check 1f } 
jend of table reacneda. If not.....-..>|{PSuod 
pOtherwase no 3540 device is defined | 
jin pup, device iS down or in use ana | 
}therefore to issue msg Dranchn toO....7}PS53U 
i 1 
{A 3540 device was found. Convert t 
joinacy format of cuu in Character \ 

| 

! 


— = -_ 


to te 
ui Yu 
oO c 
om o 


to 
WG 
- 
oO 


to 
un 
- 
wi 


i 
1 
| 
{ 
\ 
i 
\ 
| 
| 
i 
! 
| 
I 
I 
| 
| 

jtormat of cuu into PwS. 1 

i | 

psetup *LOCATE FREE PUB*® cequest | | avwsU LP 

}On ceturn, if re ~U cContinue......2-.>}P5W } 

1 | | 

{Setup *LUCATE AND aASSIGn LOUB* request} 

}On ceturn, if re 70, } j 

1 1 I 

|Setup "UONASSGN RELATED LUB* request | ! LewSU LP 

Jand Stact OVE AGAIN cee cere ewe vc ee > PSW | 

1 i ! 

{Get Logical unit number and branch j j 

jto test if device operational.....-->|Skov ! 

1 4 1 

}Un return if device not operational | t 

}setup *UNASSGN RELATED LUB*®* request | ! 

Jto continue scan branch tO.wccecacee >| PSIU | 

i I \ 

{Otherwise branch to open the just iy j 

fasSigned 3540 devicerccaccc cece cece ee rj OPU0 ! 

{ ! ! 

ifissue message ; 1W90I * $$ RDR 1 

| STATEMENT NOT PROCESSED, JOB FLUSHED j 

jto the submitter of the job, which ! 

jcan pe rje task or spool management. } 

| h 

PSEX }Set flush stop code in TCB and | 

jocanch tO eEX1lt COUTINGC caecenecceccaae >| BAVUV | 


ce ee ae ce ee cm te ee ee ee ee ee ae ee ee ee ee ee ee ee ee ee om ee om em me em ee ee om ee re ee me oe ee ee re 0 ee ew ee ee © ee ee a ee oe ee wr we wr Oe we wow 


As) 
U. 
Ww 
oO 


ipwsU LP 


to 
U. 
a 
io) 


LPwsGauh 


LPwsnTyY 


\ 
\ 
1 
\ 
! 
| 
\ 
\ 
\ 
' 
\ 
\ 
1 
\ 
\ 
\ 
\ 
| 
| 
i 
| 
{| LPWSULP 
\ 
i 
i 
\ 
i 
i 
\ 
\ 
\ 
\ 
i 
\ 
| 
i 
\ 
\ 
i 
i 
1 
\ 
' 
I 


172 VSH/POWBR PLM Part 2 


—— 2 ee eee oe eee eee ei ese esi eee ies ee 


Licensed Material - Property of IBM 


j Labels 


| mn nn nn nr nn ne rn en nn nn eee ee ee ee = 


2 oe a we ee ee ee ww ew em ww we ew SS © Ow ee ee ww 0 ee we Oe ee ee ew ewe ew we Oe OO © Om we ww wr wm ww oe ee @ we ee ow we wee ow wm oe ee we ow ow oe 


Co 
rm 
Sc 
Oo 


Co 
As) 
Oo 
wn 


Oo 
to 
oO 
~) 


(o) 
rt 
- 
Co 


oO 
aw] 
nw 
Oo 


Chart ER: IPWSSER - 3540 Diskette Reader 


{Open “extent . 
jSet the 3540 Communication pyte in 


fthe fCB to X*02* to indicate reading 

{from 3540. 

i 

iSet the multivolume identification to 

1X*40"% to indicate the first of a 

jdiskette sequence. 

! 

}Set the open return code to X*40*". 

\ 

{The foliowing fields have an initia 

jwalue of binary zero set by tne 

|resercve work space service: 

t 

je Extent lower tinit 

i¢® Record length 

te Next sector address 

je Number of opened diskettes 

}¢ Volume seguence numbec 

1 

{Open the first 3540 volume. 

\ 

}Check the open return code: 

| 

If open successful (PEOC=C'0O"), 

joranch CE Oiscareie elec ere Lole ele: ole! w acwlets etelsJale >, OP 10 

j 1 

If forced end of volume (PEOC=C*°E), | 

{branch TOww ec ecnesecevcaaseonesecncac >| Fvo00 

i i 

}Cneck tne 3540 communication byte i 

jfor primary diskette processing t 

{| (LWER=X*08%), and if not pranch to..>4{Oru7 

b | 

iCheck if high level 3540-PWS present } 

J2£ not (PEHA=0), Dranch tOccececcse ae Af EX3V 
! 

iSet the termination byte in the tCB j 

jto C®f* to indicate flush, and brancnj 

{to PLUSH. 6 oecacae-os's eile Sele eeee eo ee elele le >| Ex00 

| h 

}Check whether the extent contains any} 

jrecords. If so, pranch to process t 

{THEM wc ccccceccaseascecerevanseaveccses >| Orz0 

' \ 

iCheck for more diskettes: j 

| \ 

}if there are, branch to open the next} 

>{Orou 

i t 

{if hot, > oh Se ee 2} Foud 

i ! 

{set the seek address to the begin j 

pextent. i 

1 | 

{If tne pegin extent does not Start onj 

ja tceack poundary, branch tO.e.----. >J|OP3VU 

! ! 

JOthercwise, decrease the track nhumber | 

jby one. " 


en ee ee ee 


fSXTENTCeccccecccsccccnesceenanccesacace 


jModitied Data 
jfirelds 


1 
jLWER(LPWSOEC) 
\ 
| 
I 
|PEMI(LEWSvP w) 
I 
1 
| 
)PEOC (Ly wsDP a) 
\ 
i 
\ 
\ 
\ 
| PELO (LP WSDP a) 
jPERL(LPWSDeW) 
|PE&v(LPWSDPW) 


|LEOD (LeWSDP w) 
JPESN (APWSDPW) 


PCLT (LP WSDEC) 


PESK (LEWSDP w#) 


PESK (LP wSDe Wd) 


jCalis 


jUsage | 
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jLabels |jCnart ER: IPWSSER - 3540 Diskette Reader jttiodaftied Data jReg. {Calis 

] j JfFields {Usage j 

Op30 jinitialize the pre-SEkK address to i jPESO(LeWSDPW) 
jseex tor record 25 on the next track.} | 
| t | 
{Using register 141 as a work register, j JPEED(LPWSDP A) 
ithe record number of the next sector | | 
jaddress indicator is decremented by 4, 
jone. If the record number is zero, j} 
{the cylinder numper 1s decremented py} 
fone, and the record humber 1S Set to }j 
}26. j 
| t 
}Initialize Physical Data Area 


! 
i 1 

IPvgd jUsing registers 2 and 3 aS work } 
jcegisters, the amount of storage 1s 4 
icalculated for the physical data i 

jarea, which must pe large enough to } 
}contain the CCB, 28 CCWs and the data| 
jouffers tor 26 diskette records. t 

4 

H 


} 

}irt tne total space necessary 1S 

}Smalier than 2008 bytes, pranch to 

jcreserve a Single puffer space...... > {1lrvzu 

i 1 

yOtherwise, reserve the first L2wsRsw 
1 


\ 

I 

| 

i 

| 

} 

| 

i 

1 

\ 

| 

| 

\ 

\ 

| 

| 

\ 

| 

| 

\ 

\ 

1 

i 1 
\ 

| 1 
| tpart of 2008 pytes. t 
\ ‘ 

| }Save the CCB pointer in the physical | PECU(LPWSuP Ww) 
1 |WOrCK space. t 
| \ ! 
\ Using register 2 as a work register, | PECyD(LPwWSUP HW) 
1 icaiculate the displacement petween Y 

| jtne virtual and reai addresses of tne} 
| iphysical data area, and save it in j 

| jthe phySical work space. h 

! I | 

1 ifthe size of the second physical j 

i jdata puffer to be reserved 1s } 
fcalculated in register > and dividea } 

i joy the record length to test 1f it | 

\ {contains an integrai numper of data j 

| jrecords. ; } 

| jif the remainder in register 4 is t 

| zero, the data buffers to be } 

| jaLlocated do not cross page j 

| jpoundaries, and a bDrancn 1S made to >4LP10 

| 1 

| jOthercwise, increase the number in 

] |register 1 by one to allocate one 

| jouffec more in the second data area. 

1 \ 

{| £220 jfhe number of data puffers to De 

j pallocated in the second data area is 

} jSavea in the physical work space. 

\ \ 

i] jCalculate the total space required 

1 jtor the second data area in register 

\ i> (mumber of buffers muiltipiied py 

| }cecord length). 

\ 


PENN (LY WSDP a) 


R4,RS 
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jLabelS jChart ER: IPWSS$ER - 3540 Diskette Reader }Modatied Data iReg. pCalis 

1 } jFrelas ijUsage | 

j men ee we ee we we we nm wm wr we ww oe we me oo oe wr wm we oe a wr oe mw ee a a ee we we ew ee we re wwe ee oe ew 
| Le2u jfine cesult is rounded off to the next] {R1,Ro 


{multaple of 32 and copied into 1 
jregister 1. ! 
1 I 
jIhe space requested in register | LPWSRSW 
{1 is reserved. (This space can pe t 
fused aS a second data acea in case 1 
jthe total space 1S greater than 2008 | 
}bytes, or it can be used as a Single j| 
jdata area in case the total Space is } 
jSsmailter than 2008 bytes.) ' 
1 \ 
{ff the space is to pe uSed aS a 1 
}second data area, pranch toO....e.-. >| 
| | 
Otherwise, save the Virtual address 

yot tne space to be used as a Single | 
jdata area in the physicaiL work space. 


LP 30 


| 
] 
\ 
1 
\ 
i 
1 
! 
i 
) 
\ 
\ 
| 
i 
| 
jPeECV (LewsvePw) 
\ 

I 

| 

\ 


| 
pCalculate the displacement between 
the vartual and real addresses and | 
{Save it in the physical work space. 4} \ 
IPBLADCN LOccac cca cvcccccnccceccseces ALLIP4U ] 
1 . ' | 
[P30 {Save the real and virtua | JPEKN(LTewsDr aw) 
jaddresses otf the second data area ln | JPEVN (ivwSDPW) 
jthe physical work space. | | 
1 | 
Iv40 jistaplish addressability foc the ccs } 
jan register 14 to initialize the tfrirstj 
j}t0 pvytes of the pnysicat data area aS} 
la CCB. | 
joet the first communication pyte to 
}4*08* to aundicate wait for Channel 
jyend and return on data check. 
| 
{Move the programmer iogical unit to 
jtne CCB. 
1 
jset the EXCP reali indication in the 
CCB. 
pstoce the real address of the first 
(CCW ian the CCB. 
jLoad the address of the first Ccw 
jinto register 3 to estabiish CCw 


' 
4 
! 
\ PECD (LPWdDP Ww) 
| 


u 


OG 


BC1(iPwSuCB) 


BLC (LPWSDCB) 


Gi 


CBLC (LewSDCH) 


CBCA (iL PwSvCB) 


ww ae we me ee ee = oe om ow Ss Be oe oe ee we ee ee eee ieee ee eee ae eee eee ee 


jaddressapility. 

jmove the SEEK CCW. 

yStore the seek address in the CCw. 
sCalculate tne reali address of the 
jfarst data puffer in register 6, and 
{tne virtual address in register 4. 
{Save the real and virtual 

jaddresses of the rirst data butrer in| 
{the physical work space. ' 
jLoad the record length into cegister } 
17. i] 
jLoad the number of puffers to be 1 
jallocated in a possible second data 4} 
jarea in register 1. t 


- oe oe & a & ow we © Ow we OF ew Oe ee ee ee 


jCalculate the number of puffers to be} 


allocated in the first data acea (or | 
}possible single data area) in t 
|cegister >. 1 


—_— oe oo oe ee ee ee ee ie ee Oe ee 
G 


[CWC (LPWSDCW) 
}CWwHVA(LPWSUCH) 
{ 
| 
\ 
JPEDA (LEP WSDEW) 
J|PELDV(LPwWSDPW) 
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jChart ER: IPWSSER - 3540 Diskette Readec 


|move the read CCw image, the 

jreal burfer address and the 

{record length for all CcwW entries. 

i ‘ 

janitialize the pre-SEEK CCW to 
jperform seek overlap to record 

125 on the next track as the Last CCw 
jin tne string. 

1 

jLoad the real address of the pre-S&5BK 
1\CCW anto register 6. 

i 

iSet the record counter to the first 
icecord from the extent in register 7. 
' 

iRead Data Block 

! 

1Calculate the numper of records read 
jon the track in register 1. 

1 

|}if the current track has not peen 
icompietely read, or if the first 
jtcack of the extent has to pe read, 
joranch TO cece cesneneccosascecnsvccaacs 2 
\ 

}Otherwise, reset the record counter 
jin register 7 and the record numper 
jin the phySical work Space to one, 
fand peranch CO ois 6676 6528 Sie le 6a 0 6 oe 6:0 See JI KD2ZU 
! A 
{store the current record Number in ‘ 
jtne physical work space. t 

! i 

{f£ a Short string has to be generated; 

jto read the remaining record on the |} 
jcurrent track, pDranch tO.wccceeaeaee >(RVID 
' 1 
tIincrement the track humper py one to | 
faddress the next track. | 

\ ' 

}If the pre-SEEK address equals tne | 
Jtast track of the extent, branch to »}Rv30 
i \ 
jOtherwise, update the track number inj 
jthe pre~-SEEK address to perform seex } 
joveriap to the next track, and bDrancn| 

PEO eis 6.6010 lee 6256s 0e So ele weer e.o%s) ekaie-ealee >) RD4U 
) 1 
{Set the pre-SEEK address equai to the} 
jcurrent SEEK address. j 

b i 

{££ a complete track has to be read, | 
joranch CO 6x6 8 eteie e's 6 see ete oe eo ee @ oe erate > | RvoD4O 
\ 1 
{Otherwise, generate a Short CCW ' 
{string to read the remaining records.| 
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|Imodified Data 
j¥relds 


[CwOS(LPwsDCH) 
[CWOA(LewSsDCW) 
}CwuCT (LPWSDCw) 
\ 

jewCC (LPwsDCw) 
|CWuA(LPWSDCW) 
{|CwRL(LepwsDcw) 
| 


PESK (LPWSDPW) 


PESK (LPWSDPM) 


PESK (LPWSDP Wh) 


a eee eee ee eee ee ee ee eee ee oe eee i oe 


jcCalis 
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JLapeis {Chart ER: IPWSSER - 3540 Diskette Reader jModified Data }Reg. {Calis 
! i jfielas Usage | 


}RD40 j}Set up CCB addressabiiity in register} 
12. 
{ 
|Save the real address of the first 
}CCW in register 2. 

i 
| Bxecute the channel program via SVC U 
jand wait for completion. 

y 
}Restore tne address of the first CCM. 
! 
jlLoad the address after the seek CCW 
jinto register 2, and the address of 
jthe Last executed CCW into register 
{3-. 


Lewbarc 


CBCA(LewSDCB) 


—_— 2 ee wee ee ee oe 


jLoad the address of the rarst 

{data buffer into register 0, and the 
jcecord Length into register 1. 
{CalcuLate the number of puffers 
jallocated in the first data area in 
jcegister 4, and branch to pass tne 
jcecords to the logical reader...... > 
\ 
iDeplock Routine 


}RO,R1, 
IR4 


DB2U 


| 
1 
\ 
| 
i 
| 
| 
| 
| 
| 
1 
| 
i 
\ 
| 
I 
| 
| 
\ 
\ 
| 
| 
| 
i 
| 
1 | 
bDBUO jLoad the 3540 parameters into i RO,R1 

jcegisters 0 and 1. t 

\ ! 

{Update the record pointer in register] 1 

jO. \ \ 

\ 

i 

i 

i 

| 

i 

1 

i 

\ 

i 

\ 

I 

I 

| 

1 

\ 

| 

! 

! 

i 

\ 

i 

\ 

| 

| 

i 

i 

| 
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' I 
}ilf the cecord belongs to the first or} 
jSingie data area, pranch toO.-..-...- >| DB 10 
yOthecwise, reload register V with tnej 
jaddress ot the first record in the " 
}second data area. } 
1 1 
DB10 {Update the CCW pointer in register 2.\| 
\ | 
{Gpdate the record counter in register} 
17 by one. i 
\ 1 
DB20 }Cneck it the last record has alceady } 
}been deplocked. It not, pranch to t 
jpass the record to the tLogicaL | 
PLCAGSL acc cece seacsccccecrccccesenncsccce >| DB40 
\ i 
jir L/oO ends with the normal pre-Sk&EK |} 
}CCW, branch to read a new DLOCK...- >| KDUU 
1 t 
{ff the string 1S not broken at the j 
janserted pre-SEEK CCW, branch to t 
Icheck for a Special record..-eeeeee >) VSB3U 
i i 
{Bcancn and link to reset the pre-SEEK} 
1CCW to a read CC Widere) 6 eee! acéie a. oe eee ee > |SR2U 
i | 
}Branch to read a new DLOCK..---ee2- >} RDOOD 
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j}Labels |Cnact ER: IPWSSER-—- 3540 Diskette Reader |modified Data }Reg. jCalls 
1 4 {Fireids {Usage | 
1 ewe Oe ee we Oe Oe CO Oe wee OO we OOO eS we OO OOO we Oe we OO www ewe owe ee we we ww re oe ee ww wm we ew ww 8 we we we eee we www ewe @ wee 
} DB30 j}Update the record counter (register } | {R7 j 
14) - 1 | ! i 
! i | j i 
}Bcancn and link to reset a possible } j t } 
jpre-SEEK CCW to a read CCW....ceee2- >|SRZO0 | t ‘i 
\ ; A | \ 1 
{Cnoeck if the last cylinder 1s being |} | i \ 
jcead trom. If not, branch to read i } j f 
| the next DLOC Ké.6:0' 66:06 eo aie e/a eo 0 eee *1ece >) RDOO | i ] 
1 i | ' \ 
{Check if the last record has been j i j i 
|ceacned;: } i ' j 
1 t \ 1 \ 
{Lf so, pranch to open the next | | j 
PSOXTENC cmc wea eeccccccnccccscccvcecos >| DBoU | t ‘ 
' ' } ! | 
jOthercwise, read the next plock..... >4;RvVO 1 i 1 
I I | 1 i 
DB4O0 jeneck for data file processing. if 4} | ‘| t 
}so, branch C066 d 6 6. 0.600.868 O56 Ge 6 6 wale os >) vB t j i 
I h \ | i 
{Check the record Length (cegister 1), i ' } 
jand 1f 1t iS not 81, branch to..... >4DB55 | i { 
I 4 i 1 1 
}Decrement the record length by one to} | $R1 i 
jmake it 380. j 1 t i 
! t i i 1 
jIncrement the record pointer ry | JR t 
i(cegiaster 0) by one. i } j i 
1 1 \ ! { 
|B8canch to process an SYSIN mode.... >jvBD5 " i | 
l ) | 1 1 
DB5VU jindicate data mode in tne TCB. j JECGCP(LPWSDEL) ) | 
\ ; ' | i \ 
D855 jB8canch and link to pass the record to} | $R5 | 
jthe Logical TeadeL enoceeeceeecescce AISKIU 1 \ 4 
! | | i i 
jif tne last record on the last j h t j 
|jcylinder nas not yet been passed to 4 1 ' i 
jthe logical reader, pranch to t j j ) 
CONTINUE PLOCESSSINGecccecacasccecee >|DSUO | j j 
1 1 1 ! \ 
}B8rcanch and link to reset a possiple } 1 {R5 | 
jinserted pre-SE&K CCW to a read CCW >45kz20 i i | 
b 4 | 1 1 
DB60 {Release the first or only pact ot h \ 1 )/LewsRiuw 
jphysical data buffer space. j 1 i j 
b ] | } | 
{4£ a second data area has not been j | } A 
jcreserved, branch to clear the t \ i \ 
IPhyYS1CaL WOLCK SPaCCccececccccceccee >$DEBIV | ' } 
1 1 1 1 1 
}Release the second physSicai data t i } jivewsRiLw 
jarea. 1 1 1 1 
t ' t \ \ 
DB70 j5set the puffer number to zero. \ JPENN(LewsDPw) j | 
| t t i 1 
Check 1f there 1s a continuation ] { t \ 
idiskette. If so, branch to open the } j i | 
pnext SXECT Cie. os 00.6.6 6006066 0656 2 6 eee 27yORVUU 1 | ) 
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|Lapels j4Chart ER: IPWSSER - 3540 Diskette Reader {Modified Data bReg. {Calis 
! \ jf1elds \Usage | 


1 j)Exit Routine i 
! } 

}fFDV0 )L£f the option FEED in the PWS is not | 
,On, pranch CO<6 6s a0: Seales 6a le.6 8-06 oe ae >} E00 
1 i 
js8ranchn and link to feed the next i 
PALSK SETS e cdisic Sooke cere ciclo w is oe eiee-6a- 0's >4,Sk50 
| \ 

ExU0 }Checkx for data file processing, and j 

12f so, pranch to handle end ot data >jEx40 

I 4 

Jeneck if the SYS{N file 1s Linked to | 

ja cacd reader (alternate diskette j 

|process) or 1f dynamic diskette i 

}process, and if so, branch to prepare} 

{ror resetting the linkage.szecw.eeee P| EAOU 

i ! 

jOtherwise it 1S primary diskette } 

}processing. In that case at first h 

jcheck for job boundary, and if so, do} 

{mot insert the EOF record ..-..2-22->} EX1U 

! 

{Load the address of the #OJ record j RO,R1 

jinto cegister 0 and the Length into | 

jcegister 1. . i 

1 i 

}8canch and link to pass the £0J ' 

jrecord to the logical reader....... >|SK10 

! j 

jset tne disposition indicator in the | 

jqueue record to C'H* to indicate jop | 

jin HOLD state. " 

\ i 

jissue message *1Q089I cuu EOJ ADDED j 

tjOobname jobnumber* | 

i \ 

iff hagh ievel 3540-pPpwS present......>4 EX0U 

1 I 

iBranch and link to send the unit i 

jexception signal to the iogical j 

PECADSE ioe 60.8 Mee ot 0.8 66060 oe ee 6 oe 6 6-60 6 74,SK 40 

| | 

{set the stop condition in the TCs. 

i 

jexit to the terminator routine 

) (LPw5$TR), which results in a detach 

jof tne current 354U diskette task. 

\ ; 

iIndicate last data record in the ICs. 

jLoad the address of a dummy end of 

jdata record into register 0, and the 

jiLength into register 1. 

\ 

jBranch and Link to pass the end of j 

jdata record to the logical readec.. >4{Sk1tU 

1 i 

{Reset the variable fields of the 3540} 

jpart of the physical wOrk space to ' 

jOlnary zeros. 

I 

{Branch and link to send the unit 

jexception Signal to the logical 1 

PLSAMSE wecacncose cesses tecnesveccens >| SR10 

1 1 

iThe Logical reader now resets the \ 

jtinxage to the card reader and \ 

jcesumes reading from the card readerc.| 
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jSubroutines 
| 
{Pass the record to the 1sogical 
}reader. 
i 
jReturcn to caller via link register 5. 
' 
}Load the address of the forced 
}pce-SEEK CCW into register 2. 
\ 
iif there 1s no forced pre-SEEK CCw, 
jorancna to TSCuLlLD esioscevecsecce es ce eee 2 
1 
{Make the address virtual and use it 
jaS a Dase register. 
| 
Move the read CCw saved in the 
jphysical work space pack into the Ccw| 
jstring. 
\ 
iClear the forced pre-SEBK CCW address| 
jin the physical work space. 
t 1 
jReturn to caller via iink register 4.| 
} 
{Subroutine to ansert a pre-SHsK CCw in 
jthe middle of the CCW String to read 
jpart Of a track 
\ 1 
pit a Short string has to be executed | 
IWhicn 1S not on the last track, t 
toranch EOlense ie iaieve: Sieieieie- 6's 6 acecacsleteieteeleve Pat 
1 1 
JOtherwise, change the pre-SEBK } 
jaddress to the current seek address, |} 
jand calculate the number of remaining} 
jcecords to be read in register 1, t 
}depending on the last record of the |} 
jextent. 1 
i ; ! 
}Calculate the address of the read CCw} 
{to be changed in registec 3, and Y 
jestaplish CCW addressabiiity. t 
\ ! 
fSave the read CCW image in the i] 
iphysical work space. j 
1 ] 
Point register 2 to the address ot \ 
jthe pre-SEEK CCW. i 
1 
) 
' 
\ 
t 
\ 
b 
| 
! 
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\ 
jMove the pre-SEEK CCW image ovec the 
icead CCW to be changed. 

I 
}Save the real address of the inserted 
|\pre-SEEK CCW in the physical work 
|space. 

b 
{Return to caller via link register 
$74. 
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j}CCW*S in register one. 

! 

tReserve work space address 
{space in PWS. 


jCalculate the displacement 
faddress and real adaress). 


eee the CCB. 

aaa the CCW FEED. 
eee the CCW SENSE. 
ieescave Channel progran. 
i 


from work 


(virtual 


}Wait for operation to complete. 


t 

{Release work Space. 
b 

}Retucn to caller. 


ySubroutine to Build a CCB witn CCW to SENSE 


1 

Reserve work space 

i 

Calculate the displacement 
jaddress and real adaress). 
\ 

}Build the CCB. 

{Set : SENSE INFO DESIRED. 
! 

{Build the CCW SENSE. 

1 

jExecute Channel progran. 
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(virtual 


jwait for operation to complete. 
iCopy the CCB status byte in PWS 


\ 
jRelease work space. 
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services Used 


} Function Entry 

} Examine Queue Record 
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} Function Exit 
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} Resource Management 


service 
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Module 
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| Description 
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Labels j;Chart FQ: IPWSSFQO - Free Queue Set jModaried vata jCalls j 
| pStorage jPielas sUsage 4 } 
Ee re a ee an ee ee ee ee ene ee eA ee ee ee ee ~| 
ifne first 16 byteS constitute the 
}Section descriptor: 


zs 
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1*fFOCS release 
1 
jFunction Entry 
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FYUO tSave calier registers 14 through Y 
fanclusive. 
1 
jIf tape spooling for this task, exit } 
| CO ere eis. Cie eee SSS ees OS Se ee ee be wie aie cies ee of EYOD 
| \ 
Fyv2 }S5et tcack action indicatoc F 
! 
jset addressability for: 
! 
jwueue record area (yVRA) 
}D1SK management piock (DMB) 
1 
jLock DMB. 
! 
{JExamine Queue Record 
4 
,)if the request is from CP or froma j 
jreadec TASK cece weer ncnccecccccenccecaed| FUUS 
' ) 
jif the disposition is "L* or "H®....>);FyoU 
‘ i 
FY03 }Put address of tirst~-1in-set in cB } 
1 1 
FYU4 tif dask addcess of first-in-sSet 1S i 
jeyuai to the previous Set pointer j 
jthen the set hasS never Deen added to j 
jany CRALN cee wcecccorecceccncecceccasceer|f FUDU 
1 ) 
FUO7 jKHead pack f1irst-1in-set queue record. | 
| 1 
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jUpdate Free Queue j 
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Fy50 pit yueue-record traps are active 


p(UPSL£ 1), Check that a delete gqueue- 1UCKF (TeWSDUC) 
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! 1 
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F571 {Copy forward pointer from mastec \ 
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}Copy track group pointer from YRA. 
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JUCDF (APWSDUL) 
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iSet seek address 1n disk request word} 
jin DmaB. t 
pWrite new first-in-set in free queue.} 
1 1 
jUpdate master record with first in t 
jqueue pointer. ! 
{increment number ot tree queue cecord| 
jand caT. j 


, if dast-in-set, SXlCeawcccces ecocevaer| FudZ 


{Read next-1in-set queue record, and j 


j branch DaCKk ec wccccccvcccacecs ececcce orf Fydl 
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j Function Exit | 
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}Fy52 }Post ECB in DMB. 


\ i ) I 

i i \ | 

j IVCEB(LEWSDYUL) | ) H 
1 1 1 ! i 1 ! 
}Fyod jset function track indicator to C*E® | jLcerT(LewsdDPre) i " 1 
1 } (processing complete). ' ! j 1 " 
! i i | i 1 i 
} Unlock OMB if not the CP tasSkK or the | | i pivw SRL} 
} }Save~account task. i ! i \ ! 
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Da ne ee ee ee ie we we a ee we we we we we ee a ee a a a ee we we ee re me te a ee i ee ee me ce oe oe we ee me, at 


Cnart ry 1385 


Licensed Material - Property of IBs 


186 VSE/POWER PLM Part 2 


Licensed Material - Property of IBM 


CHART GA: IPWSSGA 


-—-———eeee ee enh nc 
} IPWS$GA - VSE/POWER Get Account Record | 
-—_——— Tt OOOO nnn — — rel 
{ Label } Routine I 


+ HH 


| GACS } function Entry | 
| GaAOP } Open Account File in Get Mode j 
{| GAGT | Read Account Record | 
| GAER | Prepare for Erase Only Close of account File } 
} GAKP | Prepare for Keep Close of Account Fiie | 
} GACL 4 Close Account File Get Mode, Restore Put mode \ 
| GAEX | Function Exit j 
| GAWM { Restore Write Mode Channel Program Subroutine 1 
Se reer aOR, ESSE re RE ee ae Wane ee Sa ONC Si ON a eS ai Se ES ee Re ee EEO eS Oe NY ETT eT | 


SS ee 
|} Services Used \ 
SSS ee eS ee 
| Service } Macro | 
SS eS SSS SS eee 
| Task Mahagement } IPwsweec \ 


} Resource Management | IPWSRLR 


\ } IPWSRSR \ 
} Storage Management | IPWSRLW \ 
" ) IPWSRSW i 


OO nn ee asasxsxnKnxnXvwrr i nn tant em 


} Called by j 
a 

| Module } Description ) 
: : —_——_ HA 

{ IPWS$$15 } Initialize account File ' 
} IPWSSSA | Save Account A 
} IPWSSTR | Task Termination j 
a ccm ct etm ss cl ire Gu mp ns pss nie enicivemitisie smash 
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[Labels jChnart GA: IPWS$GA - Get Account Record {Modiried Data jReg. }Calls 
i |f2elds }Usage 4 

GASD {fhe first 16 bytes constitute the 
jSsection Descriptor: 


§*GACS release' 

! 

jOn exit, the foilowing register 
ycontents are relevant: 


QO: Account record length 
1: Virtual address account record 
area 


tm Dy 
= © 


\ 
\ 
\ 
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{The following registers will be used 
joy IPWSSGA: 

i 

4; Highest track address of 
cylinder 

ACB address 

UMB. address 

ERASE/KEEP s@#itch 

Address of permanent area 
Address of TCB 

Asynchronous address register 
Address of task Save area 
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Function base address 
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\ 
/] 
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| 


ULuUNew Caw YU 
eo 2¢ 09 ee oe es 80 #0 oe 


a ee = = = =» 


I 
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jdescriptor, a branch table entered py 

jthe calling routine through the 

imacros IPWSOAF, L[PWSGAR and IPwscCaF, 

jprovide the correct subroutine 

jaddcess: 

\ 1 

To open get mode routine......-.>|GAUP 

fo get mode routine... see eee >| GAGT 

fo close get mode routine..-..->|GACL 

To eraSe oniy routine..aceweeee>|{ GAER 

To Keep IJAFILE routine....22..>)GAKP 
i 

iThis routine is entered if IPwSsGa is} 

jinvoxed by an IPWSOAF macro. } 

\ 

{}Open functions are: 

| 

je Sagnal OPEN running to TCB. 

}!e Reserve ACB, 

}e© Reserve real I/O buffer space, 

te Set ACB from (normal) PUT mode to 

| Gut node. 
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iCaller*s registers are saved. 
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jaddress of ACB ais loaded in 
Jcregister 5. 
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jaddress of DMB as loaded in 
jregister 6. 
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}The aCB and the DMB are reserved. 
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jRegister 1is loaded with the maxinmun} 
|ctecord size. ' 
' \ 
}Work space is reserved using register| 
131 as parameter register. ' 
1 \ 
{if work space is available (register | 


10 = nmonZero), bDraNnChesccceccccccceee>{ GAN 


t 1 
{Otherwise, indicate immediate stop in| 
tf£CB tor save account function, and 1 
jceset caller into active status to t 


}service terminator routine, branch .>|Gac7 


| } 
{fhe (virctual) puffer space address 1s} 
tsaved in the ACB. " 
i 1 
{ff the account channel program is | 
faiready in read mode, a branch 15S 1 
jmade to bypass switching to read t 


PMOdES wa cece ecccaccccvecccccecceccccseer{GAVZ 


! 1 
jOtherwise, the channel program is { 
iswitched from write to read mode py | 
{swapping the contents of the ACRWw and} 
{aCPM channel programs. 

i 

{fhe real buffer address 1S stored in 
jthe read data CCW. 

! 

{Suppress incorrect length indication 
jobit is on by default. 

Maximum account record size is moved 
{to the read data CCW. 

jSeek address is set to zero. 

}Sector value 1S set to zero. 

iSeek address 1S initialized at the 
jextent lower limit. 

| 

{Record number of Search argument is 
janitialized at 1. 

}The account file is now ready to be 
jaccessed in GET mode. 

i 

jA branch 1s made to return to the i 


-~ oe oe we we ee ew ge cm ae ee we oe ee oe oe 


bCaLLer cccccccnccnccccccnescaccccccces | GAEK 


j|Moditied Data 
|Frelds 


|ICTT (LPWSDTC) 
[TCAT (LPWSDEC) 
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JACWA(LPWSDAC) 


ACRW(LPWSDAC) 
ACkw (LeWSDAC) 
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}ACPM (LPWSDAC) 
1 
| 
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1 
| ACRW(LPWSvAC) 
| 
JACSA(LPWSHDAC) 
JACSE(LPWS$DAC) 
| ACSA (LPWSDAC) 
\ 
1 
| ACSA (IPWSDAC) 
| 
jxCat (LPWSDTC) 
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| 
| 
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{Usage 4 
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jJLapels j4Chnart GA: IPWS3Ga - Get account kecord {Modified Data jReg. {Calis 
| ' |¥lelds jUsage | 
|\GAGT ifhis routine is entered 1f IPWSH$Ga is| 


jinvoked by an IPWSGAR macro. It j 
jreads an account record, and passes | 
Jats Length and (virtual) address to | 
tthe caller in register VU and register} 
11, cespectively. | 
i 
#Signal GET function running to CB. 
h 
{The cailer*s registers are saved. 
b 
+The address of the ACB is loaded in 
jregister 5. 

h 
fhe address of the vMB is loaded in 
jcegister 06. 


TCaT (LPWSDLC) 


TewWssaV 


mw 
con) 


ifhe address of the buffer space is 
jioadea in register 8. 


' 

jPhe callerts register 0 save area 1s 
janitialized to zero (OF). 

) 
jHead and cecord count in seek address} 
jare copied from the count field. 1 
\ | 1 
iff not yet end of extent or end ot | 
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| 
1 
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' SVRO(LewsDSV) 
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j jcylinder, DranCh ecececcrccccceacceee>|{ GAG 
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jit not end of cylinder, (so end ot j 
jextent), DlaN Che ececcccccccececsvccece?|GAG3 
I | 

}L£f upper limit reached, pranch......>j|GAGO6 
t 1 
jOtherwise, using register 1 as a work} 
jcegister, cylinder number in seek t 
jaddress is incremented by one, and 


ACSA (LEWSDAL) 


! 
jhead and record numper are set to | 
{zero. ! 
' ! 
jMultitrack bit in read count CCw 1s | 
jset on. | 
jsector value iS Set to Zero. | 
1 i) 
GAG1 jIf uppec Limit reacned, branch.....->|GAGZ 
1 b 
- Otherwise, using register 4 as a wOrk| 
jregister, the current head address 1s| 
j}compared with the upper nead address | 
jof a cylinder. | 
\ 
}Iir upper head not reached yet, 
jocanch to skip resetting the 
PBULTATC TACK Ditccccceccsccsscsecanceed| GAGS 


St Rare bhna cote a cna aaa Soon on Oa noe ee nea rae aon an waa aaa a ee ele ea Cae ee eee Sees) 


ACRw (LPwWHvacC) 


ACSE (LPWSDAC) 
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jLabeLs jChart GA: IPWS$GA ~- Get Account kecord {Modified Data jReg. {Cails 
\ }Fields \Usage j 
fhe multitrack bit 1S Set to zero. | {ACKW (LPwWS5DAC) 
h | \ 
GAG3 Sector value next cycle 1s set. j JACSE(LPWSDAC) 
1 1 
}EXCP parameter register 1 is toaded | 
jWath the account file CcB address. " 
1 i 1 
! 
' 
1 
t 
1 
\ 


@ 
a 
@ 
N 


Jan EXCP 1s issued to read the next 
jaccount record. 
1 i 
jan IPWSWFC is issued to wait for I[/0 
}completion. 

! 
{On completion, if an EOF record was | 
[Cead, DLANCH. aoeccccceccccrcvcceceace™| GAGO 
' 1 
tfhe account record block length bk 
} (Logical record iength + 8) is stored, 
jin tne caller*s register 0 save area.| 
1 1 
jfhe virtual address of the account 
jcecord is stored in the caller's 
{register 1 Save area. 


\ 
' 
\ 
i \ 
} 
i 
b 


EXCP 


' 
! 


TeWswre 


@Q 
> 
Gs 
163) 


SVRO(LPWSDSV) 


@ 
fo 
G: 
oa 


SVR1(IPWsD5V) 


}Reset caller to active status to 
{service terminator routine. 

} 
{4 branch is made to return to tne | 
PCALLEE 22 cnc mmc cc cceccccescenacccce>| GAEX 
t b 
fhis routine is entered if [Pw$H$Ga isj 
janvoked by a IPWSCAf ERASE macro. ({[t} 
jis assumed that the calier has made 
javailaple the ACB and will also 
jcelease it. 

i 

{Signal BRASE running to TCB. 

b 

{The caller's registers are saved. 

1 

}Register 7 1S set up to point to the 
JERASE function indicator. 

| 

{A branch is made to continue....2..->|GACU 
| \ 
jfhis coutine is entered if I[PwWS$5Ga 1s} 
janvoked py a IPWSCAP KEEP macro, 
jandicating that, on an unrecoveraple 
\£/0 error, the caller has decided to 
ikeep the account file. 

\ 

{Sagnal KELP running to TCB. 

\ 

jfne caller*s registers are saved. 

i 

tRegister 7 1S set up to point to the 
}KEEP function indicator. 

) 

JA branch 1S made to continue....-..->|GACU 


CAT (LEWSDEC) 


@ 
re 
t& 
to 


£CaT (IPWSDIC) 


LewdsSaVv 


we ww we ee ee 
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£CaT(LEWSDTC) 


LPwhSaVv 


= of Se oo ww ww ow ew © Cw Sw ew a Sw ow Sw 8 oe we @ Ow we we we ee we ee ae we iw ew ew ee we 8 ee ee ee © 2 we ew ee ww ee ae oe oe 
—_— oe oe ow ow or Ow ew ew oe 


_— 
or oe OO gee ee ee gg ee ae we OO oe oe owe ee we ee ee Se ee Oe ee ee ew ae oe wee oe ee SE ee Sm OS we wm ee ee ie ea 


Chart GA 191 


Licensed Material - Property ot IBM 


on an ee ee ee Dee OO ee ee ee a om Oe ews OP we oe we Ow Ow OOS © we Ow BO OS Oe BO! SC OSO@ © GO & BO © @ Bee & ww @ wesw ow on ww he 08 Oe 


coro (Cate van ch ae Oe oe 
jLapels |Chart GA: IPWS$$GA - Get Account Record jModitied bata }Reg. jCalis 
j } jfleids jGsage | 


JGACL {This routine is entered 1f L£PWS$S5GA 1s| 

jinvoked py a IPWSCAF macro. 

b 

}Close functions are: 

! 

$1. Switch account channel progcan 

pack to PUT mode. 

}2. Erase account file and write EOF 

t record on each track. 

}3. Reinitialize several aCB tields. 

14. Release buffer space, ACB, and 

i DMB. 

| 

{&xceptions: 

] 

fe ERASE will skip function 4, 

j assu@Ming that the caller will 
release the ACB and the DMB. 

e KEEP wili skip function 2. 


Signal CLOSE running to ICB. 


i 
! 
b 
i fCaT (LPWSDTC) 
! 


}fne caller*s registers are saved. Tewssav 
1 
}4ero function indicator register 7. 
|Register 5 1S loaded with the addressj 
fof tne ACB. \ 
i) i} 
}Register 6 1S loaded with the address] 
jot tne DMB. i 
i 
jif no error have occurred, and 
JIPWSCAP KEEP has therefore not 
}been issued, a branch is made to j 
{continue 66 Sine Sere eieisla ease ee -eieieeieree ewe 2 EGACS 
1 | 
jOthecwise, a link is made to reset j 
jthe ACB to PUT MOGCeccccecccccccce ser} GAWM 
! ] 
On return, a branch is made to ] 
POX LU 6s cS eisiee csik wee deesc 8 66s €e0ee oe > | GACH 
| 1 
jfne address of the count field is j 
jloaded in register 8. } 
\ i} 
}Tne count field is set to zero. i 
| | 
ifne extent lower iLimit cyiinder and | 
}trcack is moved into the count fieid. 4 
| } 
i\Gsing register 1 aS a work register, | 
j 
) 
i 
] 
1 
! 
1 
i 
I 


_— = oa eo ee or a @ we w= Se we oO a Swe ww ew es Ee OE oe 
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CNLFE 


CCaH 
jthe initial record number 1s set to 
\1i. 

1 
{A lank 1s made to reset the ACB to 

PPUT MOdeew cana ccccccaceccccsecececces>| GAN 
i 
On return, command and data chain 
ifiags in the write count CCw are 
jreset. . 


ACWC(LPWSDAC) 
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| nee a IEE RT a a Rat a a al + 
jLapels j|jCnart GA: IPWS$GA - Get account Record jModified bata jReg. {Calis t 


|fieldas {Usage | 
|The track numper of the highest track} 
fof a cylinder is loaded in register | 
14. 1 
| 1 
{Record number (search argument) 1s | 
jset to zero. } 
I ) 
GAC2 Update track and cylinder address ) 
} (SeeK argument) uSing contents of | 
count field, which was Set in j 
{preceding cycle or initialized. } 
t 
h 
\ 
1 
t 
| 
1 
| 
i 
i 


Ee ee ee ee 


ACSA (LPWSDAC) 


ACSA (APWSDAC) 


! 
|}sector value 1S Set to zero. 
i 
jkegister 11S loaded with the address 
}of tne account CCB. 
! 
{An ExCP 1s 1ssued to write an £0F 
jrecord. 
b 
{|The taSkK 1S put 1n a wait state until 
11/0 completion. 
1 | 
{it tne account fiie extent upper i 
limit has been reacned, a peanch is | 
pMade CO CX1teaccnccccencecesccaccaaert 
] 1 
}if tne highest track of the curcent | 
icylinder has been reached, a pranch | 
11S made to increment the cyiinder | 
PADALESS ec ece cc cc cere eerncenccenccceer| 
1 i 
jOtherwise, the track address is h 
Jincremented by one, using register 3 |} 
$aS a work register. | 
1 i 
}A branch is made to write tne EOr j 
1 
| 
} 
t 
\ 
) 
] 
} 
1 
1 
] 
| 
t 
1 
1 


ACSE(IPWSDAC) 


EBACP 


Lewswerc 


GACS 


GALS 


CTH 


jeecord on the next track... c2ee2e2027)Gac2 


' 
GACY } The track address is set to zero. 

1 

{;Gsing register 3 aS a work register, 

jthe cylinder address is incremented 

|by one. 

h 

{A branch is made to write the KOF 

jrecord on the next tracK..cececsecec? 

| 
Gacs5 }Seek argument in the ACB is set to 

|zero. 

i . 

tSectoc value is Set to zero. ACSE(LPWS$DaAL) 
Wn are me te a ae re me ee ee ee oe we ee ee ee a a a ae we we wr ew ee eee ee ee ee ae ee te te mY ie ae me ee OS ct oe me ee em mY] 


Clo 


GAC2 


ACSA (LPWSDAL) 
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icCapacity 1s made positive. 
\ 
\sOF record writing is finished, so 
icommand and data chain flags are set | 
fon to chain the write data CCW to the| 
|wroite count CCW. 1 
i | 
{ACB update is now complete, tnerefore} 
tthe account ECB is posted. | 
! \ 
GAC6 jNeutralize account trace indicator l1nj 
iTCB (signal GET function ended). | 
1 I 
jif ERASE has been requested, a pranch} 
jis made to CX1Ce cc ccccnccecccnacecs oarA|{GAEX 
I | 
JOtherwise, register 11s loaded with | 
jtne address of the puffer space. j 
i | 
}if no buffer space was reserved + 
i (regaster 1 = zero), branch to......>} 
i ! 
\ 
i 
' 


Eee ae ee a RO OS ee ee eA eng BE Sen Re oe OT AE Tee ae ee ee eae IEE Sea ae mT a a Py Ry ee 7 
[Labels j|Chart GA: IPWSS5GA - Get account Record jModitied Data Reg. }Calis 
" } jFleids {Usage ] 
a aaa a ach ae a al Pe eg ee ee en Ng ee a ae eT ee 
{Current seek addresses in ACB are | IACSA( LPWSDAC) 
janitialized at the extent lower | 
jlimit. | 
1 | 
{Cylinder and track address in the \ CCHH 
jaccount record count field is reset | 
jto the extent lower limit. i 
i 1 
jCurrcent account file capacity is ] ACAC (1s PWS$DAC) 
jceset to maximun. j 
\ ) 
Current track capacity 1S set to j ACLC(LPWSDALC) 
jMaximunm. 1 
1 1 
{The 20 peccent residual account file | ACEC (LIPWSDAL) 
| 
b 
1 


ACKW(iPWSDAC) 


ACB (LPWSDAC) 


TCaT (LLWSDLC) 


}Otherwise, release puffer space. LPWSRLW 
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JLabels jChart GA: IPWSS$GA - Get Account Record {Modified Data jReg. {Calls 
] ) | Fields 1Usage j 
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GACT ifnhne ACB and DMB are released. jiewsRLR 

! i 
GAEX {fhis routine is the common I[PwWSSHGA i 


jexit routine to the calier. 

1 

{fhe caller's registers are restored, 
jand control is returned to the 
jcaller. 

| 

jfhis subroutine resets ACB and 
jaccount Channel progcam to PUT mode. 
\ 

{if tne ACB is found to pe in PUT 
jmode, a branch is made to bypass ACB | 
PL@SSC. cccaccaccnasccssasccaccscccccacr?{ GAN? 
\ 1 
jOtnerwise, the multitrack indicator, | 
twhich may have been switched off py 4 
jthe L[PWSGAR function, iS set ON. i 

1 i 
jfhe account channel program 1s set to} JACRW (LP WSVAC) 
_|Jwrite by swapping read and write | jACPM(LPWSDAL) 
jchannel programs. 
1 
yfne sector value is set to zero. 


) 
\ 
\ 
\ i 
\ 
I 
\ 
' 


. 
jiewsSRET 


Q 
[ind 
=. 
= 


ACKW (APWSHDAC) 


ACSE(LPWSDAL) 


}A possiple unit exception indication 
fin the account CCB is reset. 
\ 


GAWw1 Control is passed back to the cailer. 
Te Torkuatientonciantnateantenatoas ee a ee we = ww we wn we ww nm a wm ww ew a rr nmr we ew wm ew ww ee 4 
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\ 
| 
\ 
JaCST (IPwWsDAC) 
I 
\ 
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—_———— 
{| LPWS$GD - VSE/POWER Get Data Record 
=}. Ht 


} Label } 


Routine 


CHART GD; 


LPw$$GD 


|} 





} GDOO } function Entry j 
} GDO2 } Get Next Tape Block } 
} GD10 | Get Next Disk Block, Single Buffering | 
| GD10 | Get Wext Disk Block, Double Buffering } 
1 GD43 } Increment Disk Address i 
| Gx00 | &xtended Record Processing | 
} GDRT } Function Exit j 
} GDOU } Get Next Track Group Subroutine | 
| Gpd70 | Check Next Data Block Address Suproutine | 
| GD8O } Increment Disk Address Subroutine } 
[a career ever We ne anacsiatiintiaininansiall 
io ee ee ee ee ee ge gy a pe eee ee ee ee ee a Tw 
| Services Used 1 
| Service { Macro 4 
a a SS a ee 
| Storage Mahagement } [TPWSRLV i 
| | LewsRSV | 
} | IPWSRSW i 
t+ Se 
| vaisk / Tape Service } LPWSROD i 
| } LPwSRDQ i 
' | LRWSRDT \ 
a -taamineininaetipeyeimaenciinell 
WN me ae ee ae eee ee eee Set ee ae 
} Called py IPWSGDR 1 
sme aR aa Ram cance | 
} Module | Description j 
} IPWSSLw } Logical Writer ] 
} LPWSSNT t Network Transmitter hi 
| LPWSSOF } Offload yueues | 
| IPWS$XT | Execution JECL Scanner h 
| LPWSSXR } Execution Reader 1 
ear eli it ps op a gn nia ee | 
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[i 
{Labels jChart GD: IPWS5GD - Get Data Record jModitied wata jReg. jCalis 
' [fields iGsage 4} 


GDSD }The first 16 bytes constitute the 

jsection descriptor: 

}*GOCS release* 

1 

i function Entry 

! 

}Save caller registers 14 through 9 

janclusive (IPWSSA¥). 

! 

| , 

Jif a data buffer 1S present, pranch 

[TO ec cnccncvecusevevcescesecccesacsccceD 

i 

{Reserve a new data buffer. 

i 

{Stoce puffer pointers. 

\ 

I 

y#orce end of buffer. 

i 

}Check tne buffer address. If the j 

}buffer 1S not empty, branch to.....-.>|Gv4uU 

| t 

jif the data file is located on disk, | 

pocanch CO wcc emer cccervccccceccccccc cer GVW 

| 

jfape Spooling: 

) Get First (Next) Data slock Record 

1 

}Set the function track byte to C*G*. 

i 

jRead tape data block. | 

{Since the tape might have been 

jwoitten with a different data block 

jsize, the first data block is read 

}with max. data block size. The 

jcreSidual count is then used to 

calculate the actual data block size.| 

I 1 

}If wrong-length record, inSert stop } 

jcode in ICB and return to caller....>jGDRT 

| ] 

Branch tO CONTINUC.. cece wcacceccsccere{GVHV 

1 1 

{Single Disk I/O BUfter: j 

) Get First (Next) Data BLock Record 4} 

' 

{it double buffer processing, pranch | 

[TO ce eccecccncccscsccnvecccacesecccscecser {GDL 

I | 

{Check if the current data block still} 

jpbelongs to the track group or biock 4} 

igroup; dink TOec sec 08 cece ccveceene (GDIV 

| ] 

JIL yeS, DLANCH COcceccccccecccvecacerIGDID 

1 ' 

{Otherwise, get next gueue record and | 

jfarst data block; tink COceeccceee>f{GDOVU 

‘ b 

} Branch to CONTINUC coc aac cvcceccceocaer> {GUUD 

1 b 

GD15 jGet next data DLOCK, prancCh tO...-.-.>}GD05D 
\ 1 
{Continues DraNnch TO. cc ccaceccececcce> {GD40 
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Oo 
oc 


LPWSDSV 


GDUZ 


LPWSRSW 


jacDa (LeWSDTC) 
prCuv(LPwSuTC) 
| 

JICLR(LPWSDIEC) 


ee es 
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ht 


ECFT (42 n$D2LC) 
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}Labels |Chart GD: IPWSS8GD - Get Data kKecord. jmodified Data }Reg. jcCalils 
| i : |Flelds jUsage | 
}Get First (Next) Data BLock Record - | 
1 \ 
Double Disk I/0 BUftering: - \ 
i Get First(Next) Data BLock Record } 
\ 1 
GD20 jLoad register 14 with return address.| 
| | 
{If the second data pilock iS avaliable; 
fiink to GD60 and branch to....-->}GD24 
i 1 
{If tnis is the first time through, i 
flank to GD60 and branch tO..........>)GD24 
1 ' 
}Swap the puffer pointers. 
! 


cad 


— ow we ew a = 


} 1TCDaA (LewsDTC) 
4 1fLC2Dw (LPWSvoTC) 
1 i ! 
{indicate that the buffer 1S empty. \ ITCPR(LePwsDTC) 
I t | 
Go24 jAddress the disk request word by t 
fusing Register 3. | 
‘ ' 
fincrement disk address (update tne ' 
jcrecord address to the next record on | 
jtae track), pranch TCOcceccecccanccecer| GDSU 
t i 
|Check 1f the next data DLOCK belongs | 
}to the Same track group, branch to..>|GviuU 
t i 
Plt yes, Branch: £06 s<siccawes ceeeces cD | ODSU 
1 i 
fs5et runction track pyte to cG*, 
Update disk request word with oid 
jseex address. 
i 
}issue a read bpLoOcK to make Sure that| 
Iprevious I/O is completed. j 
| \ 
jindicate next block is not read in, 4 
POLCANCH caw cacccccvcccccvccccccccace cer{ GUN 
| 1 
GO30 fSet function track pyte to C®G*. j 
Read 1n next data plock in the second} 
jdata puffer. j 
1 
| Get extended Length vata Record 
\ 
GD40 }i£f cecord is extended (>DLBL-3 pytes)}{ 
{then pranch Me cheese SO eee e Wule wee mer | GUO 
\ \ 
jif the previous record was not t 
jextended, then pranch eoececceccscaee?| Guess 
I \ 
}Free tne last extended cecord buffer.} 
! ! 
} Branch to wer cccccccccocccsacncccence?| GD43 
' \ 
Gx00 jit it not the first extension, then jf 
joranch emcee esc cceccecccccccce cose ce {GXU8 


ECuow (LPWSHDTC) R3,R14 


£CerT (Lew SUC) 
£CZDw (LPWSDTC) 


LewskuD 


£C2ZDw (LPwSDTL) 


ECEL (LPWSDLC) 
LewsRvD 


DRG P (LPWSDDK) 


ECG P (LEWS DEC) 


LPWSRLV 


DRG3(LPWHSDDR) 


CQ Sw we SSS eS ee ee ee ee ee 


oo ee a ee eee ie oe eee ee eee ee ee ee oe ee oe 
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A 4 
jLabels j|Chart GD: IPWS$$GD - Get Data Record {Modified vata pReg. {Calis j 
} 4 | fields {Usage | i 
j Oe ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee <_< ae ae ae ww we ae a ee oe ae oe oe oe om OP oe we ee oe we 0 ea ee wae owe oe we on ae oe ee oe om ow ew eee oe we ee ee oe ee oe aetna | 
| jkReServe a buffer for the present L JOR EL(LEWSDUR) i JILwSRSV | 
] extended record space. If tne | j Y j } 
i jobuffer request was not successful, \ i jR1 | t 
| jthen return to tne caller .....24--->j)GDRT \ 1 \ I, 
| t ! \ ' i | 
) {Store buffer pointer and the extended] ILCRV(LIPwsurc) } | t 
} jrecord length the TCB. H iTCRL(LewWSsDIC) t i j 
i 1 ! 1 1R2 1 ! 
1Gx08 jMove the record extension to the t | {R6,R87 | b 
1 yextended record puffer. | i jR8,R9 | | 
| i | | ! 1 ' 
) jit this is the Last extension of the | IDRG3(IrwsDuvR) ' i hi 
] extended record, DLAaANCh wececeeeee ee Pf GAUY | } ! ] 
1 I \ | i \ i 
} }indicate the data block 1S empty. j IPCPER(LPWSDTC) j i j 
! \ 1 i 1 1 i 
| }L£ tape spooling or double puffering } pLCSI(LPwsulc) 1 | i 
i {then pranch to read the next data j |TCDB(LewSDLC) 1 i j 
] | block wewceseccecccccancccoceccccace er {GDUZL | t | i 
1 i | 1 t 1 A 
i {Link to increment the disk request i | ) i i 
| word raed wicca Sareea te de a onea ene car GbaU 1 } | 4 
l \ 1 \ i 1 | 
} jBrancn to read the next data block .>|GD02 i i | | 
i ' i i ! \ i 
{Gx09 jkReload register 8 pointer to plock. | } {R38,R2 | j 
i 1 1 | ! i] i] 
! ) Update Caller'’*s TCB t i i | 4 
\ I 1 1 i i | 
}GbD4a3 jnocate the. next record within the j i j j ] 
) }block and set the appropriate values } i i j } 
! fan the record control word: j | i | 1 
| 1 i i j i 1 
| be Command code. i jfCCC(LPwSprc) } | i 
j }e General purpose byte (1). j 1TCGP(LPw$voTC) j j yi 
j te General purpose pyte (2) if inter-} |TCG2(LPWSDTC) ij j j 
} ) nal control record (fCCC=x "ff *) j | } ) ) 
1 je bata Record pointer in Data BLlock.| ITCPR(LPwSOIC) i 1 4 
i ' \ i ' i i 
|Gpd46 pif not an extended record, then: j { i | t 
} te Data Record address. | {TCRV (LPewWSorC) ' j rT 
j te Data Record length. } {TCRL(IPWSDTC) i 4 j 
| 1 1 i 1 j 1 
|GD4B sCheck for a break condition or end of}. | j j j 
1 jolock. If not, branch to.......-+-->jfGURT | ) | i 
Dame ne eae a ee cre ee ae es ee te ee ee ee ee ee ee ee Oe er oe ee ee we ee ee we we ee ewww om we 2 ee oe — ee oe we oe ee ae oe eh 
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}Lapels |Chart GD: IPWS$$GD - Get Data Record jModified Data }Reg. pCalis 

' 1 {fields Usage | 
jincrement Disk Address: j | 
' t 
|Reset record pointer to start ot 1 
jplock. ! 
jin case of tape spooling, exit...-..->|GDRI 
i } 
jin case of double buffer processing, | 
jbranch TO ner ceencecreevsecccunsecccece>fGDRT 
1. 1 
{Update the record address to the next} 
record on the track; pranch to......>4;GD8U 
\ | 

GDRT j¥unction Exit 

1 

}Reset function track indicator to I. 


\ 
' 
' 
' \ 
t 
' 
1 


—-_ = a 


IYCPR(LPWSVTC) 


jR1,R3 
TCOW (LPWSDLEC) yR>4G 


[CFT (IP wSvLC) 


{Restore registers and return to 
jcalier. 
1 
}Get Next Track Group or Block Group: 
| 1 
\This subroutine reads the next queue |} 
jcecord in set and/or reads in the 1 
jnext data block respectively. 4 
! ' 
GbDo0 Set function track byte to C®S*. ) 
i ! 
{Save the job suffix number. ) 
' ' 
}Read in next queue record. ' 
iRestore the job suffix humber. j IQRSN(LPWSDUR) 
1 
) 
b 
4 
1 
h 
t 
b 


(R14) R14-Ry 


TCR (LPwSyvTC) 


= 
& 


LrRwWsRDQ 


bo 
= 


! | 

Update the disk address to the first | LC2Dw (LPwsyoTrL) 

jdata plock of the new track group. i 

\ ! 

yIf double buffering, set disk addcess p2C2ZOW (LPwWSvOTL) 

jan 2nd L/O request word. 

) | 

GDo5 {set the function track byte to U*G*. | 
}Read in the data block. ' i 

pRetucn tO CalLlerenccccecccwcecceccce>| (K 4) | 

oe am eee ee eee ee em ee a ee ae ee ee ee ee me ee eee we ee we we oe eee oe ee ee ee we en ee we we we on we ee we a we ew we we we a ee ee we oe we we we re ee we we ee we ee oe ee ee oe www wh 


LCT (LE WSDIC) 
KPWSRDD 


ee ee ee ee ee es ee ee ee es ee ee DD ee ee 


_—_ eS ee ee we ew ee i ei ie ee 
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cr ; 

jLabels |Chart GD: IPWS$Gv - Get Data Record |IModified vata iReg. {Calls 

\ jfieids jUsage 4 

jSubroutine to Check Requirement for a new Track/Biock Group: j 

! i 
\ 


4 


| 1 

Gb70 1Get address of first MCB. j 
i 

}if data file not on FBM device....-..>{GD74 
i 1 
{f£& this block wili fit into the block} 
Ngcoup, return to caller... eee eee >| (R14) 
] ] 
{Lf not, return to Callerewsececeecaarf 4 (R14) 
! 1 
jit the new data plock belongs to the } 
{Same track, return to cailer.....--.->j (R134) 
\ ! 
{it the next plock is on the next 
}track, update the disk address 
{ (track number). 
1 
pif the next track belongs to the same| 
jtrack group, return to caller.....-.>| (R14) 
! } 
jOthecwise, return to caller via j 
jcegister 14 with a displacement of 4.144(R174) 
\ \ 
Subroutine to Increment Disk Request word: 
' 1 
iGet address of first MCB. 1 
! | 
jaf data file not on FBM device......>|Gus2 
\ 1 
jIncrease the plock numbec by unit or } 
}transfer and store it. | 
i 1 
}Retucn to Callers 6.6 6 cod wise ecco siee ae? | (K 174) 
1 


G 
c 
~~! 
£ 


\ 

\ 

' 

i 

' 

i 

i 

! 

) 

i 

! 

b LORG i 
| ' 
! ! 
1 I 
\ 

\ 

\ 

' 

\ 

\ 

i 

i 

h 


@ 
oS 
x 
o 


| oad 
Cc 
a 
oy 


1 

{Update the seek address of the data | 
oLock: The record number 1S } 
jancremented by one. } 
\ i 


be ae we ee ee ee we we we mr we a we ww mw wr nw we wr renee ee a rr rm err errr = 


Ba a aa a I A ae ee ae eet aps nl ae gs cae vg Va as ee 
Q > 
o 
a 
N 


mere ee ee ee eee ee ee oe 
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CHART G&s LPwS SCF 


[mainline I 


isigse accouat| Close Account 
Pile or Close and 

and &rase K 

GF-2.0 GF-3.0 
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IPWSS$GF - Mainline 








IwporT PROCESS OUTPUT 
| a 
eee >From Calling Task 
R15 | / 
| | } ae ee kee —> fol Branch to selected function according to 
4 | i— + tne displacement set 1n the macro 
expansion. 
A. If displacement °16* or *20*, force 
program check. 
B. If displacerent e24e or *28°: 
/-—-——— . 
< pba IPWSCAF, IPWSCAFER 
GF-2.0 
C. If displacement *32°: 
f-——- 
< pice LPWSCAPKE 
| GF-3.0j 


To Calling Taskeee 
* 
=| 


eS he SER I ETE a ES 
OR SE Ee I te I AEST BO AM SM FI I A DRE 
ee EO Ce A OT RR EN TS NIT 


| 
Return 
: 





NOTES MODULE { LABEL | REP NOTES {| SODULE {| LABEL 


peso er® | 








C. The routine is entered at one 
eatry point by macro IPWSCAP KEEP. 


The mainline consists of a branch 
table tu two different routines. 


The macro expansions of the macros 
IPWSOAF,IPWSGAR, IPWSCAP, LIPWSCAF 
ERASE, and LPWSCAP KEEP load the 
address of the proper branch 
instruction in the branch table, 
and pass control to it. 


| 1 A- The aacros IPWSOAP and IPWS$GAR 
are no longer reguared for 
VSE/POWER account files that 

eer ide on FBA devices and are aot 
used. 

it the above-noted ene points 

| are chosen, a program check is 
forced. 

! 


B- The routine is entered at two 
enter posite by macros LPW$CAP and 
IPRSCAP ERASE, which set the 
proper account trace indicator 
into the TCB and saves the ; 
calier®s Fog asters in the reg aster 
save area that is addressed by 
register 13 before joining a 
common routine. 


Canon analentnapmsheadheamamen antheatenenteet ape smnedeungeasee ena 
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IPWSSGP ~ Close account File, Or Civse Account Pale And Erase 
INPUT PROCESS 


ve 
c~ 










































































ee GPF-1.0 
Set account trace indicator to state | | 
-function; save caller®*s registers. 
| | | | | 
| | Clear control interval work area. | —* APWASA j | 
{ ACs | | { | [x70 Area 1“ | 
t faPapc | are —> [03] Inatialaze LOCATE control word. Pee ee 
—— ee! PL — | | ACés 
APRDF | | | | H | $ farosr 1 
AFWASA | a fv] taatialize weirs cw. ' ont tl For 
foe ee AFtsP 
| | AFCIP ey eae, =I | | f 4 arabe | 
ee 
| { i AFRwPO [ | 
| | fos} Issue DOS/VSE EXCP and VSE/POWER IPW$WPC (——————} al | 
| H to write a SEOF to the account file. t 4 {APRWPL 
! I { { ae _? lAPRWEF \ { 
| acs | | | eo 
| fAPLOF 1 | H | | Ace \ 
a 5 ere farsare J ! 
—— bas ee Se 106) Initialaze account control block to APSAFN 
| AFMCP | aaa | reflect the "account fale empty® state. H | [ | 
i : 1 ! AFACF 1 
i | | | APRDP ‘ 
aca | | | |RPSTATUS I | 
| { |pseicenicermes —=>f07] uniock account control block and dask EO \ 
a __|*—~ management block, reset account trace fca \ 
ae t | es __? andicator; restore caller*s registers. 1 | (cata) =] \ 
. ese a i 
_- p 
| | | ez 7 | 
EE | ees 





























= 
NOTES { SODULE {| LABEL {| REF NOTES {| SAODULE | LABEL | REF { 
Tnese functions initialize the put : 3 The LOCATE control word and CCws, j 
account work area to panary zeros, tocated in the account control t 
| and write it to the account file | | I | block, are initialized to point to | 1 i | 
to_form a StOF-CI (Software End of the very first control interval on } t 
File Control interval) on the | the pee | account file, and to | 
first Ci of the account fale. | write the SEOP. | 
Then the account control biock is : ; | t 
Evraatecd te allow put Scccant to 5 write to disk. EXCP penne | 
start a e peginning o e 
| account File (cold start core eet | | 6 ue acemut coperok oecet as meee ] | 
e@ routine has two entr vabts o an initial vaiue to represen 
i Eo acrossodets SEMSCET aha PeWSCAP 1 | | ed en tY chedigsh File state. “ { | 
:. ; Macro reguests. nis allows put accoun o star 
4 | at the lower’ Limat of the file | | 
GFSCAP | Wath the next wrate request and to | | 
1 Two entry points are established GPSCAPER continue if a *wait on full fale® if 
| EOL RaCEOs SEASCRE and pete ene ‘ | state was encountered. | | 
2 » to setu e@ proper accoun 
{ trace cad 1catDok « oe | ? Thais is done to allow next put ' peek 
The calier*s registers are saved account and/or save account to 
adarescel by cegiseer tae salisrta rogictors are coutoced | 
Tnen they join a Common routine. roa the St pared a eave ares that { 
is address y regaster ° 
SSAV 
2 <A OIMary zero control interval is GPSCAFS SRET { 
| built to write a Software End of ' 
Pile rcecord (SEOP) to the 
VSE/POWER account file. \ | 


Chart oF 205 


IPWS$GP - Close Account File And Keep 
INPUT 
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ACB 
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PROCESS OUTPUT 


[03] 


GF-1.0 


3 
©) 
a 


peer oe meee Vyfem marie war certo Vy Gar air tie we 


Set account trace andicator to state 





function; save the caller*s registers. TCAT="K®* 
UnLock the account control block and the 
disk manayerent block. 

TCh 





Reset account trace indicator restore 
the caller's registers. 





TCaT=* & 


| 
= 
| 


To ie ar 
“eo 
te 





from the save area that 1s 
addressed by register 13. 


——— 
a 


- 7 
| FY 
(ewer 
NOTES | MODOLE | LABEL | REF NOTES {| SUDULE | LABEL Jj HEP i 
1 1 Tne caiter*s registers are saved | eet <2 The account control block and dask GFSCAPKE | SRLE 
in Sue ove ares that is addressed wanagerment block are unlocked. { | 
py register . : 
| 4 | 3 Restore the caller’®s registers | [seer 
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IPWSS$IC - INVOKE COMMAND PROCESSOR 


INPUT 


a 


a re ye a a ce He EE eS Re I oA SS A ES SS NY eee 


Register 1 
f Ba 
' 
OONAK 


NS PLAG 





NA#ROUT : 


NSARFM I 
‘——_—_________} 


ee ee re ae re wD 


Network 
Definitaon 


table (NvT} rctocn 


eee meee ee me nd 


header 
entry 
hich 


ae Soe eae pee oe ee 


S 
| 





entry 


kegister 13 


Pisco 
L 
a Se area H 


1B 14-K9 | 
ee J 


ee) 


[ NOTES | MODULE | LABEL | REP If. worgs ~~~ § WODULE | LAsEL | REF | 


| 
| 
| 


cin et sais ta ono tut pam mei 





1 


2 


The calier*s registers are saved 
in the save area addressed by 
register 13. 


Storage is reserved for the new 
conmand processor task control 
block. The comaan@ control block 
which is part of the TCB is 
formatted. 

Por 4 CTLSPOOL request the 
password is taken from the SPL 
parameter list. 


The network definition table (NDT) 
is scanned to locate the 
origanator®s node entry. fne 
asSiqned authority level is then 
moved to the coma#and control 
block. If the command was assued 
from a remote or interactive user, 
the authorization level is 
degraded up to a maximua of "JOB 
authority. 


If howevec if the node is unknowa, 
the just acguired TCB storage is 
released and tne comsmand is 
discarded. 


PROCESS 


sO 











Ae RS SP Oe me eR en eR A 


caller 


Initial House-keeping 


A. Save caller's registers 


Acquire storage foc temporary command 
processor TCB and initialize command 
processor control bl 


n 


If comaand is issued by remote operator, 
skip RJE Command prefix and set up 
Co@mand sequence huaper. 


Set up Command and operands 


ock = 


storage descriptor 


RJE identifier 
Calier*s ECB address (if any 
frog node ae user 
if ap 


te £ app 


If command was received froa another 
obtain authority level. 


A. If node is not defaned in NDT, 


flag 
pasevord 
caller's 


ade ,' 


byte 


discard Command 


Attach new task 


Exit processing: 


A. Restore caller's reyisters 


Ticaple) 
icable) 
ress 





if ae iicabie 





[a 0? 
“| 


\->fa} 


—_ 


— 
| 
| 


To calleree 








a ge a Glen ONSEN tas SE AUD vane” PSU cir cme 





i en ee re a re Oe Ee | 


1¢00 





aa 


SRSW 











4 


NOTES 


The comaand peers a the caller 

4S examined for the RJE prefix (* 

--}. If this is found, t 

sequence number is saved in the 
mand control block. 


The comaand is scanned to locate 
the operation code Commend me 
If the first character of 

command is *P*, the eharacter 1s 
stripped o ff, unless the comrand 
1s specified is its short fora. 
Next the Command is scanned to 
locate the start of the operands. 
The operands are then moved to the 
corgmand control block. 


fhe address of the spool 
managesent pararmeter list 
anitialized, if present. 


The caller*s registers are 

restored froa the save area 
addressed by register 13 and 
return is made to the caller 


(SPL) is 


CHART IC: IPw$$iIc 





4 


: 
| 
| 














OuTPUT 


Register 143 


ee re ee 


a er re cn en ne a SN gE tem Sone memes eens Nyame Yemen Vee Vere \/enee Vem Vee \emennaeenenemmenneee (sme emma aera ce meee em meee 
re i en ee rr eer cere ae OE ee a Re Oe EN OO Se ORE OT et ee a ce a a SE 





eS Se AAS ES SE A ET 


/ 


HODULE | LASEL 


pele 


oe 
| 
| 
| 
| 
era ae es ee 


Chart IC 


! 


REF 





& 
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IPWSSIN -PNET FEATURE INITIALIZATION 
INPOT PRUCESS OUTPUT 





° ° 
Be >From caller (IPwS$IP} 


for} Build network control block. 














| cat 
A. Reserve workspace for Network { 2 H 
Control Block (PNCB) | 
B. If no storage available i | 
C. Indicate PNET tera ination eee >] 09 
PNCB Sceleton | (RC=0 1). aad 
ae a D. Initialaze Network Control Block eee PNCB 
atest) , | pes 
ri >|0z} Load required phases according to load 
oe eS sequence defined in PNCB. | es 
nr os 
</eseaee’> IPLOAD Ss ee a 19751... 
no IP-2-5 | 


S eEenenmanemammnnsteamneat 


>{03} If any phase not found, | 
> 





Ae indicate PNET termination [oes 


(RC=0 2) . / 


>fou} If PNET &DR-Exat generated 
| ee} 


GNCB 


| 


! 
| A. Load PNET User Reader Exit if 
neccessary. 


/—. 
< eocccee > IPLOAD 


qs | IPp-2.5| 
If phase not found, 


| 
A. Indicate PN&T termination eee >f09 
(RC=0 2) . co 
: 


Mu 


o 
eM 


[oo] If phases do not fit into pageable area re =| SSG 
é : loose {'-———_-— TQUST ace 
A. taesoaye PNET termination 7, 09 
Paraseter % Pace 








PLOAD. ee aro --n------—-------9 07] Load network definition table. feucerar | 
ea a 
| | A. If NDT not loaded via PLOAD Command, | 
B. Indicate PNET tersinat ion [eee >fo9 | 
(RC=04) . —/| —_ 
ahaa >|U8] Reserve virtual storage for temporar 
f = NAT. 2 accu i 
: A. Store address in PNCB. 
: B. If no storage available | 
: | C. Indicate PNET tera ination fess “>fo9 | 
4 (RC=09). Tl 
Das : | | 
BRSO sb Peters tere me en. 3 fost Print error saessage 10061. } y ASG 
ao | | RG pcos 1 ae 
A. Indicate PNET being cancelled. t 
_ = 


To caller (1PWSSIP) oe] 

Tiel 

I 
v 


ee ee atte S| —_ 


a eae Sa SFE SSDS PTS ae PND SSS sy-er- —GSSeoAPSNp Pp =P-WOSSn PUPOSPSSUEP SSS APS SP  S  e-EA Ug NE SU D SAES WGEERP SDSAPSPS SSS GSD eS SS SON 
A eS ET Se A I SPT NEY TE A DS SE AED EDSON SS: SS SA A SS SS SS I SS YS SP GAY SD NYS FPS NSD 


| 
Return 


| 
. 
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IPWSSIN -~PNET FEATURE INITIALIZATION 




















ES 1 E AB t 
NOT MODULE {| LABEL NOTES AODULE | LABEL jf REF 
1 Real storage is reserved in the {CACP SESW 6 The highest virtual partition { 
length of the Network Control | addresS is cogpared against the 
Block (PNCB). If no storage is ana address of the las hase to 
et, keason Code 14 is set and PNET if the phases fit oO the 
nitialization is cancelied. pageable area of VSE/POWER. If 
Otherwise the address field of the | Reason Code 3 is set to 
CAT is updated to anchor the PNCB | { rf terminate PNET initialization. I 
| to the CAT of VSE/POWER. { 
7 The phasename of the Network $1ICP 
C. After storage has be Definition Table from the GENTAB i { 
reserved, the Skeleton Of the PNCB 1s_used to create a PLOAD 
is than copied into the reserved NET=phasename Command and a | 
storage. Besporary coamand processor is 
invoked to load the Network | 
2 The TPWSSIP Subroutine is called IPLOAD $Ip Defination Table (NDT)- On return 
to load the required PNET phases from command processor, the CP has { | 
into the Pageable area of stored the address of ne NDT into 
VSE/POWER. On return, the IPLOAD the PNCB if the load was | t 
has loaded the phaseS into the succosstyi ty otherwise the \ 
Pageable Area OF ¥VSE/POWER. address fie d contains zeros. In { 
. this case, Reason Code 4 is set to 
3 If any phase was not found, IPLUAD terminate PNET. i t 
has set IWCANCEL ,Reason Code 2 is i 
set to cancel PNE&f Initialization. 8 If shared spooling is wUpPorred SESV 
virtual storage iS reserved for 
4 The generation taple is cnecked to the temporary Node Attach Table. 
see whether an user PNET RDR-Exit If no storage available re 09 is | j 
1s specified or not. If specified, | set and initialisation of pnet is | 
the phasename from the generation terminated. 
| table is used to loaa the PNET 1 ! 
User Reader exit. { { 9 PNET could not be initialized and IWFLGt (Scam | 
I | ! tnerefor the Sessage: 10081 UNABLE | | 
| 5 If there is ao reader exit a INITIALIZE PNET FEATURE RC=nnn 
| available, phase not found kKeason t rinted and the cancel request | t 
Code 2 is set to terminate PNET t iwe QT is set. , 
Initialization. | | | { 
a a 
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CHART IP: IPWSSIP 


frewssiP } 
Rootphase | 





1p-1.0} 


— 





Co co ee 
[Common : | IPwW5$11 LPwSSI2_ IPWSSI3. LTPwWSSI4 IPwS$15 
Subroutines Check Inatialize Queue file Data file Acct file 
v VSE/POW &R processing | chisel iis processing 


SE/POWER { 


environment } 1 I 
IP-2.0 | Li-1.0} | Iz-1.0} } 13-1-0} | I4-1.0} I5-1.0 





e 











Print Status 
Report 








IP-ded 


Pormat NCB | 


IP-2.3 


Update 


disk addr. 


TP~2.4 





[ZPLOAD } 


eee 


LP-2.5 





IPwS$16 IPWSSIN IPWS$i7 [ipwssry [ 
SLL ; Initialaze pre Init. VSH/POWER 
processing 


! 4 

PNET Feature ! Termination | 

} 

| 16-1.0| { IN-1T.0] | 17-1.0| 
| eee | nen | SS | 





| 





t 
19-720] 
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TPw$$51P - Initaaliazation Processor (Rootphase) 
INPUT PROCESS OUTPUT 





Gen-taple 
GNCe 


“Lf 


| eee >Prom Generation phase = 
| mad pacer: 3 
REG 6 | | |-—-——? 01]: Save VSZ/POWER generation table (non aJE |. sd ; 
§ aecere | pact) . ee 
beset 
| t 
' 


| 
[02 Determine which of the anitialazation | : 
Load-table 





overlay paases must pe processed 
| GNJA | eer em eee meee sesoen > A. If no Accounting support is 


















of partitioa /POWER running ine 


RE SO ST OREN PS ET RES ES SS Se Se GI SS SE TE En SS NE GE CEE SEES SE SS SE SE NE SETS SE SH SU PND SHED GEE SS SEY SR SERENE SOE 


[evan id aaa 
9 requested, indicate no processing of i LPw5$it 
| | | appropriate overlay phase. ToT a 
: a 
| [ons 1| actestatataetetentea eta tatennetateaaiete B- If no SLI support is requested, t aaenng |p ca | —__—— 
| = | indicate no processing of ; Teads3i3 
appropriate overlay phase. —_— 
iam] | | e . {IPWSSI4 
GNNT wer tre te re creer enn? C. If no PNET support is Peguasteds 
S| indicate no processing o | | 
appropriate overlay phase. ods —~$! fbussi5 
| 1WPLG1 | Call common load routine to load a | | 
Goa io era aa 1 sangle phase. —_| { 
{ | SWCANCEL | | $ | ? [1pHssr0 | 
| —— | | < eececeoe *> | H | 
: r-— Re eT, | 
| | : | | cee —; 1LPwSSiN | 
| | : | | | I PwS$17 | 
| | Lewon- >|O4f If the phase does not fit into the. fooe fos | 1] tbh de 
| | eames Ip-Overlay area . te yy fea 
| | A. Pass control to just loaded overlay f IPwSS$T1 
j phase. | { 
| js ay Pe ng aoe 
| < phoebe ; | 
| | peeeeeteeaeee overlay | 
| phase | 
{ | B. address next overlay phase in soe $fo3 | 
| ‘taple to be processed ——/ 
fost {afore operator avout anpnormal 
t— termination and issue DOS CANCEL to 
| | terainate initialization. 
} i 
| | 


keset all age re SYSCOM and COMREG | 


: 


| 


| NOTES } SODULE {| LASEL REP a NOTES | SODULZ | LABEL j{ REP } 





IPWSSTIF as 
1 The non-RJE part of the VS£/POWER loaded and S received control. 


genere sen table is saved within 
he IP rootphase. 


last over} ay phase 
a 


{ 

Tne loader in front of the | 3 The rootphase is Bo encsote to {I PLOAD H ‘ 

generation table loads the | check the length of the phase to j 

inatiaalazation rootphase behind | be loaded before loading. Coatrol ' 

the first page in the pageable | is passed to the IPLOAD Subroutine | 
area. (The first page is reserved | to get the length of the pnase. 

| processor as work area). { 4 This process keeps gorse uae the | | 

| 1 i | 

a 


1 
for the permanent command | 
| 
| 
1 


ete Gee mee pe a ES ee 


iS 
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Subroutine: Set up DTPPH routine 





INPUT PROCESS OUTPUT 
| | ish | | | 
| { e07FPcon Caller { 
DTFPH | , rom _| DP PPH t 
| r—7--7>}Otl The PUB entry of the logical unit, | __? | 
| Se ae Se ena Se 3 | specified in the vTPPH, as examined to : [eur | 
| 2 see if the device is assigned. { | | 
| DEVICZ TASLE : 
k----->]/02z] Address device table and scan for 
a { i matching PUS device type cde. 
--+++-+------~- ----+- 
Sarena | 3 | 
7 | | 
i—---->} 03} tf devaice-type code is not in device | i | 
{ } : t table, cancel initialization { 
bees i | | 
| if i} i----->f0a} put pre type code, associated with the | Ra | 
ju—_______ | ! PUB device code, into DTFPH ry 
Return to callerese] I 
| | | ai | 
| | | 
| } 


eee 


NOTES } MODULE {| LABEL 


fr 









NOTES 





} MODULE | LABEL | 8éF 









t 
SPSSECSSE EKSSESSSEESSSTSESESESSE SLO LESS ERS 1 The GETVCE gacro is issued to GeTVCE {SD00 1 t 
ontain the device characteristics | | 
The PUB devace eyee code is of the disk device containing tne 
optained via the ogacet unit tite assigned to the programmer 
j specified in the DfFPd. This code my toes unit specified in the 
| is cnecked ayainst the ouppoceed bt | | 
eerie: ee Codes in the device if a bad ison ater) returncode is 
table. | qagge pack age 
QO Invalid LoGicaL uMiT 
| If RO watch is Found message *xuxxxxxx* is issued and tne 
1007I as assued and the anitialization in canceled. 
tat cal ation is terminated. “we 
ac 
If a match 1s found, tne proper é Tne internal device table, which 
device-t BRPe code 15 inserted in contains an entry tor each disk 
the DTFP device supported by papa Besclge as 
scanned to locate the entry for 
The address of the device which the PUB device type aatches. 
cnaracteristics is returned in ; ; 
register z and the default 3 If device-type code is not in | pecan | 
datablock size is returned in device table Fint message 1QUu7I 
| register 1. INVALID LOGICAL UNIT and cancel 1 | | 
initialization. 
PERE STESKE FELSKESSETHESSEKSERSEKSE ETEEE SSE 
poset DTF device-type code in 





Chart Le 215 


Subroutines Prant Status Report 
INPUT 





isk. 
eoe SFrom 
7 


{a}--> 
[>}-~ [v9] 


' 
1 
' 
! 
' 
' 
' 
4 
1 
t 
Vv 
i=) 
o 


f] @ [ 


08 


mee | eeeted a 


eared 


oe ee, 





04 00 08 CF OF 90.08 0960 09 00 00 08 OF 00 F8 ee ee ee 08 be Oe te eee Oe ee hae 


ACHI Ht 

fAPHE? | be Set 
ase 

aChu 

ACA | 


L 


00 Ooo BO Oe 08 08 00 08 00 08 08 08 Dey 


5 


Process 
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OUTPUT 








TCB 


Caller 


Save area 





Save caller*s register and check if 
SYSLST 1s assigned.If not branch. 


coo 2 [15 | [) 


create Cos an real storage and skip to 





Channe ~___.._.? PRINT 
STaTUS 
; REPORT 
Print report header 
Print queue-file inforrjation | | 


Print data-file information 


Print account-file inforration 


taal 
ee 
See Ee nnenEneden eral 
eect 
eee 
| 

| 


: 


Print storage allocated to ¥SE/POWER 
partition 


Print max- number of reai pages and 
nuaber of times tasks are waiting for 
real storaye. 


Prant @ax. number of tasks active at one 
point. 


Print number of times tasks are vaiting 
for vartual storage 


- working tir 
- gave a chance tame (T2} 


Prant shared apocr sas anformation: 
e 


- polling time (T3} 
~ retry time (T4) 
~ SY¥S-id 


Print number of lost Notify sessages 


Invoke temporary command processor for 
display of queue coatent 


Wait untill re-activated by the command 
processor 


Restore caller's registers 


Pl 


| 
| 
| 
: 


OE ee SN ET SN the repS PAY VP ree OS 





Cib 
(CLT aLac laaheeenhenterterteseteteeater | 
Bxitese 
—1°1 
seu 
ee | iM | 
{ NOTES { MODULE {| LABEL | REP HOTES i BODULS | LABSL | KEP 
1 The DOS/VSE internal macro SYSIR SYSIR {PS00 SSAV 5 Data file information: 
{ 2s used to obtain LUB and PUB | - Header 
| address to find out if SYSLST is - nugbex of tracks/FBA blocks for 
assigned or note | ; : Data file . : 
gictSi is assigned "eb" prancer a sean teomntae Aide eae 
1 s = Z 
device 2 . - Data blocksize (SRDS) 
2 If the printer is a 3800, an SRS account file inforagation: 
ap tae Ghipeko change aie = pee eer of tracks (ACLO/ACHI 
o e annel on e 
3 a meebes of blocks {isnt MAP LDP) 
a file inf t pe Soe aaut ig paren taae cot account file 
ueue e inforaations: - 
we Header RAPHIP /APLOP) 


nuaber of gueue records ( 
nuaoer of Cree y-records 
Rurber of g-records used 


(tea 





216 


VSs/POWER PLM Part 2 


The comrgand BXxcP 


to 


rocessor is invoked 
display the content of all 
queues 
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Subroutine: Format MCB for data file and queue file 
INPOT 4 PROCESS OUT PUT 


‘ans 





Caller 





—/ 
Extent | j , : _— 
information 1f01] Store extent inforaation: 
Gere ny at ie ers ' Donen ites 
: | - upper limit 
i-----3[02] The device address is obtained from the | 
PUB and converted into printable format ” \ 
cat wre t tr nnn er nna > 03] If cunning in /370 mode obtain the real | 
address of the @CB.. k 
[camp | - Set EXCP reali in CCB. | 
| fou} If device is not a FBA device [eos | 
= = | 
U5[ Relocate PBA Channel prograr: ceo > 
- Extent description CCW | | 
ree = Brock’ (for 
- Read/Write CCW lPpa only) i 
ey 
‘ Extent 
b jegece ene aus 
[vs] Relocate C-K-D channel program: block (for 
~ See {PSA only) 
TIC / Set sector 


Search ' 
Read/arite CCW 


(tee 


? | | 
: 


Return to Callereee| 


rere 
[-\7 


| 
! 
| 
| 


gy SR a ST EE I EY eS SE EE A A GY FS eS EF NR Sp ES AA RO GS A SITES 




















NOTES 


1 The extent information opntained 
from tne XTHTXIT proce seis is 
saved in the module control block 


(MCB) | 
| 


LABEL 


| SODULE | LABEL | REF NOTES | S0DULE 


EXTHACT i 3 The real address of the MCS, whach awa 


REF 








relocation of the Channed progr ass 
See eae when running in /370 
aode 
< Get the physical device address 
out of the PUB and convert it toa 
printable format. 
Save device address in the storage 
descriptor ot tne MCB. 


| will pe used later on for 


a 
ee ee eeran eee | an 
Ser are Or oar GE 





| 


+ 
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Subroutine: Update disk adress 
INPUT PROCESS ouTPpouT 


{ 
| REG 1 i tel | 
@ia, 
(oa boos triea ‘Galler 
>disk request ‘| | 
























| word aieaennne’ d If FBA device, update current block feee >{05 
: o2 number : [-=*) oe] 
a] 3 sie pueda disc 
Se pron eod If C-K-D, increase current record nusber ——"| 
: fal-- by one ; pa request 
{ 3 uu word | 
| 3 1403] If new record number is higher than aR | 
3 fa} --> maximum record nusber per track, set ee 
| : | record number to one and increase 
4 t current tracknumgper by one | 
| : | fou] If new tracknusber is higher than nusber 
: fal--> of erat he/ cy Landers. set tracknuaber to | 
| 8 us | one and increase cylinder number by one 
: {JOS 
ba we eee > | 
Return to callereee | 
—e 
de 
| 7 
| 
| eee | en ne 
NOTES { MODULE | LABEL | REF NOTES t{ MODULE {| LABEL [ KEP 
This suproutine updates tne 1isk | UPDT | 1 Increase the current blocknuaber | { 
‘address, pointed to by regaster 1, by one and store back result | | 
to address the next yueue record. | 
t i | 
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Subroutine: IPLOAD 


Inpur 


; 


ee ee A NE EE CE ES ES ES LS SS LS SNS STE eS Le LS TS STS Ye SD 


[zss- 
| 


Paraneters 


Addr .list 
Loadlist | | |o--c-------- 


| |e -Poases | 


! 


IWPLG1 


[IwPzat } --------- 


Peeeevececeed 


| 
* 


EE I SE A ET OR a SANNA 
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oe eee een >fo3} Issue Supervisor Call LUAD (TXT=NO} to 


>|O4| If phase not found 


--->|07[ It phase does not fit into allocated 


Licensed Material 


PHOCESS 


ae 0Utéi‘“SC*S 


ee Spron Caller | 

—} a3 

ceeeetaiee iL If phase within aAddr.List is not ecoe >} 11 
é [err 


ore | 


affected. 


~---->|02] ore Phasenaave into local directory 


1st. 


get the length of the phase or the 
antormation *phase not found® 


A. Indacate cancel for caller 
B. GOTO Exit 





° 
e 
e 

e 
~~ 
N 


, 


If only feature checking is required 


A. GOTO Exit 


am \/ ea eee ee sn eee ee Vere eee cee VY 


foe} Calculate Length of Phase in bytes with 
\— information dérived from local directory 
entry and reset entry last 





area 
A. Indicate area to small 








B.- Skip physical load of the phase.[eee” [o9 I 
—,/ ss | 
>fost Issue SVR-Macro LOAD (TAT=YES) to load 
u— the phase. 
fos] Update Load-address if required. | 
ae | 
if 10} Calculate new loadpoint and reset Local 
a Directory Entry. | 
I [o= "3 
$471] Lf all phases not yet processed eee >for } 
Ce i ene 
| Taz} Exit | 
— 
t Return to Callereese 
e 
| eet 
| $. / 
| |’ 
t 


ee 
eT Ce ee a Se Se PE Ga Sa PP SS PN a AN SP SE ae SS Se GG” SI SOSA SE SSN SP Pe SE EN Se SS AT LE CU 





Property of IBM 


QUTPUT 


Tweet 


> JIACANCEL 


ITaPLGt 


> fiwsuoxr | 


[ neo | 





a a SE SY SA PUPA A EE 
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Subroutine: IPLOAD 


ESECKTEEKHETESESKSESSESEEED ESSE EEE ESES 


Thas suproutine is calied under 
the following circuastances: 


| 
1. The length of a phase is | 
required of 


2. the phase has to be loaded from 
the CIL. 


SHREK AK ESSE SERKACKSEESE KSEE HH CHEK EKE 


t 
The load sequence already defined 
within several control blocks 
{@-g- CAT, PNCH.--) is addressed 
in &eG.3. If a_single phase 1s 
affected, KLG.3 points to tue fuil 
phasenase elsewhere in the 
storage. The caller nas loaded the 
nuaber of phases in REG,4& ana 
REG.< points to the load-address, 
where it as to be loaded Every 
entry in the loadlist contains the 
following info: 


Byte 0+1 = phasename id 
{last two char. of 


pha:e) 

eeisceed:c zero, phase not 

byte 2 = olank 

byte 3 = A pnase 1S ta load at 


paye boundary. 


On tae load to ve 


| 
| 
| 


Dependin 
pertorme 
or ault iple 

loaded ne Local Dircectory sentry 
Paraaeter is updated. 


phuses 1s tO be 


SinyLe phase = Move full phasename 
Multi. phases= Move vUWSR standard 


phasenaae ee ae 


Id from loadlist. 


It *Aat as andicated an the 
doadlist SuEeys tne address where 
the pnase 1s to be loaded is 
rounded up to the next hagher page 
boundary. 








IPLOAD 


| 


See em Eh Soe SER STL BR EADS ch Te SADR SOS PEERS CARE se CO ES ge EET PS SSE cE ERIN GS San 


3 


| 
| 
; 
| 
: 
| 


V1 


| 
| 





The SYR LOAD uses the Locai 
Directory Entry to execute the 
required function. 


If a passe is not found during 
length checking, andicated througa 
x*08* an the Local Directory Entry 
the SWCANCEL is set and further 
processsing is stopped. 


If feature checking only as 
aindicated,the physical loaa is 
skipped. 


Tne length of the phase as derived 
from the Local Directory Entry. 


The calculated length plus the 
load-address are compared against 
the eud address of the area iato 
which the phase has to be loaded. 
If the added value is greater than 
the end, no physical load is 
perforrjed and error is indicated. 


fhe SVR now loads the required 
pheweae? the storage pointed to 


The Load-address in the affectea 
Control Block ({eeg- CATeos-) 1S 
updated to anchor the phase to the 
comrjon address list. 


The length of the phase 1s added 
to the phase begin address to get 
the new loadpoint. 


The number of phases to be ; 
rocessed, contained in REG.4 is 
decreased by 1 and REG.3 is set to 
the next entry of the loadlist. 
This keeps repeat of step 1 to 7 

until REG. is zero. 


{LOAD 
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CHART 12; ipw$$12 


Cneck 
VSE/POWER 


environment 
41-1.0 


{Generation } [vsz7PowER } fercoc-Exit 
a 


an { Partition 
Env ap unseat Init. 
e 
| mee hr-2.0} | 11-3.0 11-4.0| 
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IPWS511 - Mainline 
INPUT PROCESS OUTPUT 





WVS£E/POWER Partition 








—=>[o1} VS&/POWER generation and environs@ent 
check ing 


| I1-2.0 


a Initialization of VSEBE/POWER partition 


| 
| 
| 
| 














cancel VSE/POWER 








Exit, return to IP Root aa 
se 
oe 


+ 


- 7 
v 


ER 
oe 
5 fe 
an 
Oe 
ne 

= 
& 
Lod 


ee ED 
VSE/POWBR 
Control 
eer Reel Blocks 
| 
| 
! 


| 



















NOTES } AODULE { LABEL § REP } MODULES | LAbDEL jf REF 
Ipw$$11 - Mainline checks the | 
envirousent in which VSE/POWER has 
to be executed, loads al 


coatcol adairess taole (CAT) and 
RJ@ control blocks. 


he ee eS GE 


VSE/E OVER. passes: inatializes the | 
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Licensed Materiai - Property of IBm 


IPW$$I1 - Generation and Environment Checking 
INPUT PROCESS OUTPUT 


ru. 
eee >From Mainline 
| 


Validate VSE/POWER environment. 


A. If error occurs set up message [o==" >[oe 
humaber and go to exit routine u—3 
(error exit}. 


| 


licens enera ted 





eee es ee ns ee: 
So ee eee econ een 

| 

4 

' 

! 

' 
ee Vora 


VSE/POWER Table po--—-i--- 2 fog] Verify that shared spooling rsodules are 
s : present, if shared spooling support is 
GNCB $ : requested. 
: 5 


Hemme s 


1 
| 
| 


GNJA="A® 


' 

' 

t 

1 

1 
Ve 
— 
w 


If RJE,SNA ouppect is needed and RJE 
GNSO feature available. 


Pesce A. 


a yl 7—. 
| | < picddad IPLOAD 
pGuNE etashatestadietetetesneanetatetas IP-2.5 
Sea B.|RJZ,SNA Check ing 
I1-2.1 


~—~--->(04) If RJE,BSC support is needed and &JE 
feature availabl 


as | 


j—. 
< eescee > IPLOAD 
c—/ 





ee 








1P-2-5| 


ee 
t 
B.fRJE,BSC CHECKING 
T1-2.2 


ale Check aif enough real/pfixed storage is 
[areR=14K paehaeaehetenetnneneteneiel — “—J+ available 


A- If error occurs set up feee” 06 
appropriate message number and data u— 
go to exit routine (error exit). 





te 


Exit, return to Sainlinesee 
e 


ort 


nd 





{06} Go to exit routine (Error exit) 


eececee > 
CO 


A Ca a ER OT a SF SRN TE ONE ENE TS NS ST I TS TN Re I A ES SS A NNT 


a 


PORTO SNORE 
11-4.0 


te as ee ee I A ES SES NEY SS SNE re SANS Ea ST SE NILE NEP SA NU I Sp TS TENS 
em se RP Se SET gE EY TE pe ES er SPOS EP GR NS AEF PS A ST SH I a SS GE SS SY Sa SE SS SE FO 


ee TS SN A SI US GSD SD 


= TT ee eS Sen 
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IPwWS$I1 - Generation and Environment Checking 


f NOTES { NODULE | LABEL | REP i 















NOTES REP 





} SODBLE | LABEL 





1 The foilowang checks will be made: - 3 A dumay load will be issued to SR00 
; find out whether the SNA manager 
- if VSE/POWER is already active: ASYSCOS $1100 iseeeese) is in the systea. If the 
| ; } pha 1s not in the Syston; the 
®1Q221 VSE/POWER ALREADY ACTIVE® COSRG i eature is not Sup por ed oot 
initialization is rrainated. 
{ ata eodee Viert eet nor, 102 }SYSIR 1103 ' gessaie AGURr.. bs gies PEATURE NOT ( 
node integra is issue 
| qiadlar operator console with 5213 | | t 
| console printer attached} or 3277: | } iI 4 Initiator will do oe apa for IRI 
BSC monitor (iewssBa) . 
| a SYSLOG NOT ASSIGNED TO | | | I nase is not ap the s sietiae** 
eature iS not sup ed an 
initialization is Pore inat 
- af VSE/POWER is not a maintasks }RUNMODE } sepeads WQOAI RJE,XSC PESuRE NOT 1 
: SUPPORTED is issued. 
*100ZI VSE/POWER CANNOT RUN AS 
SUBTASK *® 5 If real /pf ixed storage smaller 1A10 
f VSE/POdER t waa a3t INSoRFT clent SRERL/PPIX ED 
- 2 ER is aot running in 
| virtual mode: STORAGE ALLOCATED® | 
*10011L Bee POeee CANNOT RUN IN If the virtual ag bert area 1s 
| REAL MODE not large enoug o get the 
initialization processor *Toaded on 
{ | the rig ae ce, the VSE/POWER 
t - af VSi/?OWER goperated wath job £120 loader oR s the processor pehind 
accounting put Jal not present in | the Jesers* ion table. This causes 
supervisors: that mess aR 
{ : { 1Q905I PAGEABLE AREA TOO SMALL is 
i} *9Q101 SUPERVISOR WILHOUT t tt issued - 1 
| ACCOUNTING SUPPORTS { | | i 
{ 2 A dummy load wili pe issued to | { 
| find out wnether the TIMER module { ' | 
| (LPWSSTI) 15 iu the system. If the 
pnase 15 hot in the systen, the 
| feature is not supported and 1 
t anitialazation is? erminated. ! 
Message TQOAI SHAKED SPOOLING 
FEATURE NOT SUPPORTED is issued. ' } I | | 
' t 


a a ae 
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IPwS511 — RJE,SNA Checking 
INPUT 


GNCB 


7 


eee crores vee 


GNSR 


GNCB 


PRAT . 
Deca etens 


or 
TYPE=LUTt 





SN RE RL GT SY POR SES SS SS SN SA rc S-nrSPIP > ee SSO gE SND 


a LA A AT TEST NER Ne NO D.C Gs AEDS SATS SUES GS SOMES SS SE SG: SS EASELS RSE SSUES GAN EAEAGIT 
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PROCESS OUTPUT 


ee eee ee eee 
on, | | 
[250° 27r0n Caller 
/ 


~---->}011 Cneck number of workstations specified 
and correct value. ! 














cite em \f comers 


foz Tfeee>f0z} check PuNROUTE and LSTROUTEZ values. 


fos} If the terminal characteristics of this 

rerote control block are described in 
another control block (REFP=smea in the 
PRAT macro) the information is copied. 


fou} If not all remote control blocks fone Oz 
have peen checked: A 
a 


05] Optain virtual storage for SNA reaote 
entries, LU tables. 


A A SI FEDS ARE STO TT IPT LE SO CP ETC 


r—-. 
A- If error occurred set up messagefeee >/08 
nuaber and go to exit routine 4 

(error exit). 





>|O060{ Define and initialize RACB in virtual 
storage. 


[— 
| 
eer me pean ners eames enrnenepeeenr rupee | sees RNG SOON See END cs SSSA SHPO SRas SHED 
te 
a 
a 
ii 
Ee 


[oan 
[o7} Continue gainline 


poet 


- 7 
v 


Exit, return to caliereee] 


[oa] Go to exit routine (error exit) 


feaawas 
i, / 


Error exit 





| 
| | 
| | 


| 


Ba rt ee ee 


| NOTES { MODGLE } LAS&L |[{ REF if NOTES { SODULE {| LABEL { REF | 





1 #%$If no number of workstations is } RS00 
aramseter 
SBAW 10} ey scouny) or if the number 
of workstations specified is 
higher than the number of SNA 
regotes (wscount > nuaber of 
remote ID's), the number of 


specified (macro POWER, 


workstations is set equal to the 


number of SNA remotes. 


< The puacs and List routiny Ids are 
ed for validity, and if they 


are anvalid, message: 


19901 INVALID PUN (or LST) 


RUUTING FOR remid® 


is printed and the routing IDS are 


reset to x*00°. 


5 "261 GETVIS AKHEA TOO SSALL® 


: 
| 
| chec 








6 Tne space of the SNA remote RS47 
control block 4Bace) an the GETV1S 
area is cleared and all SNA remote 
entries are moved into it. Ali LU 
nages specified in the PRAT 

aacro (5) are copied into the LU { 
table. The RACB space is rounded 


off upwards to a 2K boundary. The 
i 
! 
1 





SNA remote control block is. 
initialized with the following 
faelds from the VSE/POWER 
generation table: 


ACB password length 

ACB password 

Nuaber of SNA remote entries 
Pirst SNA remote ID 

Last SNA remote ID 

Storage descripto 
Translate tapes { 
e 





x 
un 
oO 
uw 


! 
| r 
EBCDIC to ASCil 
ASCIT to BBCDIC 


Por each SNA remid a pointer is 
set to the associated LU name 
string in the LU table. If the 
pointer is zero then no LU name 
was specif ied. 


Geivis 
Translate tab 























7 
: 
' 


| 
| 
| 
| 
| 
| 
| 
| 
| 
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IPW$$I1 - RJE,BSC Checking 


comm >{01} Validate lane addresses for all line 
{ blocks in the generation table. 


INPUT PROCESS our put 
eee >from Caller 
| ‘ 
| 
| 


eee 








| If no more valid line blocks exist Jeee >fos } 
or if no reaote piock in the /\ ; 
| generation table (PRAT macro} 
@x ists: 


| 

| 

| 

| |[BEFTaieicns| woe nee = | 

: “— Validated line blocks are written into 


Pa 


the line table. This is repeated until 
all line blocks nave peen processed. 
Then the reaote table 1s moved behin 
tne line table. 


fou} Check PUNROUTE and LSTROUTE values. 


| fos] Return. 


' —) 
Exit, return to callereee; 

pel 

moh 


oP (EC NS 








NOTES | MODULE | LABEL 


1 Check if the line blocks ain the pLdRg 
generation table have 
PUETe pe onGang line addresses in 
e . 
If thas is not the case, or if the 
Corresponding device type 1s not 


REP 






NOTES $ MODULE | LABBL 1 &EP 








4 The punch and list routing IDs are RJ35 
checked for validity and if they 


are invalid, message: 


gist INVALID PUN {or LST) 
ROUTING POR remid*® is printed and 








2701 or 2703, tne line ock is | the couting IDs are defaulted to 
removed from the table, the nuaber | central punch/list routing 
of valid line blocks is decreased (X*®00*%). 
by one, and message: 
"10142 NU SATCHING PUB FOR cuu® 
is printed. | | 
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IPW$$I1 - Initialazation of VSE/POWER Partition 
INPUT PROCESS OUTPUT 


caT | > 
® . 
[Ee Prom Mainline 





Witceseee loos 
s 
for}. Save RJE,BSC part of generation table 
Load ¥SE/PORER nucleys (IPSS and if 
required: the BSC con tton (ipatsba) | 
behind the nactean: { 
ceed 
oer IPLOAD 
| IP-2.5 
fos] PPIX the storage within IPWS$NU and |_ — 
IPR$SSBM (1f loaded). ae eects { 
—— 








fou} Initialize storage control block (PCDS) a ae 
and address fields in cont sol address 
table (CAT), in the first fixable page. 


I 


Be 


foe] ppy .t one Pst byte into the CaT and 


Initialize local message control plock 
PI puseter of VSE/POWER 


| ee. 
-----3f07} Load poqesred VSE/POWER phases via 


IPLOA 
J eoauee V4 IPLOAD 
[Ss~S~SCiP S| 


A. If pageaple area is too small set up 
message number and go to exit 
routife (error exit} 


| 
ae 
| 


pact it Ga - 


FP EO SPDT COP ON 0 0008 Os 08 BOs OO ee Oh Oe OO se $000 FF On Ot Oe 08 06 0058 28 os eee ned 


ial 
g 


eA COE LE TS SS EE NRE TES SAS eS SERS a =P NS NETS ce SO Ss ES SP A 


_ gy A te pS NS TE LE AS ee a TS SS Se SN NSE eS ER SORISEP GES 


11-&.0; 
return to Mainl ineeee} 
e 
wel 
toh 
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IPWS$$I1% - Initialization of VSE/POWER Partition \ 
NOTES | AODULE {| LABEL REP < NOTES {| @ODULE | LABEL jj 
The RJE,8SC pact as saved in the | 











! ! { 
next paye behind IPwS$1P 4 1 | j j 
generating two tables (LINE table Byte 0 and 1: 
and REMOTE table). The RJE,SNA ast two characters of phase nane 
part was already saved in GETVIS (e.g. CM from IPWS$$CH) = phase 
Storage (control block RMCB). name id. : 
2 If RJE,BSC is supported IPasSBM $IP Byte 2: Blank | | 
will’ be loaded pehand the DAB. . ey. 
: ayte 3: Page alignment indicator. | t 
3 Behind the DMB or, if RJE,BSC is PPIX ta23 SA* means phase is loaded at 
supported, behind IPWS$BM, the . page bounda 
first fixable page of VSE/POWER _¥ * peans phase load address 
fixable storage Starts. This page will not align to page boundary. 
contains initiator/terainator TCB, : 
command processor CB, MCBts for If a phase is not needed, the GETVCE 11338 | 
queue and data files, and free appropriate aodule-load-address 
Space. fields of the related phases in 
: the CAT are set to hex zero 
4 The storage control plocx is REALAD IA27 {sanpoutine E1Z£) to suppress | 
initialized by setting all oading. | . 
available fixaple pages to zerv If accounting is supported, the | 
and the last page indicator in the device type of the account file is 
storage assigheent table to checked whether it is PBA or CKD. 
(X*40*), as well as the "first If FBA, the IDs for the PBA phases 
page fixed" indicator (xX°80*). * be goved into the aodulie load 
. ; address field in the CaT. i 
5 Tne local message control plock is The size re fhe BSC trace area, if 
initaalized by relocating the ceguired e ed in macro POwER) 
SYSLOG channel program: is also added to the total size of 
~ read CCW pageable area. t ] 
| - write CCw# | | 
6 With the UPSI pyte information 
VSE/POWER debug traps were 
| activated. 
{ 7 The phases of VSE/POWER BASE and sIP 
the phases which apply to } 
qeoeraea features are Loaded ani 
} he phase lengths are summarized. 
When the pnases do not fit mto } 
the payeable area, the following 
messaye is displayed: { 
*1Q051 PAGEABLE AREA xx K f00 { 
SHALL®* 
Initaalization is then teraanated. { | 
{ The fetch sequence is defined in } 
| CAT (section 90.3 - ! 
aodule-Load-addresses) . Por every 
phase a fullvord is defined whic 
{ will contain the load address. It t 
| contains the following t j 
| information: 1 | | | } | | i 
! | t 
an ee 
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—/ 
for] Print out error rmessage on SYSLOG. 


IPWS$SI1 - Exit 
INPUT PROCESS | OouTPUT 
oj | 
eur, A 
[ets — calling roatine (error exit) 





foz} Issue DOS/V¥SE CANCEL to terminate 
VSE/POWER initialization. 


fo DOS/VSE ABEND routinesese 


Hl 


v 


on 
| 
| 


ae 








{ MODULE | LABEL { RBP NOTES — { SODULE | LABEL j 

H 1 J ExCP LIIcy WalT { 
2 Error exit: nae CANCEL 

| Cancel job or partition. | 
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CHART 12: sPw$$I2 


TPws5T2. 
tipatialize 
VSE/POWER 


| 12-1.0| 
! 
! 


ieee up [check format | Check shared 
various statement spooling 


[Srocks" 





environment 


blocks | 
Iz-1.1 I2-1.2 





Initialize VSE/r0wER 
INPUT PRUCESS OurPuT 


. 
, 


e 
fobs. 
[22° 73eron IP Root phase 

















fo3} If shared spooling 
| a | 


| | 
Generation table } | DT FPA 
| { = ——> [IgQFILE t 
West ps cata, | | seri 
H : for] Set up various control blocks | j!—-——- {LODFiLe 1 
Pe a dues te 12-3.1 tt 
\ me H | | DTFPH 
Woaseocas! : | ie a> fTuaFiLe i 
: || ee eg ee 
: 1 
{ausysin | ae ---~------->f02} [check format statement fl preecmnetee | 
j eee a | 12-1.21 | a | 
>1/0 area a { } 
[rwcDin } i 
ee a : | | I/O area 
: | (ee frwcoin | 
i | 


A-jCheck shared spooling environment 
| and lock Q-file 
| 12-1.3 
| | 





OES ST ERNE I ENS ce oe Se Scr ee tS sc re te see crue a naan we 
Ae I TIT PE NT TT CI ETE RO A | Cy NES WHE 

t 

] 

' 

i) 

' 

i) 

1 

vi 


Exit, return to IP Root phaseeee] 
e 


as 
i / 


EE Te ES EE ES RR GS a SS 


a er ere eee ee ne men ee Verte irre ei meee See me NY eerste Vereen Ysera ee 


v 





NOTES { SODULE | LABZL | REF f NOTES } MODULE {| LABEL ( ReF 
+10) From this peat on, the ! 1 HI I } i 
initaalization routine is erecuted | | | { 
as a VSE/POWEK internal task i 
within the VSE/POWER partition. t | 
This is done to make use of 
functions and services provided by | } rt 
the VSE/POWER nucleus. I | | 


Chart 12 233 


IPW$$Iz - Set up various control blocks 
INPUT 


a 


AT 


[CAUP | 


wee eeewoen mand 


| 


a PR CR EE ca I EE OE CE LE ES SE OE TS SS ST PN ES GG AS ND ar 


NOTES 


1 Tne macro XECSTAB TYPE=DEFINE is 
coded for both XECB*s because tne 
relocation of the XECB address 
must be done by IPWSS$I2- 





2 Storage for the 
initiator/terminator task and 
ermahent Command~processor task 
Cb are reserved 


| 

| 

| 3 Storage is acquired tor the 
virtual storage control biock and 
| initaalized with following values: 
- storage descriptor 

H - subpool ideatif£iers. 
! 

| 


4 The initial Task Control block 
(2CB, address in register 11) 
chain includes: 


wait TCH (set to #=always 
State) ._ 
init¢datior/terminator TCH 
to D=dispatchable). 
command-processor TCB (set to 
I=awaiting posting) - 


fhe current = maximum nuabder of 
tasks (2) is saved in the 
applicable areas. 


5 a SVC 13 as issued to set _ the PSW 
key to zero. VSE/POWER will run 
with a key of zero in order to 
aliow updates to supervisor 
control blocks and to sake 
modifications in the serviced 
Partitions. 


oe 
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r-----? 


MODULE 


SVCY2 


XECBTAB 


SVC13 


Licensed 


Mainline 
1f spool management reqecsted define 
crosS—partition X£C8s ICXP and SMXP. 


If definition failed, set aessa Dee | 
indicator and issue {ECBTAB TYPE=DELBTE 
to delete the XECH#sS. 


Reserve space for initiator/terainator 
and command-processor TCS. 


Set up virtual storage control block 


Set up initial TCB chaan for 

wnitiator/terminator TCS, 

cOmnane Pp eoverecr TCB, and wait control 
ock. 


Issue SVC 13 to change the PSW key. 


Indicate VSE/POWER active, 
of VSE/POWER partition in SYSCOM and set 
VSE/POWER partition indicator in COMBZG. 


Store address 


Activate AB-Exat routine: 


Inform other Components that VSE/POWBR 
is active and running 


Establish linkage to interval timer exit 
routine 


Attach asynchronous service subtask 


Set up Trace Information Block (TIB) 


A. Attach asynchronous Dump Subtask 


Pass control to task selection in the 
nucleus 


LABEL 
1210 H 


NOTES 


is active 


I220 returned, messa 


trga, is issue 


cancelled 


en ee Fe ee ep cant 


1230 





are initialized. 





is attached 
if 


VSE/PUWER subtask. 


et a ee RR OE TT A 


8 A SUBSID gacro is issued in order 
to informs the supervisor as well 
as other Components that VSE/POWER 


wnen a bad return code has been 


The asynchronous service subtask 
1s attached, it wiii be alive as 
long as VSE/POWER is active 


The Addresses and Pointers to 


| 

| sage 

| aeees INTERNAL SACKO CALL PAILED, 
= e 

| Primary and alternate Trace Area 


The asynchronous Duap Subtask 

via 

IPWS$IAS TYPE=ATTACH, TASK=DUMP 
the UPSI bit is set in CAT. 

It will be active as long as 

VSE/POWER is active. 


Task selection is entered which 
finds the initiator/terminator to 
be the only dispatchable task. 
Thes control is given pack to the 
initiator/terminator at the next 
instruction and initialization 
continues from there on as a 


i 


5 issued and th 
VSB/POWER initialization is 
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OUTPUT 


& 
re 





Cross __ 
Partition 
XECH YS 


kL 


ul 


yw 
Q 
cl 
ee 
it 
° 
n 
acd 
° 
Ee TTS EE OT Ce EE ST TE TE TT SG I a EE EE GEENA PT ee CR ET Se AE A A I SEG SS St REE ee 


Veran een errenremenn mae \Y enema ee 
G 
=z 
| | 
io 








iid 








5 
| 
| SYSCOB 
> frosetco3 = | 
| somal 


{LUBPWR 


COBREG 


$ POWFLGI = 
x*208 








a] 


Ip 





{| MODULE | LABEL 
SUsSID 





STX1IT 


er rr OT ES GO A OE I RS ri I A NS Sa CO 
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Check format statement 
INPUT PROCESS OUTPUT 





eee >From Sainline 


| 
| 


peer em wera: \/ ema aes aera write SUPER EEN Oe Oe ERE 


t 
DTFDL | 


ptt ren > Check if SYSIPT is assigned. If not foes” >[05 I 
[rusysin ] dentetatteateta | assigned branch to /{~ 


>1/o area 


| 
farcoae—] | 
a tl 
| 


wee eee = >1Uc}] Open SYSIPT file 


<--> A. If an OPEN error is occurred, cancel 
initialization 


F 
woneeg ae ee Read first card 
| 


be ee mene ne > A. If the statement is a SET control 1 


I/v area 


! 


OTRO IRI ETO RIES eee 


! statement, process it 


>[o4} If a PURMAT statement is read, read Jeee > 
[j= jo4) in next card [r" (ee J = 


A. Otherwise, issue error gessage 





DIT FPH 


[IJQPILE ! 


DT FPH 
IJDPILE 


if 05] Ask operator how to format queues cee. 
<2 e 





foo} Check forgat specification 


OTPPA 


{IJAPLILE } 


re i 
A- flag appropriate DTF for output jeee A 07 | 
> 


processing 
B. If error occurred, reset all setjee 


tla 
° [os 
flags oe 





SS 
| 
eee Yom Vereen Yn 


reply area 





| 
| 


a 




















NOTES { MODULE | LABEL {| REP NOTES } AODULE {| LASEL |{ REP | 
1 The SYSIR macro is issued |SYSIR {1240 It 4 If the card just read was a GsT | } 
{ obtain the appreprsate Pus. and LUB t FORMAT= statement, it is moved { | t 
| peasy ie t patos ace anat | into aa ea acea and the next card ' | 
specified in e . 4S read in. 
| The LUS is examined to see whetner | SA If the card is not a PORMAT=. | $eTO | 
| the logical unit (SYSIPT) is H H statement, error soreade 41Q131 | 
{ assigned or not ee robo aaa CARD (S) | { | 
is issue 
| 2 The SY¥SIPT file is opened by [Ceeee | | | 
apeu tnd ie OPENR macro 5 If ng posnat. or ayornn: ven | { | sure | 
instruction su aed or was 
. [ | i II anet ned, message 1011D PORAAT { | | 
| If an open error is occurred, CANCEL peeAd QUEUES= fis issued to which the 
| Tozat> LTA CANCEL 18 sued and | Ae De Or 7 i ESREE Ap OE omy cE ees | 
is_as n + D, OF Qe 
the VSE/POWER initialization is 
terminated 6 A check is made to see wnat FORMAT Tere 
“ ; specifications were given. Action | 
3 fhe first card 1s cead GET taken 1S: | | 
A- shah a file is flagged for | 
| 3a Wath tne SET statement a value Hh out put 
| following Keywo xo. one of the | Qa gncie fale is flagged for | 
° a bg ywords: out pu 
eietD 1 D 3 queue file anu data file are | | 
= H | flagged for output } j 
- peer The statement 1s syntax NO - no data - no action | { t | 
} checked and if invalid, the | | (warmstart) | 
statement in error is displayed A combination of these actions may 
| on the By ates console followed | ! i H occur. If an invalid character is | | 
( by messa 1 if { found or if commas are missin ! 
} Wi3L RONEOUS AUTOSTAKT ry t messed? 1Q11D is re-issued an the { 
t CARD (S) READ output flags are reset. j { 
| If the SYSID statement was t 
wrong VSE/POWER is cancelled. H t 
| In all other cases, the invalad | 
statement is ignored. | | | 
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Check shared spooling environaent and lock Queue-file 
INPUT PROCESS OUTPUT 














E | 
ein, 
at ie Mainline | 
Generation table | 
| | {07} Vor ify that DASD sharing is supported. | [ 
GNCB ik not cancel initialization | 
} 
| , P z \ PS cea > Device char. 
[eNso wore meenmn + p—~7--> 02] Test if disk device is defined as shared <------~--— _ 
tt 5 Hy device. If not, cancel initialization [ i 
ed | Less ==> - Queue/Data file 7 | $$$ | 
{ $ 1 - Account file (if applicable) } eo i 
. = > Reply area 
DIPPH | : | { | 
| [1 JOFILE ] --------------- : { eae | 
nn | 4 
p----- >fo3] Require confarmation, if cold start was i | 
DTFPH : t requested. | = 
— : | If *¥YES* was entered, cancel | { 
| | IJDPILE i a pe tag H initialization | | 
DTPPA | :fa]--3 04] Lock Q-file. 
, : If an error occurred, cancel 
[IJAPILE } pulahatehateietetenetetaaahen 4 mitialization 
ub | 
| | t 
| IP work area } { | 
(; ane 2 
| | Exit, return to Callereee 
>DTL ; ~->}a ° 
queue file 1 u (ts | 
| | | a | 


<= 
eae eee 


AREA eee Rerene! So oe oe 8 eee 


| 


{ NOTES { MODULE | LABEL { REP rf NOTES } MODULE LABEL {| REF 





! j 
: | 
| 1 The SUBSID macro instruction as {SUBSID 41250 t {| 3 If cold start for queue file | ala } 
issued to cneck if the Supervisor and/or account file was requested, | 
is generated with tne DASD sharing ask operator for confirmation. \ | t 
feature. If not gett t fessage | j 
1 1QB0T SUPENVISOR WITHOUT DASD t { WB2D IS ANY OTHER VSE/PORER if ( if 
f gaaee ne FEATURE re ree ana | i | Ss ated ea to wick Ene operator { | 
VSE/POWER initialization as is sue ope 
tere uated: I must reply "NO* or *YES*. if none | } 
{ of them iS answered, message is t 
| CANCEL SGAM if re-issued. ry 
| When a ped return code has been | SGAM i $e tor replied *1#s* { 
returned, message e era 2 
| AQbS1 TIATERNAL SACRO CALL FAILED, | VSE/POWER As term inated ‘i | | 
VS£/POWER initialization 1s i i j CANCEL | $GAM 
eancevied } | {{ 4 Tne queue file must be acquired LOCK | 
| ; ; for exclusive use by this CPU. | 
2 A GETVCE haat aS issued ae order pops: H Hf phcteeerd gene oF aseuang Pe ee 
o check the device is def ine c s r ueu ale. 
ac Shared } Eros the lock is only received | 
- Queue/Data file and H | wnen the lock is complete or when 
- Account’ tile | | { an error has occurred. in the | { 
| : scan || SASS ESSERE GE 0 caty sarien 
If not, message CANCEL GA q R R A 
| 1OB11 *"eilenake NOT ON SHARED | | | ii Rearran is issued and VSE/POWER | | | 
DEVICE is issued and VSE/PUOYER | anitialization is cancelled. i 
initialization is terminated capes [scan 
when a bad return code has been SGAM 
returned, message | | tf t { 
1Q35I INTERNAL MACRO CALL FAILED, | | 
| RC=rram, is issued and the | | | | 
VSE/POWER anatialization is 
| cancelled | | } { } 
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Queue file 
process.iag 


| 13-1.0| 


Construct DMB 


I13-1te1 


Examine 
type of start 





L3-1.14.1 


CHART I3: 


LPaS SES 


Chart Li3 
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Queue file initialization 
INPUT 


Device . 
characteris 


tics 


(=) 


DTFPH 


[IgQFILE ] 
[a | 


4 


fPeO OP ee epee aren esce se sees eters 


eee we mee 


coed 


Oe 


[=] 


) 


T JI ee 


| Apa R Re 


Ee ee EO a te Ll CE ET SS SS ER ON SE NE NS A A Sr 


INPUT 


A NE OS PTE OT HI AE 


a ee re ee ee 
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Vw ee ene Veen mown Ve 


[2] (2) fe] 


t 
1 


ome \/esmenes enemas \ ome 


-----> 
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>Prorm IP Rootphase | 
[or] Get DTP device-type code and device | ” 
information 
3 
<€ eeessoe D> 
—/ 


SET up DTFPH 
IP-2.1 


A. Save all device 


dependent 
information in DSB 


Reserve storage for queue-file ACB 


Set up sector taple (Queue-file) 





Open queue file 


XTNT-ex it 
| 13-1.2 


B. If OPEN error has occurred, cancel 
initialization 


Ae 





To 13-1.0jece 





If apnormal ware start 

repair broken chains F 
rebuild free-queue-record chain 
rebuild class table 


3 
< eeesee > 
c——-/ 


eee \ omer 


IPWSSBRE 


Recover queue file 
RE-1.0 








[o7} U 


pdate use count 
iJ 


set use count to one if not shared 
spooling 


increase use count by one if shared 
spool ing 


set own SYSID in sysid bucket 
rewrite aaster record if not cold 
start 


PKOCESS 


[3] 


Exit, return to IP kootphase 


[3] 


[owcccee > 
—, / 


Error Exit 





ee 


OUTPUT 





master record 


lolaes | 


rermote tbie 
BRUC 















vs 








Sen DS Cpe A a I AG A ST ge 


OUTPUT 





ad 


eee ee eee ee i een et Sat 


_ 
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Queue file initialization 


[ NOTES { MODULE {| LABEL REP I 





- 





REKEKREKEREKKEKKKEEEH KEKE KE EK EKERE 


The queue file is opened for input 
or output depending on the 
operator*®s specification. All 
relevant fields in the DMB and the 
appropriate #C3 are initialized. 


Por warm start of the gueue file, 
the class table is read from 
master queue record. 


chain and the class chains are 
rebuilt property prior to 
ceconstructing the class table. 


REECE EEK EER EEK ERE KEES KEK EEE 


| 
the 
For abnormal warm Start, the free 
SET UP DIPPH routine returns in | 
register 2 the address of the 
device information area of the | 
corresponding device. | 


All devace-dependent anformation GETVCE 
are saved in the DMB: 
- # of tracks/cylinder 


- # of records/track 


Storage for the queuve-file NCB 1s 
reserved and tne address is stored 
in the CAT. 


If no storage 1s available, 

message 

1003I° INSUFFICIENT REAL/PFIXED { 
STORAGE ALLOCATED 1s issued and 
VSE/POWER anitiation is terainated } 


$RSw 


QFrao $GAM 
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, 


ao 


~ 


NOTES 


When the DASD device SUBPOELS RPS, 
the sector table is bu in the 
extension area or the ACB. 


if an error occurred during OPEN 
processing, the supervisor's | 
cancel exit posts the appropriate 
VSE/POWER task and sets Cancel 
code "US, peasage : 

3023 LTA CANCEL is issued and the 
¥VSE/POWER initialization is 
terminated 


The gueue-file-recovery pe cgran is 
invoked to repair possible broken 
class chains. 

- reset gueue set(s) wnoich are 
marked in execution state 

- kEepair broken class chains 

- delete incoaplete gueue 
set (s) : 

— Duiid free-queue-record chain 
= restruct class table 


Additaonally set sysid in DMB to 

andicate that this systema owns the 

queue file, and rewrite the master 

perors 2f not cold start of queue 
e 
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Construct disk management block (0M3) 








INPUT PROCESS ——_— 
| [202 "secon caller P| 
DTFPH ie ; ; 
Set up record-control fields in DSB | 
[rauPILz ] ~------------- ~ a 
| ne | s 
GNCB | i---~-$foz] If warm start, check for gueue-file 
u— misaatch 
defaults 1 = 
of on aaua A. read master record <—>fa} = device into 
unch vaiue 
Ldepa tered { B. Test version and aodafication level. 
list value | | If ancorrect, cancel initialization <-------- 
[timer value| i of VSE/POWER j | '-—___—_-} Rec ctrl tlds 
imer value 
a, leet OCAW 
Thee >[03[ Set up defaults and standards | = ——_—__—__—— | 
——S oe QCcoQwW t 
eee: | ic => fa] ee | 
| befaults 
> 
{ 


| 


Exit, return to Callereee 


as 

ee ened 
13-1-1-1}] : [s]— 
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The shared-spooling option, if set 
at VSE/POWER poveratsce time, is 
also set in the master queue 
record 


1 When running in /370 gode, the RSALAD 
real address of the master-record 


area and the 
auxiliary-queue-record area are 
optained ahd stored in the DMB 


SED 


moO 


238 In the case of a aismatch, 
issue message 10041 QUEUE PILE 
MISMATCH and terminate 
VSE/POWERK initialization 


QF20 


ee ET ETRE A 


which contains default and | 
standard values, 1s set up. Vaiues t 
are: 

- date and time 

- sublibrary 

~- account option 

- default priority and options 


| 
| 


1 
~| 
| 


| 
| 
| 
| 
| 
| 
| 3 The VSE/POWER communication area, 
| 
| 


~ master list and punch values | 
- timer values | 


| ae enered spooluig options | 
- system 1 | 


ee te ee re oe pe EN SEY ee ae 
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Examine type of start 


INPOT PROCESS OUTPUT 
fo we fo] 
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j 
ee a Caller 








cco >EOU If cold start 
3 — 


| = 


Daa | ea If no shared spooling: 
| [szs-10 | 
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A. If use-count is zero 
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| 
it | a 
| (o3} If sysid is nonzero, save sysad of - - 
system which abnoraally terminated [device info 
I | and indacate abnoraal warm start 7 
SRSY iy a sie ae iS ce —~ 
,{t : | Master record 
Master record : - 
| : fou} Test if this Bl heer abnormally eee 
———— $ terminated last time Class table 
[jclass tablef}{| : ‘ ; . OIE REESE 
———-_—_——| |] Sse A- check if sysid is already in tne reaote tpie 
remote tble] [-------------- ~ bucket of systems, sharing sane ee eee feeoe _—__--_—_—_e—- 
— queue/data and account file. If so, ae | {MRVUC j 
MRUC Save sysid and indacate abnormal =—_ 
warm Start Shrd spool 
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PROCESS OUT PUT 
t | 
| E | 
| el : 
| eee >From [OCS supervisor 
DTFPH ( | Z ; -—--=— NCB 
t ) oteiesieen >for} zf queus file resides on PBA device, | 
[IJQPILE SeaRar Sena Ses 3 build skeleton 4CB for FBA device, 
t A otherwise use MCB for C-K-D device. { 
Reg 1 2 
SE EE | : 
: — ee St ' : 

Extent | t t---~— > 402} Format MCB for queue file | a kame _ th 
inf ormation ! { | | i 
ae ee —. t Extent 

| < eeccoe > Pormat ECB information 
DAB ——/ 
. IP-2.3 } 


ne oo 
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master record 
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remote tble 
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recor 


If FBA 


If CKD devace: a -3 


End of extent-exit processing, issue 
LBRET macro 


Channel 
program 


Locate ctrl | 


up disk address of first queve 


block (for 
PbA only) { 


device: 






set up extent decription block ip 
B 


queue records. If too few blocks 
available in order to initialize and 
have at least one free queue record 
assue the message 10171 


available > th 
{ initialization. 


and cance 


anatialize gaster queue record 


(4 
v 
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| 
calculate total number of usable | 


pes a 
Calculate total numper of queue | 
records 
ener : fucaw 
initialize aaster-record seek 
address 





Return to Locsece]| 
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XTNT-Exit processing (queue file} 

















NOTES } SODULE | LABEL ({ REF NOTES MODULE | LABEL 
13yx00 SA The relative lower and upper 
routine by the open processor limit are calculated and fFroa 
‘ these values the total number 
1 The skeletal queue-file ACu of queue entries is calculated 
(either CKD or FBA versjon}) is and stored into the 
moved to the prior acquired *number ~of ~queue-records* field 
storage area. 


The Storage descriptor of the S Calculation of queue records: 
queue-fale MCB is set up 
for rea device 

- Bigher limit of extent (SPEI), 
mets) lover Limit of extent 
(H#PLO 

nus, master record, 

- minus dumrey record. 


t 
{ 
| | 
! 
| 
: | 
| 
| 
t for C-K-D device i 
- calculate number of tracks for 
lower limit 
| ~ calculate number of tracks for 
: higher liait 
| 
| 
1 | 


3 At fais Pout. cold start of the 
queue file is assuged and the seek 


address of the first queue record 


(free-queue-record pointer) is 


| Control has been passed to this 
1 

| 

| 

| 

| calculatea 


Por PBA device it is *1%, for CKD 
it is the lower-extent-Llinit 
address with record number = z 


Note: the first gueue record is | 


- calculate nuaber of records. 


used for anternal purposes 
The master record, which as longer 


QA The extent Gepcr spt ion block as than a normal queue record, is 
initiated with following placed on the end of the 
tt queue-file extent 


py s2cet starting proce no 
ative endang 2: block no 
- relative endin dock no 

- flays (persit drive) 


Control is returned to the calling 
routine via a LBRET 1 macro 
instruction 


= 
o 


The relative lower and upper 
dimit are calulated and fror 
these values the total number 
of queve entries as calculated, 
the first and dummy and pooter 
record blocks are subtract 

and the result stored into orks 
preybys cf unabte=aueue records 
If queue file too saall, assue 
aesSage: 


412171 QUEUE FILE TOO SAALL 


ah neat ae ee cates Be a2 ge ene een Sas | 
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Data file initialization 
INPUT PROCESS OUTPUT 
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Dab 
fa} -->[01] Data file processing 
| 10-34 pe eee 
> ———_ 
| — ; \{0z] frormat fil ld-start) | | 
: z{|Pormat queue file (cold-star 
[TgDFILE ] —->fa} : i q ( 
| a 14-422 Pa 
ea 
exit, return to IP Rootphaseecee 
re 
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Data file initialization 


INPUT PROCESS OUTPOT 
| | Le | | 
ots, 
| [2-*" From Aainline } | 
DTFPH | { 1 Devace 
i} pfo1} Get DTF device-type code and device | oie __{ information 
fIaDPILE | meres oes prereset t eon n-> information { ~~...» D-file 
| 
f/-—.. |-——-— | 
< eseneey> SET up DTFPH a 
1P-2.1 


Ae Save device information in DMB: 
ry of track s/cylind er 


- PBA ock size 
(0 ces oe 7 
i 


DaB 


IP work area | 
[ >Gene table | 


Ov Oe ccerereeteaere at 


-<—-— 2,02} Calculate DBLK size ing Duaber of 
| records (DBLK} / tr 


__________} {03} Open data file 














DC#B | | A. | XTNT~-ex it i 
———— 14-1.1.1 
pceT 
{ \Dcer | fal = B. If OPEN error occurs, cancel 
H Creer | uu { inatialization 
| 


on the sagwe volume with different 
. mbolic unit nuaber- If so, cancel 
E/POWER initialazation 


A. Check for same numper of data file 
extents 


1 
i} 


| 1 
a — 


wD 
o 
Les] 
ee a ELI EL ENT OE SE ET Se CS A REE SA ec SR SS GG NE GS Sc al Se pe 


= 
| 
| 


B. If shared spooling, check if all 
data-file extents reside on a device 


reaote tble defined as shared 


' 
peeevenaveed 


~~--->| 05] If CKD, 
| set up sector tabie (data file) 


a----------> 


| 
== master record 
& 


{ 
PPO HY NO AE OE OORT Oe PHO OE OO Pe 08 OOF 00 OF Oo Oe FO OF OF HOOF OF DE OF 0888 OTE DERE ES 09 OF OF HO HOOF HOT RL EL OS CLOT ED CO eD eter ener tee 


NE ED OS SED SEO Ce ee ee OD 


NE EI OE RCE Gite OE EERIE ONE OES, 


| [os] Check DBLK size and track group size 


fos} Check if more tnan one extent is defined | 
3 | 
| 
— 
= 


H A. If CKD device and not cold start, 
validate DBLK value. 
If incorrect, cancel initialization 


for} If cold Fralgepal and if data file resides 
wore => on a C-K-D device, foraat data file 
| A. build channel program for entire | 
track, cons et oo7.° of 
write-count~key-Gata-CCW"s (one for 
{ 


eer eee eee ene marae 
| 
| 





every DBLK) 
B. write track 


| Cc. ee Patt all tracks are [r= [ova] 
| 


POOF OO Oe OF Oe OO OF ER Re HEHE BH Te OO GOTT OF OF OO ET OOH DT OF OO FE EEE OE DEED EE Ge He Oe OD OO FH U8 OO ee 00 0828 08 08 09 80 tom 
' 
' 


Calculate track-group/block-group size 
and compare ggaakst Beet scat sok 


foo} If CKD, create track~-group control table | 


Exit, return to Hainlineeee| 

s 

pet 

a 

\"v 


| 
| 
| 
| 
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| 
| 
| 
| 
| 
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Data file initialization 


RKSSESEKEERTSSEARREKESEEKSESESESEKESUES 


The data file as opened for input 
or output depengang on the format 
of the operator's Command. Al 
relevant fields in the DSB and the 
appropriate SCb({s) are 
initialized. 


if the data file resides wm a 
C-K-D device and cold start was 
reyuested, the data file is 
formatted with fixed-leagth | 
records (length=DBLK) containig 
hex zeros. 


If the data file resides on an FBA 
Herice fey no formatting will pe 
one. 


SCKEFEREESKEKAKSEKECKATEKAE ER KE EES 


-_ 


SET up DIFPH routine returns in 
register 2 the address of the 
device-information area of the 
appropriate device and register 1 
contains the default DBLK size 


The DSLK value obtained from the 
Master record or the generation 
table is rounded up to a multiple 
of 32. The numper of blocks/track 
is calculated and saved in the DMB 


N 


ie) 


The data fale is opened by issuing 
the OPENR macro instruction 


w 
Los) 


If an error occurs during OPEN 
processing, the supervisor 
cancel exit posts the 

prope sake SE/POWER task and 
§ Cancel code *U%. Message 
23 LTA CASCEL is issued and. 
the VSE/POWER initialization is 
term inated 


DE ET ETE A OE RE ET Ge OND AEE RS ME ER NC NT GY AOR SR CE NE 


ap 
se 
1 


4 The created MCkhs are checked if 
more than one extent is defined on 
the same voluae. If so the 
syabolic unit numbers must be the 
same. If the extents are on 
different volumes, the logical 
units aust be in ascending 


sequence. Issue rnessage ; 
10191 INVALID EXTENTS IJDFILE and 
cancel VSE/POWER initialization if 


this is not the case. 
4A when warm start of the data 
file is Boprorseds the number 
of data file extents rust be 
the same as at cold-start time. 
If not, message 
10191 INVALID EXTENTS IJDPILE 
‘1s issued and VSE/POWER 
initialization is cancelled 
45 If shared spooling, ail data 
file extents which do not, 
reside on the same volume as 
the first data file extent are 
‘checked to see if they reside 
on the shared disk device. If 
hot, message 
10B4I *filename*® NOT ON SHARED 
DEVICE is issued and the. 
VSE/POWER intialization is 
cancelled 








ree enn ert Soe Et SS Se EY Ono eT: 


GETVCE 


UPENR 


CANCEL 


| 








DPOO 


DFOS 


DF 12 


DF15 


ee Cee SOE Save ee ree ea er 
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SGAS 


SCN 
SGA 


SGAK 


$GAK 


This is done by issuing tne GETVCE 
macro. 


If a bad returncode (»=0} is given 
back wes ane 
1 BSE INTERNAL MACRO CALL PAILED, 


RC=rram is issued and VSE/POWER 
amitialzation is terminated 


If RPS is supported the sector 
table is bu in the 4cB 


If warm start or abnorsal wara 
start, the DSLK value is j 
checked for dec URSRCY > This is 
done by reading count field of 
the first data block and 

cos par 324 it against the DBLK 
value. If it does not match, 


aessage _ 
1Q004I° QUEUE PILE MISMATCH is 
issued and VSE/POWER 
iNitialization is cancelled 


A channel program is built whach 
writes a_ track of records, each 
record (DBLK) bytes long. This 
channel program is assued for each 
greek on all extents of tne data 

e 


Phe number of track groups/block 
gE cups is calculated’ in such a way 
hat maximurz spooling advantage is 
obtained (1-to-1 ratio queue and 
data file if possible). This value 
1s checked against the nuaber of 
pes ceercy ean er of the device and 
the TRACKGP 4 god eaehcoeers oO, 
against the BLOCKGP specification, 
if FBA. Depending on the values 
calculated, one or two of 
following messages might be 
printed: 


10371 UEUE FILE TO SMALL 

100 91 RACK GROUP CHANGED TO on 
La BLOCK GROUP SIZE CHANGED OR 
SET TO non 

ieoct QUEUE FILE TOO LARGE, 
USED=nnnan 

Gate DATA PILE SPECIFICATION 
ERROR 


this value is compared against the 
specification done at the 
VSE/POWER generation time. 


A track-group control table is 
built, one byte per track. The 
byte contains (head address + 1) 

of the corresponding track, or tor 
last-in-track group or 
non-available tracks, x*00°* 


‘oe 1 








ree eee 


SECTVAL |DF18 


BXCR 
CANCEL 
BXcP PDCKD 
| 
| 
ia 
| 
| 
| 
DF76 
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| 
| 
| 
| 
t 
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INPUT PROCESS OUTPUT 
7 
ets 
Jeee >Prom 10CS supervisor | 
DIPPH . “| i 
c---—-2 [01] Check if maximum number of allowed H 
[aaDPILE | ~->(3 $ extents is exceeded. If yes, cancel 
SN eemmened | eed : initialization | 
Reg 1 | : 
| aR RG foal Acquire work space for MCB. (for each 
7 1 : —+4 extent one MCB is built). t 
&>EBxtent | | : I A. If no work space is available, | 
information t : cancel initialization ae { 
| 3 : {3} --> [03] If data-file resides on PBA-device, {—— 
- - t build skeleton ACB for FBA-device, —— tf i 
! A 5 otherwise use SCB for C-K-D device. | { 
| : | [04] If data file resides on CKD device: | 
: Storage 
a | | A- check if extent starts on cylinder <- ~[c} deser. | 
31 boundary. If not, cancel | 
F3 1 initialization | | 
zd] &. check 1f extent size is a multiple <- -{c} | Hi CCB | H 
al Ghatlattgstisate” Tf Mtr cance | | | | 
zie mont ara 
+4 (howe ED C. accumulate total number of cylinders <—{c} It Ii Fageng 1 | 
3 ! and tracks ees Cc Ti {inforaation] i 
Tease Se = t 
| : fo}--$[05] rormat ucB for b-£ile | t} | 
| Hy } cs It [Channea | 
: progras 
Seco ss Se => t———_+ . | hl Uccceceeeseememmmesnemennnnd { 
$ 1 < iene g Format SCB { 
AR DB : aay | IP-2.3 Locate ctrl | 
: oc. or 
| class table : [Pan only) | | 
rerote tble bee ee ee >foe] If data file resides on PBA device: | 
1 shared til | $ _l fextent | 
$$ H A. Set up extent-—djescription block il [block “Eor” 
| | eae oc Or 
fa}<} B. Calculate nuaber of FBA blocks to be LIFBA only) 
read/written for one DBLK Ht 
nee 
|] Build temporary extent-limit table <--[c] | | 
| H | | Extent tapie 
{ foal aN | I } 
O8{ End-of-extent exit processin issue ie! > CE | 
| | i—5 LBRET aacro P as 1 
| Return to [O0CSeee | ECE | 
e nn tell 
| =I | 
« / 
| v | 
NOTES { SODULE | LABEL WOTES {| SQODULE {| LABEL {| REP ' 
Control has been passed to this |I4Dx } CANCEL |} J dGAH i 
routine py the open processor Hi 4c The total numper of cylinders | 
and the total numoer of tracks | H 
1 If more tnan 5 extents are CANCEL SGAM | are calculated 
ecified, nes age : . : | | 
isl roy VaEyPOWER LJDPILE is it 6 ree iive coun stored tne the | 
ssued an read/write = { } 
initialization is terminated | | | : | | | H 
; ; 6A Values initiated are: \ 
2 Storage for the CB is acquired | SRSW ras ph ag fon Srerring preck no [ i | | 
. - ative startin ock no 
If paged work space is available, joAnGee SGAM H - Fplative eng ang Block no | | ‘ i 
et - ags ermit write 
Oar. INSGPPICIENT REAL/PPIX ED 1 i} 9 . : i i 
4 ORAGE ALLOCATED as issued and 65 The nuaber of FPBA blocks H 
| VSE/T OWER nit salizetion Ls i 1 pocepsed BY on one sets DL GCK x8 | | 
cula and is store e 
Otherwise. the address of tne MCB locate CC of the PBA channei 
is stored in the cCaT program | 
3 The skeletal data file McB bal ae | 7 For each extent one entry in the 
CKD or FRA verSion) is aove t | extent limit table is created. An | t 
tie just-acguired storage area. entry contains following j t j 
Tne module index number is updated | anf ormation: I 
and converted into printable | - index to SCB 
format and stored in the storaye - rel. starting block number or | 
descriptor of the MCh j { hai ages ica easee oe { 
| 4 If the lower track number (head | | | | CCHHR for CKI D? 
4s not zero, the extent does no | H | | 
i start on cylinder boundary. If so, 8 Control is passed back to OPEN via |LBRST aes 
J message | | the LBRET 2 macro instruction | 
1Q19I° INVALID orien IJDFILE is H ! 
issued and VSE/PONW | 1 
initialization is tocwinated j | ! ' 
! j t 
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Pormat Queue file 
INPUT PROCESS OOTEUT 
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If no cold start of queue file was [ece”> 09 | 
requested / fal > | } 
Set forward and current queue-record 


pointers 


A. If C-K-D, set up CCW chain and 
initialize count field 


o 
i 


>DTPPH 


{TJQFILE oe 


boon once cece com 


Inatialize queve-file format 


[3] 








A. set up gueue-record area | | be } 
B. check if number of track/block | 
groups is less than aumber of gueue | aux. y-rec. 
records. If so, the nusaper of | | 
track/block groups is used as total f r| 
queue record aurber | et 
: faaster recurd 
foul Update forward pointer i=>fa} 
Somme | | | famoa 
NROQR : 
NOP 


ciass tapie 


| [reaote tole} 


ood 


a ee eee 





Calculate next track/block group value 


mere \/ neem 
o 
wn 


A- assign current track/block group 
pointer to qaeue record 





B. compute next track/block group 
pointer 


Wreate queue record eco 


A. If CKD, update count field and seek 
address for next queve record 





B. if PSA, use forward pointer as new 
queue-record address 


pectcniae ncaa C. check if all queue records are fore’ 
remote tble written, if not / 


class table 


ae 
iu 








| 

| 

| 

=| Update disk address | 
‘ ft IP-2.4 


when all queue records are written, 
write a dimmy queue record 


If CKD, write master record 


Exit, return to Mainlineeee] 
st 
ef 


re EE NS NTE TS SS Sa A RRS NS A EN SAE ORCS SOE Se NTO spn a Sette 
Pe ER CS ES Ee I GE PS BEE IY PN TE EI TO TET EI AER OY SSG I RE CS TE I I EI OA A ce RE EO SE SR SI RS SO EO 


omar cana en cana SPURS a ih “NE EP IPI SGPT: rte gPRSP EE ET NE SS A A eS A I SR 


. 
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Format Queue file 











NUTES { SODULE { LABEL j| REF j NOTES | SODULE | LABEL | KéEF 
SEEEKEESESEREREEACKEEEESEESEESEERESS t t I] 4 Update the queue-file disk address | ' 
; | and deduct One from the number of 
heatGSl Sedge “Ee"pertseweds |  the"salue is zeror “the forward” | 
u a sta i ° e value is zero, e forward 
{ {t pointer is set to zero. | i 
H HREREED ERASERS EE ERE EER ER REESE ER ESE | } { t | H 
| ; | { { S All track/olock groups are t 
11 zee cord prone ce saoue fale was I4FQ | ano eeaensy sae sie poi fhe onaee | | 
juested, 2 1N which 1s is done is D akin 
| ; 5 track/block groups in tach’ from | { | 
2 if FBA device, address 2nd jueue t 1} each of the data file extents, if | 1 
| record and initialize forward | | | i gore than one extent is specified. 
pointer { fhe tae tery Porat ing £9 the | | 
; . . nex rac oc roup in e 
{ The first gueuve record is used for | | t 1 extent, 1S calculated and saved in | | | 
j internal purposes only | i the Toepor ary extent-liait tabie. 
7 : when an exteht is exhausted, its 
2A A CCW chain is set up, temporary extent-limit-taple entry 
qonaaerans of: Pee omacaa with x*PE® in its first | | 
~- see Co 
- TIC or Set sector if { | J : ey! . i" ss | } 
applicaple 6 The forward pointer is inserted in }|#xCP i SulQ 
- Write count the "next record in set® field. 
- Write data Then the queue record is written 
to address the first queue 
{ record to be wratten. Z eres pte | 
XC wPC 
} 3 Set queue record to hex zeros and iy 
undicate tree queue record. | 
{ Process all track/block groups and } | 
set last to x*00*. t t { 
| Check if total number of queue | 
cecords is acceptable. If not, set 1 { 
it to the value of track/plock 
groups. | | 
b I 
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CHART 15:  IPw$$1I5 





IPWSSL5 
Acct file 
| ean 


15-1.0 


| 
ee 


XTNT-exit Pormat ACB | 


Processing 


I5-1.21 I5-1.2 
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Account tile initialazation 
Input PROCESS OUT PUT 


[fo eee een ag eg ee ca a aa a a 


UH 


| 
! 
° { | 
e ., 
eee >From IP Rootphase | 
- —/ 
IP work area cr . : bevice 
a SENG | fa}--> O1{ Get DIF device-type code and device _— __i iantormataon 
[ | information | "> a-file 
>OTFPH | <=, > /-—— . | 
<U eeccee > SET up DTFPH 
{LgaPiLz } —~->[A —_/ |e - 
________3 t uo | Ip-2.1 





block (ACB) - 


A. If no storage 1s available, cancel | 


1[02| keserve work space for account control | 
anatialization 

{ 

| 


To 15-1.0f eee” 
/ 











° ee ae | Ce ee 
Bb. Save address ot ACB in CAT =>4Cc l| serene tf 
anforeation 


fa] -->[o3] Open account file 


bor 


l 
| 
| 
Bsus 3 Diy] 
| 
| 
| 


PPO ED Oh He OF Od eee Oe oe 0F 98 On Or Be ee He es OE OE OD OF Oe Fe my 


US 
Channei 
prograra 








B. If OPEN error occurs, cancel 


| 
l 
| 
a} -- in at ialization 
: 
| 
| 
| 
| 


Locate ctrl 
|picck coor 
FRA only) 


caine 4 
{gree} 

description | 
er (for | 


To 15-1.0fece” 


PBA oniy) 











: 
| — 


a re neers ee a er ee Sette th a SS US ea Ce SS ce EP ERS PT PP 
cd 
Cs 
Ll 
Lat 





ee RS NS TE SS A EL SS HN NE ST 


— 





i NOTES | S4ODULE } LABEL j REF I NOTES { SODULE | LABEL 


REP 
| 1 The SET up DTFPPH routine returns 


KEKERESESERERKEEKEKSEKKEAKEEEKESERAERES 
7 an register 2 the address of the 
The account file is opened for device information area. 
input or gurput depending on the 

format specification done oy the 
operator. Ail relevant fields :a 
the DSB and the ACB are 


The device information 1s saved in | 
core for later usage. 
CANCEL 





initialized. 2 Storage for the account control SRSwW 
block” (ACB) is reserved. 
If_a cola start was requested, an oe 
EOF record is written On each The address of the ACs is saved ain APOO 3GAM 
track of the account file wnen a the CAT. If not enough work space 
C-K-D device iS used. When an PBA 1S available, message 
device is used, an EOF CI biock is 19031 INSUFPICIENT REAL/PFIXED 
written on the rircst PBA block. STORAGE ALLOCATED is issued and 
VSE/POWER initialization as 
terminated 
account record is located and its 
disk address is saved in the ACB 3 ; OPENR 
and DMB respectively. 3 If an error occurs during OPEN CANCEL 3CAN 


The residual file Lepacity is 


processing, the supervisor cancel 
calculated. 


exit poets the app roprzete 
VSE/POWER task and sets cancel 
code "US, fesse 1Q23 LIA CANCEL 
4S issued and the vVSE/POWEK 


SERRATE EEKEKERKEEREE ASHER EAE EE 


initialization is terminated 


| | 
| | 
| | 
| | 


eS SE PS RR ee Se SO pe cee oat 


en er ee ht ree cr ee SE ee 
ee re Oe re ee EE ET EEEE SEED PAN SE SE NT cee SES NS Se 


! 
| 
If warm start, the last-written 
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Account file initialization 
INPUT PROCESS OUTPUT 





Fg EG EE SS a ES SN 


| 
IP work area | 
IN, | 
1 
OVEPPH —-—_ we eee nee ee ee 


[IJAPILE | 
[ eae» 


----->}]06} If account file resides on a CKD device: 


wooo > Ae If cold start, erase account file | 
| 


tL 


| <Jacaeee'>| IPHSSGA 

c—na/ —— 
| 

| 


B. Otherwise locate EUP record | 


/—— ... 
< eecosee > LPwSSRY 
_/ 





account file recovery 
BY~1.0 





cs} 
C. If shared spool ings update DMB coe >| 038 | 
with account-file values: oy 


-address of last-written 
account record 3 
~cesidual account-file capacity 
-free space in current track 


en a ae Se 


aa | 
meee” Via If account file resides an a FBA device: 





POD OH Oe COD OR HE Oe He OD OP HD Oe BD OE OF On Or Od OF Oe OO Os OO O8 OF ED OF Be omy 


u 


A. If cold start, erase account feoe >fo8 H 


file. i, 
-Write EOP CI as first CI on sh 


account file 








B. Otherwise locate £OF CI and 
reposition ‘ 


——! 


af elasa ss IPWSSRY 
sh I 
jcecoune file recowery 
ud 


RY~1.0} 


account-file values: | 

- address of last-written CI block 
- cesidual account-file Capacity. 

- free space in current CI bloc 


i 
fost | 
[a 

Exit, ceturn to IP Rootphaseeee 


pet 
tyr 


Error Bxit 
I11-4.0 


| C. If shared spooling, update DMB with 


ee ES EE ES YE, EE Se EE SC Ef a EE EE TE A AA SS HN REN ce 
ESE OS RT EE TT ST STE SS I A OT SO NT SO Se EE PET A ee SERS pa Sr = ED SACS er Ee 





NOTZS { MODULE | LASEL | REF If NOTES 4 SODULE | LABEL | REP 


i > 
| OA If thas account file was t | 7A When cold start is requested, {EXcPe t {duPC 
| cold-started (PHOP byte an } | 

DTPPd set to x #80"), the. 

account file is erased and an 

BOF record is written as the 

first record on each track. 


’ 
an EOP record is written as | 
first record on the file. 


| 
| | 






ere ree ene ene anm 
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XTNI-Exit processing (account-file) 
Input PRUCESS QUT PUT 


ee ee 


| 
| 


REG 1 eo} | ACB 
ots,] d c 
2 ER eee >From I0CS supervisor 
J 7 Storage 
bL>rxtent _ . desc. 
aatormation _p for] Save low / high extent iimits and a | 
cy rts sya@poLic unit nuaber in ACB 
[ ee 


{02} Set £XCP real flag in ACB CCB, when 
account file resides on C-K-D device 








{03} End of extent exit processing, issue 
‘ LBRET Racro 








OP eee rene ee cere ee erent ane OF ee ee ee ee 
| | 
-_ __ ee 


a Scat ang ES Ge Se A RY SR 
Ee ET TE ES OE SS CS ey Ty TP ane Ge SA Sa 


| 

| | ACHI 
Return to Tocseee] 

| ibe, 

| | 

| 









———_____ 
NUTES | MODULE {| LABEL {| REP NOTES {| MODULE | LABEL | KEP 4} 
Control has been passed tv this I5ax 3 Control is returned to the caliing {LBRES 
routine py the open processor routine via a LBKET 1 macro 
instruction 1 


{ | i | t 
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Inpur PROCESS vuuT bur 
f tt—~—~iY fe hae a ee 
| . | 
eu “} ; 
foes Prom Mainline 
; —/ 
IP work area cc , ACb 
So 777s }O1, Convert device address into preanteoie Sn 
I : rouse and store in storage descriptor | 
H ° (Stora e | 
LsprePH s > descr> 1 
: . [ ae | 
{TdaPiLz | ere creer owen on 2<=-+= 210z{ If PsA devace [eco >[00 | iH 
ts 3 | —,/ tr 
Device : (| } 2 ae 
information = : fa} --> Save device information: = 
A~tile “> Bd st ~ maxagua Capacity Bxtent anto 
Se | 3 - # of tracks/cylinder 
i ; - PUB/DTF device type ACLO 
: | a4 ¥ ACH 
: foul Build channel program in ACB and —>fc] 
7 i relocate addresses i ; 
3 Devace into 
: A. If RPS, the cnannel program is | 
bo---- > extended by: [a}<-— AcaT 
~ read sector | ————-—— 
- read data ACLC 


an eet ent a ce te ee a a A tt ee trent mt er et cuit ete — eA ee A | 
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——, 


c c 
a ~ 





--> 


09 


0 


(2) [3] 


[Z] 


12 


[:] 


- read count 
ACPB 


ACvT 


| 
| 
| 


idee AeA 


oe 


Calculate maxigua account-file capacity | 


ES, 





A. Calculate 20 % empty limit of 
available account-file capacity Channed 


progras 


| 





Build channel program an ACB and Locate ctrl 














relocate addresses ey { Dp~">}foLock (for 
| | uu | [Poa only) j 
<-—-|A 
—! —_— 
Acyguire GETVIS storaye (4K) for Save/Put { = extent 
acCount function. )Dg__ >} [descr aptacn 
t uu block (tor 
; . PBa only) 
Save devace information: or 
- FBA blocksize ” = ; 
- PUB/DTF device type Capacity 
; ; = >) pacac 
Set up extent descriptor block ana > P} aa 
locate control word — acac 
ete oe 
Calculate maximua account-file capacity | Current addr 
‘ | facsa 
A. Calculate 20 4 empty laimat of <--fa] u—_______4 
available account-file capacity | 
Cneck PBA block size and calculate | 
length of buffer 
A. Calculate number of PBA blocks for | | 
CI puffer | 
B. Check if account file is large <—fa] 


enough that at least two CIs fit 
into it. 


Brit, return to Sainlineeee 
es 

=3] 

-/ 
| v 


Se NONI ET PENIS PC TT SE MY ST OS SS ROS A OE TI NS I SS EY NE CNG SUT CRP TST EOC SN IME GO GE 
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Format ACB 
a a a a CERO | 
NOTES | SODULE } LABEL { REF NOTES { MODULE | LABEL | REP 








1 The ACB storage descciptor is 
imitaalized and set in the ACB. 


ACUO 7 #=The first « of the area is used GETVIS $GAMS 
py the put Sicoodne function to 
hold a copy of the last used cI in 


1 ba EXTRACT macro is issued to get EXTRACT core, 
the PUB entry that is associated 
with the logical unit SYS000. The 
device addréss is converted into 


! 

| aie 2nd part of the area is used 
| pe intanie format and stored in the 

I 


rf save account as input ea 
- ene wna ees request failed 


om, 
a ge Se a RR oT mere RLS SO 





- WRITE COUNT, KZY, DATA 


5 Tne maximua file seh eee as 
Calcuiatea. This value 18 stored 
as poth maximum und residual 
Capacity in the ACS. The 20% empty 
Limit of the available account 


iozer *GETVIS AREA TOO SMALL is 
issue 
If a bad retarn econe (~=0} 1s SGAM : : ? . 
qives back age 8 FBA device information is saved in 
55I THTERNAL Aa RO CALL FAILED, the ACB: : 
RC=rram is issued and VSE/POWER 1s - block siye 
cancelled. - PUB device-type code 
All devace-dependent informat ion 
is saved in the ACB; 9 The extent-description block as 
= maxiaua track Capacit iitiated with foliowing values: 
- y “physical starting plock number 
- number of tracks sak cylinder -relative starting plock number 
- PUB device-ty ype =0 
- DIFPH device= ype pow -relative ending plock number 
-flags (permit writes) 
4 The write/read cnaiae. pr ares un 
tne ACB is set up. 
purpose Si cCa pagrescee are calculated. Thais value is stored 
relocated as both maximum and residual 
£ RPS is icUpper tes (DTFPH switch Capacity in the ACB. The 20% empty 
| byte set to *4O* the channel Limit of the available account 
rogram is up hated: oO include a file is then calculated from thas 
BT SECTOR and READY SBCfOR CCH. value and stored in the ACB 
The channel program consists of 
- SE 11. The bDlocksize for the account file 
- Tic + 8 or SET SECTOR as set to 2043 vytes. This value 
- SEARCH 1s then stored in the read/write 
- TIC -3 CCé# of the channel progras. 
! 


TA The numper of FA Dlocks used 
to contain one CI buffer is 
calculated. 





This is done by dividiny the Cl 
procs size (2088 bytes) py the FBA 
block size and counding up to the 
next integer. 


tile is then calculated from thas 
vaiue and stored in tne ACB. 


If the account file is not large 
enough to contain at least < cls, 
qoopr IJAFILE TOO SMALL, KEQUIKED 
HLOCKS=xxx is issued and Paes POWER 
initialization is terainate 


the ACs is set up. For tnis 
purpose the CCW aduaresses are 
relocated. 


Tne channel foun consists ot 
~ DEFINS EX 
- LOCATE 


SGA 
- READ/WRITZ 


| 
| 
| 
| 
| 
| 
! 


re re a nn a re a ee A EE SS 


i 
| 
: 
: 


| 
| 
| 
10 The maxinum file Capac ivy is | 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| 
| 
| 
| 
| 
| 


ee rte I ee EE A Se SE rn SS Re TS SE AI LS SRG SOE NET Sa 


A ES TI EES TEES ET IR OSES OE OE SS A A EA TR ET 


{ 
| 6 The write/read chanhel program in 
i 
| 


7 
= 
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CHART I7;  L£PwS$S$17 
IPN$S17 . 
Pinal Initi- 
alization 
I7-1.0 
t I 
| ora 
Update master Wrate Systea Autostart 
ie | Up Record 
wel 17-122 I7-1.3 
ae | 
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IPpassI7 - Final [Initialization 
INPUT PROCESS OUTPUT 


te | | 


oretk 
line Prom IP Rootphase 
—/ 


Mo] 
« 
° 
tal 
tan 
oY] 
be] 
rc) 
a 


&>DTFPH  caaecintaaed >fOU) Lf warm start, prant status report 


IJQPILE fo weer rere rte aid 
f/—. 
< minty Print Status keport 
| IP-2.2 


| (oa (apace master record | 
and set up timer task 


a i a en en oe 











I7-1.1 
fal--> O3[ If RJ#,BSC is supported, set up Line Line manager 
Generation taple cs | Manager TCB (RJE,3SC) >: ; = __| TcB 
ee0ooe - activate channei-end-appendage __> 
GNCB routine f | 
- reserve storage for Line Manager TCs 
H I ~ initialize Line Sanager TCB 
PI GNNL - attach Line Manager t 





->fal 








GNES 
[cxen | ae eee eee ee foul If NOTIFY Messaye Function is supported, Notaty 

i uu eis __! processor TCb 
cc eeoe —- reserve space for Notify [Cb ae 
LEGNNR tit - initialize Notify TCS iNTPY | 
prea ae (ateateatesetastnnateaatnoen 4 - attach notify processor task 
| Tewsp | | .==— foo] If RJE,SNA is sap porter set up SNA SNCB 
j -———________4 | --------- 2 : control plock (RJB,SNA) _ __ | _.-<—————— 
arn : ACs 


- initialize SN 


PIRI e ISIE TE) 


> 
| 
| - reserve eronade for sSNA control block 
l 





3 3 Ir ; a ele 
:fat-->[06 It RJEZ (either BSC or SNA) Te paRporteds (—_--_____._ 
: : | build remote message control bloc 
: i-----> ~ reserve storaye for ASCB SSCB 
: | - aMitaalize asCB | n _t -—_—, 
: H Recuaiceaese ee erey daa | j 
i----------->]07] Initialize spool sanager H | 
us nn | 


g 
~- reserve storage fur spool-manager 
task 


- initialize spool-manager TCB 


Fe manager 
- attach spool-manager task B 








vs] [arate System Up Record 





aa ah 

ee | EERO 
| 17-122 
[ee a a eS 

[v9] fautostare processing 

| ee 
| I7-1.3] 
[ee | 


Weoite initiation-coapleted aescage. 


V1{ Activate page-tault appendage 


| 
| 

ws -_ 
| 
| 


[=] [) 


Exit, ceturn to IP Rootphasecee 
yas 


Be 


fens See soe A pater meg al 


i a a A ES I SE SE TS a NERY 


ee 


. 


a ee a peg a RS RP cS OS 
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NOTsS { MODULE | LABEL [{ REF I NOTES | MODULE | LABSL f{ REP 
1 Tne Status ravers is only printed | i i The logon/logoff GETVIS area, prekerae | { 
roy 

















(SNCS) is reserved 
41 Tne page-fault-a Beugage ; SETPPA 
progres as activated by issuing 

he SETPPA macro instruction. 

Prom now on VSE/POWER handles ail 


page fault which occur. 


If no Sr okede as available gaessaye 
1Q03I INSUFFICIENT REAL/PFIXED 
STORAGE ALLOCATED is issued and 
the VSE/POWER initialization is 
terminated. 


$GAS 
Tne address of the SNCB is saved 
in the CAT and the SNC8 as 
initialized: . 

- storage descriptor 

- address of SUCB space 

- address of compactiun taple 
pool 

- max. numbers of SuU®s 

- address KMCB 

- address of logon space 

- AC» image 


I 
Nr 
| when a warm start is performed anda i which was acquired Beer s0Ge1y by t 
wien Stel s! 2S assigned to a valid IeW$SI1, is release | { 
fcinter device 
| 2 Storage for the remote saessage PN5O {Suse 
3 The epanpel endvappensage coutine SETAPP PN2ZO conteet block is Eopereods If no { { 
is activate Storage is available, message 
| ; rhtiey ae INSUFPFICLENT haaL7PFix ep I | 
Storaye Sor pe apace auegce task PN30 SRSw proteee REE NEED Aa a ooees and } | 
is reserved. ho storage is e imatialization as 
| avallable ert a | {| tereinetot. | 
| $808acu"ALLocaTeD 1s °seacd and {| Scan 
38 Le TeD 1s issued an ; 
} the VSE/POWER initialization is 7 If spool management was requested PNov 
terminated. via tee OpEo8 in the POWskR 
eneration sacro he in-core 
' | | SGAM Zeader and the spool/command task 
The task control block (TCB) is | | peer [ are initialized 
initialized and the line- manayer 
| task is attached | | | Storage for the spool-manager task f SHSw 
; : is reServed. If no storage is 
| After attacning the line-sanager sTxit { available asee29e : 
task, it is set inactive and tne 190031 INSUFPICLENT REAL/PPIXED 
| tamer intervali routine is STORAGE ALLOCATED is issued and 
activated. ne Vee Oeee unitialazation is 
erminated. 
| 4 GN#M in POWER/VSE& generation taple SRS Pi te, et 
Contains the Max number of { The TCB is initiated with 
messages tor Notify message queue. following values: 
{ 
This fiaeld is initiated at I - descriptor : i 
| Coe uebGEon caraaecoe ue eae when { = Toh addccsn address 
ne NT G parameter has been - TCB address 
| generated. E | | ceccrec of cross-partition 
s 
Storage 1s reserved for toe Notif 
processor TCB and the TC3 as x | Pinally the task is attacned | SaTT 
initialized. The yotey processor 
task is then attached by means of | 3) ; an ae t Fu7vu 
| the IPWSATT-macro instruction. 9 The autostart routine is invoked, | PN7U 
| ; ! { unless termination is requested by | 
! If we did not get workspace for {FN35S SATT one of thevSE/POWER features. ! 
H the TCB we do an error report and | 
the initialization is Cancelled. 40 sessage: t FNGU $uTu 
| | 1Q211° VSB/POWER INITIATION LS 
| 5 Storaye for the SNA control piock ares SRSW CUS PLETED 
| | | 
| : | 
| 
| | | 
| | t 
| 
| | | 
| H j 


SR en mR cer A a eS AR fo UN on PES ES AER OP vm YER I Gy At A SS A A ES i EE 


ee cr cere re ee ee ee ee ee cr ee res eee Ge ET Se ee eR Gee Ce Dr eg 


| 
| 
| 


Oe re EE EEE NE EY SS GR SS A eS YEE SA 
OS A TS Se CS PE IE EE EL ES GS SS FAO NN OO EH 
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Update master-record and set up Timer task 
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1 
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H 
H 
1 
J 
‘ 
i 
1 
( 
' 
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INPUT PROCESS OUTPUT 
io oo 
| DAB | e| 
et 

| device info { j2h- From Caller device info 

[pcot at eee | be ‘4 es i} {ocur H 
| locas Ht f [03] ind toate taht thie’ systes eon an icdden ————, | { DC#B } 
| ban | : | owns the gueue file ayo Teena 
| locen Hi : [oz] Re-write master record ay | : lDeen 
| > sata | ere | 03} If no snared spooling [r==°3 [oe] | i | ——— sande | 
t aux. Q-rec. : | | | aux. Q-rec. | 
de | ee mags lee eer Gir | cere, | ee 
| : : amitialization —_________5 i 

master record : : ; master record | 
| as) : : Set up Timer task Ht | Po a | 
| | \wRon | : ? | A- reserve storaye for Timer task. If paras | | NHOR | | 

3 3 ho storage is available, cancel 
| | Ror | : z initialization | | SROF | 
{ {jciass taple Hi : 2 H Be. imatialaze Timer task TCB | | | Weise eaplelt | 
| lI : : | C. attach Timec task | | | 1} |Zemore tble | | 
| ee | eo || 
| | : JO} Allow operator coamands | | it 
: | Exit, return to Callereee} | | 
pst | 
k iP work area : : | 
greene : | 

| ce : 
| Q-t ile ‘ ae if 
| i | | 
j t J 
| 





| 


{ NOTES | MODULE | LABEL j REF a NOTES | SODULE {| LABEL | KEP I 








| 
Z ; ; } PNOO $aTQ i} 5 Storage for the Timer task is {PN 24 {SRSa t 
4 The queue file is uniocked to eas reserved. If no storage is ‘ 
allow otnec CPUs to access the avallable meesage } 
| queue file BQO3t INSUPPICIENT REAL/PFIX 2D } t 
: STORAGE ALLOCATED is issued and z 
{ lf a pad return code (7=0) 15 3SGAMN | the VSE/POWER initialization is 
| qaven pack, reaerte terminated. 
BSI INFERNAL MACRO CALL PAILED, 
RC=rrmm 1s issued and the 3GAM 
VSE/POWER initialization is The task control block (TCB) is $aTT 
terminated. anitialized and the Timer task is 
. attached 
{ 5 Set up task id, task-save-area : : 
adaress, module-entry-point 6 The command-processor task is set 
address inactive, so that from now on 
operator commands can be entered | 
fe ee | 
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Write System Up Record 
INPUT 


of 


ACB 
foa dev.info 
| fapacr | 


APDTF 


ACLO | --------- 
jACHI 


| 
jac | 





COMM. 
MAJA 


area 


i) 
' 
! 
' 
' 
00 pene Ob as enon eeenere 








beer eseens cece sees es sem 




















--> A 
[ nn Se i a | 
extent info | 
[McLo i-->fal 
| Erma | ea 
piekes | 

f-->jA 








re ee a re ee ee re re RS Re TE en EC OE TE EI TE GS GS NN NY TN A CY PG ES wate ty tes SEERA PAE cares oy St Sy ce SP mime SE NA A a SU 


a 


=< 
c 
S] 
is) 
uw 
=x 
o 
o 
c 
6 
ts 
c 
tod 
w 
ri 
e 
po 
te 
m9 
| 


eS A ee | one 


42 It no storage available followin 
Msg.will be’ issued 
1QA6I NO STORAGE AVAILA@LE FUR 


nnannn. 


Por each defined extent, a MCB 1 
created and to be scanned tu 
accumulate the # of tracks for 
Data Pile. The # ot t 
is aold an MR#E Field in 


Partation Id 
PIB. 
Record Id is 


- 


DM 
retrieved from t 
v. 


3. 
OA 





Extents-MCB®s 


PROCESS 





1 
i) 
' 
t 
' 


a 


g 


s 


ne 


| 
| 
| 
! 


Ho 


Vv 





Caller 


If no accounting supported 


Reserve virtual Storage 


Gather Account Pile Informations: 


- # of Blocks if on PBA Device 
- # of tracks af on CKD Device 


Gather Queue File informations: 


- # of Blocks if on PBA Device 
- # of tracks if on CKD Device. 


Gathec Data File Informations: 
- # of Blocks if on PBA Device 


- # of tracks and Extents if on 
CKD Device. 


Gather other Iatormations. 





Ae Gather Partitiou Information and 
Record Id. 

B. 

Cc. Get Level Liutormations,Record Date 
and Time 


arate account Record and release 
Workspace. 


exit, 


6B 
| 
} 


Size. 


Gather Partition Size Informations. - 
| 
| 
| 
| 
| 


return to Callereee 





<GNPG> - <GNPB> #1 = Partition 


' 

| Level Id retrieved from Section 
i Descriptor. 

f Version/Mod.Level and Record 
Date from D&B. 


i 
Tine info via IPR$RDC. 


7 The Plag which disallows Put 
Account during Initialization 1s 
set off before and set on again 
after the Macro call. 








OUTPUT 
08 | 
| 
j 
H Sys.Up Rec. 
| fale into 
ene ee PWRATRHK 
! 














storage into 


SUNT 





1h en 


PWRGETSZ 
PWRRELSZ 
PWRPART 
= WRFLAG 
|PwRIDEN 





ius 
{| 





T clamukantcoiedalantneemnadthenah ampaueneaeemietinened 


| 
Tl 
| 


Vv aa. Vo Ve Ven 


ee ee ee ne ge eS NR Sar NS aS Se 


° 
ot 


37 
v 








a ee Ee Se ES Se SS ES CO Sp ARE SE A SS SE A A Se Ge A a 


4 


i NOTES } MODULE LABEL REP 


<GNFX> * 1024 = Real Part.Size. 
<GNPG> - <GNPE> = 


Getvas Size. 





! 
| 
! 
| 
| 
| 
| 


Chart I? 


: 


suv | 
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Autostart processing 
INPUT PROCESS OUTPUT 


' I 
[:t| 
eee >Froa Caller 


wooo-3 [0] If no autostart is requested [ore [07 |] 





1/0 AREA ween eee ee 


Cee eee 





[o2} rite Pa 19201 AUTOSTART IN 
u—) PROGRE 


mae ee eee ceme \,/ ames 


{o3] Open the interface to the logical reader 





pos} Read Autostart card (3) from SYSIPT file 
and pass thea to logical reader 


stateaent 


foo} Close interface to logical reader 


PEt OE ve cn oe 06 00 oe OF Oe Bk OO Re 9009 OF 00 Oe 00 08 Cerner Oem 








! 
enaaer 105 At end of file (EUF), wrate a ** $$ EOJ?® 
| 





CAT 
SS 
| | ° -----} [07] Unassign systea logical units 
| nn | : 
a | eee ae ; 
| fost If no AUTOSTART statements have been tobe [43 | 
i processed i | 
| : ; a __! T/O0 Akba 
[ost Open interface to logical writer 2 — 
a H 


i 3[70} Read back all autostart staterents 














| | | 
| lay 
Se EVE LE the AUTOSTART statement dust read © >[10 
—+ is no PSTART nor PACT command cy, 
| t 
«| 
A. issue command and wait for eee 211 i 
reactivation ees eas 


B. Get next Autostart statement 


The interface to the logacal writer is 
closed 





ee Oe ere ye RS ce ce Nc Re te oe 
- ~ 
ae wN 


re ct ere rr ce tn ae a te re RS ee I ED SS EE SSE SE gE SPUED-Ee es aT Sena SED? Sp SFE 
ee pen Se SE ee ee ee eS CO ee HSE CON mS SE SE ME EE aS EE 

















unassigned. 
- SYSRDR 

- SYSIPT 
- SYSPCH 

~ SYSLST 


9 Tne interface to the logacal 
writer is opened in order to read 
back ail AUTOSTART statements 


cosuand processor control plock 
CPB). in all other cases a 





umagy cecord, ara ere | 
anvaiid record, 1s moved in the 
CPB input area. 

Then the temporary Command 
processor is poste 


1 
Exit, return to Callereee 
e 
pret 
- / 
| v 
ci renee 
NOTES | MODULE | LABEL { REF NOTES } BODULE | LABEL {[ wwotes  § MODULE | LABEL | REF | REF 
1 If the card input area is empty, ASOO j 10 All autostart statezents are read i SGLR 
no (more) autostart processing is back 
required and control’ is passed to 
unassigD logical units | 11 06«dIf a PAGE comoand at is a PSTART aS20 
or a command a temporar 
2 Print M&SSAGE: SGAS command pace ewor is attached aad 
the PSTART command bypassed to the 
| WQ20I AUTOSTART IN PROGRESS { command processor. 
| 3 Taree rece ash areas cine reader | SOLI TVA Issue coarmand SwFrc 
is set up and ano 
statenen is wratten onto rik VIA ee auEoererr Bre veneer aces 
not resu in e reques or 
% All Autostart _cards are read from GET SPLE reactivation of the dommand 
the SYSIPT tile and passed to tne processor (this is the case 
! £9 ical reader py means of the | i } H when a partition is started, 
| SPLR macro. ery £ Sore Gucscte to 
a e xt a a 
5 When end of file iS occurred, a } f isPir Statesgent 
** $$ £OJ* statement is written to | 2 
io Fes tones red a null record to 113 abe nest autostart statement is $GLR 
| indicate end of input rea 
If an _ot the statements 
| o The SYSIPf file is cs hpaerecg eee ah CLOSER } SOLI | RBADER=, PRINTER= or PUNCHES= 
logical reader interface is ciosed are found and they contain 
valid specification, these 
7 ‘The systea logical unats are fa statements are moved into the 
| ! Pot 
| a | | | | 
| | | | | 
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CHART LR: SPWESLR 


ee ee ee ee ee i aa | 
| LPWSS$LR - VSE/POWER Logical Reader j 
t+ —————H4 
} Labet { Routine j 
}-—_____+_— —_——— 
} CCOO } Continuation Check Routine | 
| EDOO } £OF/EOJ Routine exit } 
| EJOO ‘| bnd of Job Routine t 
{ FQ0U |) format Queue Recora \ 
| INJH | Insert Job Header Record | 
} LNDJ-INDH| Insert Data Set Header Recora i 
} ind? } tosert Job Traiier Record h 
| JCOO | JCL Mode initalization j 
| JEOO | JECL Mode intiaiization 
} JHOU {| JzCL Statement Routine h 
| LROV 1 Entry Processing 1 
j mcood } JECL or JCL Mode check j 
} aSOu | wessage Koutine ! 
} ocodu | Command code checking t 
} RDOO {| 3540 physical reader 14inkage setup processing h 
| UsOu | User Exit Routine | 
1 wGOOU | Write Logical Record to disk Routine, get next record Y 
eh. eteeeeieineotiineietantimnall 
F oe aan Sear aaa | 

1 


} Services Used 


a eee 
} Service | Macro 


| 
a am I ER. oR aa RC ECE | 
} Task Management {| LPwsweec | 
Se 
| Resource Management | LTePRSRLE | 
\ } LPWSRSR i 
Sep aa amare eee aie ema atoncuan | 
| storage Management | IPWSRLW | 
\ ) LPWSRSW \ 
} } LPwSRLV I 
! } IPWSRSV \ 
SO nT ct errant 
| Message Service } IPwSGaM 1 
i } IPwskRmsS \ 
} } Lewswro ! 
+ + HH 
| Timer Service { LPwSRDC | 
}———— tH 
| Save/kestore Caller } ITPWSsav } 
) Registers | LPwWSRET ! 
a nr a a a ca a a ce 


| interfaces used i 
--—_—_—_—_ eer eC OR OOOO nd 
| module | Macro i 
$$ tH 
| Physicai Reader [/0 } IPWSGLR 
} 3540 Physicai 1/0 } LeWSGLR 
[a 
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ae ee ee a ee eg Ee OE ee ge ee ee ey ee ee 
} functions used 1 


(- ? 


4 module | Macro } 
————__--_-___t 8 OO 0 nl 
} LPWSSAO } ITewsaQs j 
} CPWS$DQ { IPwsDus | 
{ LPWSSFQ | LewsFPros " 
} [PWSSPa/PF } ITPWSPAR } 
| IPWSS$PD | LPWSPDOR bi 
1 LPWSSRQO } LTewskRQS | 
} IPWSSSC {| LewssRI j 


i ne nett tirana 





r 
| Called py b 
$4 
| Module + Description 


SS ee ee 


{ LPWSSBR | RJE,BSC Reader Routine 1 
1 LEWSSER | 3540 Diskette Reader \ 
| LPWSSLB } RJE,SNA Lnbound Processor i 
| LPWS$SL7 | VSE/POWER Initialization j 
| IPWSSPR } Physicai Reader ] 
} IPWSSPS } Print StatusRoutine 1 
} LPWSSSA/SF | Save accountRoutine | 
1 \ 

\ 


} LPWSSSM Spool Manager (X-pactition interface) 
} LTPWSSSY } Tape Reader | 


| 
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j Labels 
j 


}Chart LR: IPWSS$LR - Logical Reader 


{The first 16 bytes constitute tne 
}section descriptor: 

1 

}*LRCS release 

1 

{On entry, the following register 
fcontents are relevant: 

bh 


4} 0: address of record to be nandied 


} 3: Length of record to be handled 
$20: address of permanent area 
$71: address of reader cB 


— oe we we oe ew ae ew ae 


}13: address of reader task save area} 
$274: address of entry point taken at j 


first entry 
15: address of logical reader. 


Function Entry 


}\fhis entry point is taken when a 
}physical reader issues its first 
{LeWSeLR call to the logical reader. 
t 

|Register Y 1S Set up as Logical 
jceader base register. 


jRecord address is saved in register 
jo. 
b 


t 


ee eee eee ee ee 


tRecord length 1s Saved in register %/.| 


\ 


}If unit exception is detected (record 


jLength zero) a branch 1S made to 


\ 


}cetucn to the phySical reader...... >| £D2U 


! 

JOtherwise, the forms Switch 1S 
janitialized. 

| 

|LDA (Logical Data Area) space 1s 
}reserved for the put data record 
jfunction; tne storage is obtained 
ifcom the fixable area. 

\ 

}Reait and virtual address ot buffer 
{Space are stored in the CB. 

! 


}4£ a user exit routine 1s available, 


ja dink is Mad: C « ‘cee 00s 60's ew 6.0.00 60 6.0/6'@ 
\ 

{Branch to the mode check routine to 
janaiyze the first card...--.2..200> 
1 

iformat Queue Record 

iSave register 1 (pointing to JECL 
joperand) an register 38 and 
jindicate start of jop in the TCB. 

\ 

jIf no queue space iS aVaitaple yet, 
}Dcancn CO 0's 0'e0'6 S026 6.6 66.60 0 0' 6:0 es e068 6 © 
i 

|Otherwise, clear the queue recora 
joody field. 








? 


> 


> 


0800 


aCOO 


FYU2 


eee eee eee a ee ee 


j}modified Data 
jfirelds 


[IPwsbPa 
jaPwsvote 


LWfS (LP WSuTC) 


£Cuva (LPwSDIC) 


TCJB (LP WSyLC) 


URBF (LPWSDUR) 


—_— oe ee eee i oe oe ee ee ei ee 


| Reg. jcalis 
iUsage | 


cc 


on 


mJ} 


APWORK 


Chart LR 


ow 
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—_— er se oe oe ol 


a eee a a ee Pe Te ep EE peri, ee ba a eS SE ee ede gt gee Bite er ee EE a SPM gar Ne ea? Sree ee 7 
|Labels jCnart LR: IPW$$S$LR - Logical Reader \Modified vata jReg. jCails b 
1. ) | ¥leLlas iSsage | i 
[Str te Ser eT aT eK Rr eS ear Seer Ses Sa aaa aa aa a i a at Sa eae ee ee ae eee b 
1FQO2 {fhe first queue record is read in | | t {LewSROS | 
| }tnrough an IPWSRQYS call. Tne queue | \ i i } 
\ {space is addressed through register | | i i ! 
1 15. 1 | iR5 1 bh 
| ’ | | b i 1 
i ithe data address 1s optained tron \ | i i 1 
' !gqueue space and moved to the TCB. | |LCDwW(LewsDIC) j | i 
) 1 ' i i \ ] 
} fhe queue record is initialized. 1 | ! i " 
| ‘ | | ' | \ 
} Register 31S set up to address the | | 1R3 | \ 
1 (DMB. t | j i ’ 
1 | 1 \ ! \ ! 
1 {Standard start up date is moved trom | }URVY (ivwSvOR) 1 1 i 
| 1OuB to queue record. } | } |. i 
| ] 1 \ } | 1 
l iSser intorcmation field is blanked i {URUI(PPWSyYR) i j ] 
\ jout.e b 1 b \ ) 
1 1 ' | i) \ l 
\ jbefauit job name 1S moved rrom DMB toj IQRNM (LPWS DUR) i i t 
j Iqueue record. ) ! j \ Y 
1 \ b 1 1 ! i 
| {Reader queue record is indicated. ) JURYL(LPwSvUR) t i 1 
1 | 1 \ \ 1 1 
} jpwefauit cancel code is moved trom DmBj UREN (LPWSDYR) } i | 
1 {to queue record. t j ) h 
1 i 1 1 1 1 4 
| |Pevice type 1S moved from TCB to { JUROT (AP RSD K) N } ! 
i {queue record. ) | \ i i 
! \ | i i \ i 
| \Device unit number is moved from cB | JURCU (4PWHDYR) " ' t 
\ {to queue cecord. | | i | i 
1 \ | \ 1 | 1 
j j|Remote TO ID is moved from the £cB t jWREIT (LewsOuK) ! t j 
| jxkemote FROM Iv 1S moved from the CB } IWRedT (LPWSyV R) ‘ j j 
1 \ 1 1 ! 1 b 
} {Default class is moved from TCB to ' {WRCL (LP RSD K) ' | i 
t jqueue record. | \ i i i 
1 | 1 | i 1 i 
} )Defauit priority 1S moved from DMB to| JUREY (LEWSDYR) ) ) } 
| iqueue record. 1 i i i 1 
1 \ 1 \ | 1 4 
j }Numbec of copies 1S set to one. ) JWURNC (LP WS DY KR) h ' | 
1 kL 1 | i l ‘ 
] jDefaurt forms number 1s set. j (WREI(LeWSDUR) ! t 1 
\ 1 \ 1 i ] 1 
j Default disposition is set (D).- | JURDP (LPWSDUK) j \ t 
\ ' 1 \ \ 1 1 
} jvuefauit origin and target node | IQVRIN (LPWSyUR) i i | 
jnames are moved from the DMB } {QRON (LPWSDUR) j i j 
) ! 1 | 1 \ l 
| it the current job, allocated on the | | LWER(LeWSvrcC) i i 1 
t Igueue file, is not to be piaced in | | i j i 
| jtne nold state, DOAaNCh tOcceeceeoee P| FYUD | j i i 
1 ' \ \ 1 1 | 
\ sOtherwise, set the current jop in the} }VRDP (LP wdsDyVK) | j { 
} bhold state. Y | | | } 
Ma wee ee ee ae ee ee we ee a we ee wn we oe ww ww ow ee we ow ww we we wre ow ee ww ow oe me ee ee ee ee oe ee ae oe ee ee a ee ee we ee oe em mY 
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c 
}Labels 


oe ee ae we 


{Chart LR: IPWS$S$LR - Logical Reader 
j 


{fhe DmB is reserved for the duration 
yor the update of the jop number in 
jthe master record. 

! 

jfhe job number is updated: 

i 

{fhe current job number 1s loaded 
j{cregister 1 from the DMB. 

jine current job number is stored 
{the yueue record. 

| 

{Tne job number iS incremented by 
jand stored in the master record. 
11£ >32707 then set to one. 

ifne DuB is released again if not 
jSsave Account task. 

! 

jim a X-partition request not active, 


an 


in 


one 


_—es a © oe SB ew ww ew ww wee ieee ei i 


POLCANCN coc ccc ccsaccecvensacesccanveces PFI 
! 

Move password into queue record. 

jImove joo numper trom gueue recora to 
}SeL. 

i 

{Reserve storage for the job header 
seecocd and anchor it in tne TCB. 
jinitialize the following default jop 
jneader record fields:- 

1° job number 

i* jop copy count to one 

te jop flags to "don*t recompute pri." 
je origin node system gquaiifier to 1 

je the origin, exec, print, puncn node 
1 Names to the syStem name 

' 

\ 

}* jop time 

' 

,if the jop 1S being read froma 
jcemote terminal, then Set 

i® ocigin remote, print cemote, puncn 4 
jcemote, and queue record origin user | 
jMames to the remid in the form *knnn*j 
I ' 
jif 1t as an SNA remote terminal.... >| FURY 


| b 
If PxeaT LSTROUT and/oc PUNROUL are ) 


ispecified for this remid, then i 
jconvert the value to *Rnnn*® and Save j 

jit in the job headec. Branch....e2. PPFYUIZ 
| 1 

jff SNA 1S hot Supported, pbranch....->jFyiz 
1 \ 

jit PRAT LSTROUT and/or PUNROUT are } 
tspecified for tnis remid, then t 
jconvert the value to *Rnnn* and save j 

jit in the job header. Branch....222.- >} FulzZ 
1 

pif xX-partition request, the PUTSPUOL | 
}OSERID 1s moved to the job header t 
jcecord. h 

! 1 

! 1 
}Registec 11s restored and a return 4} 
$2S made to caller via register 4. j 


jMOoaitied Data 
jFields 


JURNO (LPWSDUR) 
JURY # (LPWSDUR) 
| 
i 
|MRNO(LPwsSuuC) 
| 


IQRPW(LPWSDUK) 
ISPJN(S¥L) 
\ 

| 

J ICSE (LeWSDTC) 
\ 

\ 

i 

INJHGIJLD 
INJnoGJCRY 
INJHGF LG 1 
|NJHGORGY 
|NJHGURGN 
[NJHGXEON 
JNJIHGPRIN 
|NJAGPUNN 
|NJHGELS 

i 

{| NJAGX EVO 
| NJHGURGR 
[NJ HGPRER 
|NJHGPUNR 
}VWROV 

\ 

i 

\ 
[NIHGPRIR 
{|NJHGPUNR 
| 


! 
\ 
! 
1 
JNJAGLKRTR 
[NJIeGPUNK 
I 


| 
! 
{|NJHGORGR 
[NJAGXEYU 
INJHGPRER 
|NJHGPUNR 


Lo 
-_ 
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_ 
jLabpels jCnart LR: IPWSSLR - Logical Reader |Modified Data iReg. {Calls ) 
} j jFrelds Usage 4 | 
j ee oe oe oe oe oe ae ee ee we oe oe oe a eee ee we ewe ae we ow ee oe ee ww we ww ew ew we we ee wwe oe eee we eee ww we wee ww oF ee ae ee ate oe eee ae om oe ee oe mee { 
{Mode Check Routine 
‘ JECL, Part 1 
) 
}Ihe incoming data record 1s examined 
jand processed according to the 
}conditions detected. 
1 
McOO {A possiple end of data record ID 1s 
jreset. 
\ | 
iIf JECL EOJ has been read, ignore and] 
iget next record. Link tO cecewoecccee eo Af WG3U 
fatter return, LOOp back... ea ceeee - > SMCVO 
1 4 
MCO2 pit tne termination switcn in the TCB | 
jandicates a stop condition, exit is | 
jmade to taSk SeleCtlion..cwccceeceeee PL BS4D 
| t 
{A possibile flush condition 1S reset. } 
1 i 
{ihe data record is now checked for | 
jvarious conditions, and if the record| 
{1S not a JECL Statement, branch to t 
jCcheck for JC MODOC < 6 ce 6 6:66 S016, oa eee ee > }MC1O 





TCGL (LEWSUEC) 


re ae SF Se = 


LCTT (LPWSDLC) 


}I£ RJE,SNA inbound processor, set ' CCU (LP WS DIL) 
janput to upper case. 1 
\ t 

mco5 }If no JECL operation code is found, 4 


jocanch to check for JC mode........ >|MCW 

\ 1 

}if tne operation code is JOB, brancn | 

jto handie a JOB Statement...cc.ee-- AIMC2ZO 

\ 1 

}It tne operation code is CIL, brancn | 

jto handle a CTL statement.......2.- >|MC30O 

1 | 

)If the operation code is RDR, brancn |} 
}to nandle a RVR statement... e0e- DHPMLCYV 
\ 1 

mc10 jA link is made to reserve queue and | 
}jonp neader recocd space.....-. eee eee >| PUUDO 
}Branch to check the statement in JC | 
bMOdE PLOCESSLING> enc ceca cccaccceseerfJCVUU 


CCT SE Sw Se SS SS ee ee ee a 
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|Lapels  jChart LR: IPWSSLR - Logical Readec 
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}* * * * $5 JOB Processing * * * * ¥| 
jfhe JOB operation code LD in the fCB 4 
{2s set and JECL mode is indicated. } 
' 

{The branch index used in the 
{Statement scan 1S set for job name, 
tand a link 1s made to reserve queue 


jand job header record space.......-. >};FYUU 


_— ow ow FE Oo 


}On rceturn, a link is made to handle jj 


. {the JOB StateMenC. we wcccccccccsaccce >{ JnHO0 


i 1 
}Link to update tne default jop } 
jheager with the * $$ JOB intormation,| 
jthen write the header to the data t 
PELL] wa cccncacacnccccacacsccesn eocoe ALINIH 
i 1 
{Link to test and insert a possipie 1 
jdata set neader cCeCOrd...cceee eee e PHPLINDI 
! 1 
}Link to Skip the spooling of the * $$] 
4JOB statement and read next Card... >}WG3U 
i i 
{Brancn to handle the next record ...>jJnUd 
1 \ 

* * * * $$ CTL Processing * * * * ¥*j 
{fne CLL operation code ID in the TCB | 

tis set. | 

i } 
jfne parameter form Switch in the £CB | 

jas set to keyword form, and a link 1s} 
jmade to handle the CTL statement... >jJnV0 
{A link 1S made to Skip spooling and | 

Jto get a NEW LECOLd ceceeccweccecae PAPWGIU 
{Branch to check what type of input i 
jmode 1S to he applliedecccwcccececee >IMCVD 
' 1 

\* * * * $$ RDR Processing * * * * ¥*j 
}Ine return address 1s set in register} 

14 which can pe used by the next j 
}sSubroutine in case the RDR Statement | 

$2s not allowed and a mode check must } 

jbe performed on the next card 
jobtained from the physical reader. 
b 

$A lank 1s made to handle the RDR i 
PSTATSCMENC cee ewccnevecccceccceveccces APUHU0 
fhe ceturn address to the mode check | 
jroutine 1S again set 1n register 4 1n]| 
tcase the Linkage to the diskette i 
jreadec cannot be set and a mode cneck]| 
bmust pe performed on the next card i 
fobtained from the phySicai reader. i 

}If tne processing mode specified in } 
jthe RDR statement 1S not data mode, | 
foranch to set a Linkage with the | 
bphysical 3540 diskette reader...... >| RDUU 
}Otherwise, reset the data mode switch 

fin tne TCB and branch to isSue an } 
jerroc message and read tne next i 
(CALE 6 sos Sb cece bee ee ews wae Cees eece, OP EHOE 
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| LWUC(IPWSDTC) 
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jLabels |Chart LR: IPWS$$LR - Logical Reader |Modified Data }Reg. jCalls 
\ jflelds jUsage } 


j;JECL Mode Routine ) ] 
| JECL, Part 2 j j 
t | { 
{A link is made to write the record to} | 
jthe data file and optain the next t i 
LL@COLd ecw cece enw emcee ccccaceweccccs PIWG ID ] 
1 | | 
{On return, a link is made to check ! i 
{the operation Code.cccsecscccacceee >JOCOO | 
\ j i 
}On return, the operation code routine} ! 
joranches into a branch taple starting} | 
jat the return point, and then ' | 
jbranches to the appropriate routine, | | 
icontrolled by tne return code, which | | 
}is passed by the operation code ) 1 
jroutine. t | 
\ 1 i 
} if return code = UV, branch to handle | 1 
tdata record... cw cc ncemeacccceccccee AITEVO j 
4 1 \ 
yI£f return code = 4, branch to nandle } | 
P®S&*® CONGLTLON ec we cccccerccaccccccee AISEZ0 i 
1 1 | 
If ceturn code = 8, brancn to handle | { 
b*//S JOB® CONdLTION. cece cccccccccee AITEZO \ 
! 1 | 
If retucn code = 12, branch to handle| | 
PUECL BOD. cece cnc cwcccancgeecccccccn PLWGUD } 
1 1 | 
yIf retucn code = 146, branch to handle} | 
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{JECL JOB before JECL EOJ. @eeeeeeaee#*seess 2)Je40 
1 iY 
pif return code = 20, branch to handle} 
tJeCL CTL statement. eee@ea2eeeeaeesemeaeeeees > ,SEDV 
1 ' 
{If tne return code is 24, branch to j 
jhandle a JECL RDR statement..ceceee >| TEOU 
1 1 
je * * * // JOB Processing * * * * ¥| 
{ff no fiush condition is present, a | 
pDranch is made to treat the current | 
jrecord as Oat Add Seis S es os OSS Sc eels ee >| JeEVO 
1 1 
pif no DOS/VSE flush condition | 
present, DLANCHecceeccccecccvcccece AISHEUV 
1 | 
jIf tne current statement 1S a /& i 
jstatement, a branch is made to reset | 
jthe flush CONGICTLONeacccccceracecoe PIUKLD 
\ \ 
\* * * Insert /& tor EOJ eK eK KH F| 
}KRecord pointers register 6 and | 
jcegister 7 are saved, “Inserted | 
jxecord* is indicated, and register o | 
jand cegister 7 are set up to point toj 
ja */e&* record. h 
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USCC(LPwSDIC) Ro,R7 


1 
Je25 jfhe flush condition 1S reset, anda | TCLT (LewsDrCc) 
}bcanch 1s made back to treat the | 
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jcecord as GA CA c:0: 6c. 6 0.066 cle ciel aeoe-ews > 
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I 1 jfrelds iUsage 4 


b*JECL*¥ * * * $5 JOB(Unexpected) * * *j | 
JE4O {This routine handles unexpected JECL | | 
}JOB statement. j | 
sIindicate joo boundary and unexpected 4 |icuB 
1* $5 JOB. } | LWUJ 
{Set return code to mode check j ( 
jLink to set EOD and write tne job | j 
(thal Ler R6CORG se wieecciicctus ocedene 2 pPINIT i 
I | \ 
PBLANChH cc cece acc cccccnccnscscacceoee DEWGDD | 
1 \ 
{*JECL¥ * * * $$ CTL * * RK KR <r j 
JE50 |Ihis routine initiates CIL statement |} i 
jprocessing. A link 1s made to handiej 1 
fthe CIL StateMent. nce ccccce wececeoeer>f JHUV 1 
}On return, a link 1s made to get the | i 
INEXT LTECOLd. cccccacccccccccecace cease >| WGSU | 
{A Branch iS made to process the new | | 
PLOCOLG oan meee cmon ccccccesenvcccescvert{JEUS i 
ameteass * $5 RDR ee ee 
JEOO {fhe return address 1s Set in register} | 
14, wnich can be used Dy the next | | 
{Subroutine in case the RDR statement | | 
jas not allowed in the input strean | | 
jand a link is made to handle the RDk j | 
PSTATEMCNE soe ae bd ce ee sa ae Bee's Ss eee SHUO 1 
{On return, the return address is set |} \ 
jagain in register 4 and a branch is |} \ 
jmade to setup the linkage with the " | 
$3540 diskette routine... ....sceece eee >| RVUV i 
| ' \ 
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} } DOS/Job Control Mode Routine: i 

j i Part 1 t 

1 tfhis coutine examines tne first j 

| jstatement of the job being processed.j| 

| 1 1 
}JCOO0 jit the current statement 1S nota // j 

} jstatement, pranch to set detault job | 

} PNAMC. . cee eee cncccccsacccasacacecace PLICLO 
| ,. i 

|} JCO5 iff RJE,SNA ianbound processor, Set } 

| jinput to upper case. } 

1 } | 

| If no JCL operation code is found, ‘ 

i ,orancn to set default job name..... >yIECLU 
} ;if the JCL operation code 1s not JOb,} 

) jpranch to set default jop name... >}JSCZLVU 
j }Othecwise, if no jop name 1s founda, 4 

) PDDANCH oe cece cecccccccccccccccesccs PIICZU 
| 1 | 

} {fnis coutine is entered if the first 
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; LewssnJ 
{statement is a // JOB statement. it 
{sets Switches: 

1 - jobcard jLWOC (IPpwWsDIC) 
| LWBI(LPwsoTC) 
{| Lwel2 (fePwShOTr) 
\ 


] 
\ 
1 
h 
| - jopnane } 
1 - DOS job card 4 
jand Links to IPWS$SC.. \ 
JLPWSHSC validates the jobname and h 
moves it to the. queue record fieid. | 
jUn return from [PwS$SC, a check 18S ) 
jmade whether user information is j 
javailiable. i 
jif so, sixteen pytes of uSer inftor- j 
{mation are moved to the gueue record | 
}space. j 
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{passed, the record reguest word as j 
}set up with a dummy /& record anda { 
;Orcancn is made CO oiee e's bb 6 eases oe eae > EWGU2 


a 
}Lapels jChart LR: IPWS$LR - Logical Reader j{mModified Data jReg. JCalls j 
} h jFrelds jUsage j 
(SA ee a sR eee Rae gee tt a Se ae er eg a eae sn RS eer ee ee era gs | 
1JC20 jLink to update the job neader record } i j ] i 
j jwith the information from the // JOB | | i | i 
] |Statement and write the job header } | 1 j 
i brecord tO SpOOl....cccncccccccceeee ALIN | i | j 
! i ! \ i | ] 
j jLink to test and insert a possible \ | t i i 
j jdata Set neader recorcdececacccncesee AJINDI ! i | ! 
1 ' | 1 ) | | 
} Reset switches j | LWPS i j " 
j }Branch to write the /f JOB statement 4JC30 | 1 i j 
\ 1 1 ! ' \ 1 
} 1* * ypOS/JOB Control, Part 2 * * * * | { t | " 
1Jc30 {A Link 1S made to write the record to} | {R4& j j 
) {the data file and read the next one >| WG10 ! | i i 
i | \ | ] | A 
}JC35 ja link 1S made to scan the operation | | {R4 i 4 
| }code of the next FeCOLCdaccoeccccese APOCUU ! 1 | t 
| 1 h \ i \ 1 
| jOn return, the operation code scan ' | i } } 
| {coutine provides a prancn index into |} ] j i t 
1 ja branch tapile Located at the return j | i i i 
| }point, used to branch to the Y | | j i 
} JAappropriate coutine: ' ! 1 ) ‘ 
| \ b | t | | 
j 1 Os branch to handie data record.. >{;JC30 1 | j j 
} 4 4: =oranch to nandle /& ' | } | t 
] ' StateMentencccccccececcecceace AEWGUU | j i j 
) ! 8: oranch to handle unexpected t | i i i 
j ] // JOB StateMeNnte neccccecccee se PPICHU } i | j 
| $32: branch to handle JECL EOJ } | i i " 
h \ Statement eccccccwccecevreaceace AISCIU i i i | 
1 }t6: branch to handle JECL JOB t. i j j ) 
j t StTatementenccceasccccacceccene APICHVU | 1 | j 
j {20: branch to handle JECL CTL j i i i 
1 1 Statementsis.6d essed sven vcacs >) JCDO \ 1 | i 
} 124: pranch to handle JECL RDR j | i | i 
} 1 Statement eaccccccccccenecceaee FPICIV | j | i 
| h, i] 1 \ I ] 
} 1*JCL* * * $$ JOB(Unexpected) * * * ¥| | j j 1 
,JC4O {Record pointer registers 0 and 7 are j 1 {RO,R1 | i 
) $}set to point to the EOJ cecord to be 4 1 j | i 
j janserted. A /& record 1s spooled j | i jfewsSPDR | 
| fdirectly. Brancn to insert ¥*$$BO0U.. >}WG4d | i i | 
1 i 4 | 4 i 1 
| \*JCL¥* * * $$ EOJ * * * * © * KOK OY j \ | i 
1JCc50 if reading from a 3540 diskette, | | j | j 
i jbrcanch to check for a forced £E£0J } | | j | 
j PSTATSMENT coe ececnecancacsecccescesecce P4AIJCIDI i i j 
h ’ j \ i ! 1 
) jif not reading from an SNA wock 1 | i i i 
j {Station, pranch to nandie an j t | i 
j junexpected JECL EOJ statement from i ) j i | 
' Jthe Card readerececccencencccccrece AJICIS { f i " 
i b 1 } ) 1 i 
pJCc5s3 }If a forced 3540 EOJ statement 1s | JLCCC(LPWSDLC) }RVU,RI | 1 
{ i ! 1 ( 
j i i i \ 
] ! | j 
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iCharct LR: IPWS$LR - Logical Reader 
\ 


jJAn anexpected JECL EOJ statement 1s | 
yinvaiidated py overwriting a $ sign jf 
{With an asterisk. A branch iS made | 
jto write the record to the data " 
PEL LCS ca sie Scie soe ee 0 5 Sew Wee ces.cc ees cece OP} dE30 
ee * -* $$ CTL * * © © * * & K * 
j}Tfae CTL statement detected 1s handledj 
fthrough a link... ecw ce cece cr cceee >PTHUD 
\ | 
4On return, a link is made to Skip tnej 
jcecord and to read the next. ...... >jWG3U 
b ! 
JA pranch is made to scan the new } 
PLECOLd caccveccceccanncacesevenscesesn AEUCID 
nace * * $$ RDR * Ke RK KE KK K K 
ifne ceturn address 1S set in rcegisterj 
}4, Which can be used by the next i 
ySubroutine in case the RUR statement | 
{2s not allowed in the input stream, j 
jand a link is made to handle the RDr | 
\STATCHORE becd ete wes sew see wec se ved ee > | URU0 
! ! 
jfne ceturn address 1s again set in j 
jcegister 4, and a pranch 1s made to | 
jset a high level iinkage with the 1 
}354U diskette ToOUtiNe... cece weer ce ne} RDUU 
i. * * ek KK K KK HK KK KR KK OK OK OF 
iSperation Code Check Routine: Part 1 j 
tinis routine Scans an input record j 
jand checks for JECL and JCL. A i 
{*Normal Record* indication is made inj 
{the TCB. i 
| |. 
lf tne indicator to insect data Set | 
jheader record 1s on, then reset and | 
jiank to do the insertion ...--..2--- D> INDH 
| } 
jIt the tarst character j 
{compares higher than */*, and can j 
{therefore not be the first Character } 
of a delimiter statement (JECL or JCL} 
{statement}, brancn bDack to cailer.. >j (R4) 
pif tne tirst chacacter is a '/*, 4 
Jocanch to test for JICLewcaccacceeee 2JOCIU 
I 1 
jOtherwise, 1f the record 1S a JECi j 
jSstatement, indicate JECL mode, and j 
POCVaANChH CO ChE CKwcecsccecscccacccceces PEOCDU 
i i 
yff neither JCL noc JECL statement, h 
pcetucn to Callera..cncencacccacecee >| (4) 
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Part 2 i 
jit "s** statement, branch to indicate} 
{data DOLCAK ace ecerneveceseaecosvevceccece >4,;OCZYU 
L \ 
{if Statement is a /& statement, i 
poOrancn tO Caller... ccuccccccccscccce >} (KR) +4 
i} ' 
jOtherwise, if not a // Statement, j 
freturn to CalleL..ccccccccceccccccee Ph (K4) 
1 j 
,fit no text following //f is round, j 
jreturn to Cal LOL 6 6vie kee de bo 6 646 oe eee ai (R4) 
\ \ 
j)Lf RJE,SNA inbound processor, set t 
}input to upper case. } 
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i | {frelas Osage | 


\ 
oct5 iif a // EXEC statement, indicate data} 
| DCA Ks: si5 e660 6.606.068 6)00' 01006506 we wee'8e 7jOC2VU 
1 ' 
jtf a // JOB statement, return to } 
PCA LLOE Sic e:6!6 6S wisieee 6.620506 ese bee ele Sia e e's >} (K4) +38 
' t 
{Othecwise, return to the cailer.... >| (R4) 
s I 
oc20 }A data preak is indicated, and i 
{control is returned to the caller... >| (R4) 
1 i 
0c50 }If no JECL operation code is round, | 
LCETUCN enc cen er ccc ecceccccccnccccocce 7\ «(R4) 
' 
1*JECL Mode * * * * * * * ¥ *% *¥ HF K K | 
{If RJE,SNA inbound processor, set ‘ 
jinput to upper case. 
t 
ocs5 }if JECL EOJ statement, return...... > 
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{JOB Statement 
before £OJ statement, return....... 
b 
{if tne current job nas a flush 
}condition, POTCULD és 60's a 66 bb 0 a 036 
1 
jif tne current Statement 1s a CIL 
ystatement, pranch to process it.... > 
I 
tilt the statement 1S a ROR Statement, | 
PCSTUCN TO CHECK ALeccecccccccacecce Af (K4) +24 
I \ 
jUtherwise, return to write and get i 
TNE NEXT CECOLTA. cc cceaenesnccesecesne AER4 
t 1 

OLC60 fine CLL operation code iD | }LWOC(LewspoTtCc) 
las set in the TCB, the torm Switch | jLwFS (TPwhorc) 
}1S set to *Keyword*, return to | i 
PCA LLCE eins ee Sisteieseie.0%s oe bie so: 6 6: oe s\0,6 >) (x4) #20 | 
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jLapels j,Chart Lk: IPWSSLR - Logical Reader }Moaified Data jReg. jealis 
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RDVO jif tne 3540 diskette is in data mode 
}then indicate that a data set header 
jrecord must be inserted. 
' 
{fhe anterface to the physical 
jdiskette reader (IPwWSSER) is opened: 
\ ; 
1A Physical save area 1S reserved ror 
jthe pnysical diskette routine, which 
jis obtained to save the cegisters 
jused by the diskette routine. 
ifne new physical save area is 
finitiralized as follows: 
1 
j* The address of the TCB is stored 
to define the owner. 
The address of the logical save 
acea is stored to define the high 
devel interface between {PWSSLR 
and [PWSSER. 
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diskette reader. 

fhe entry address of the physical 
diskette reader. 

Tne address of the physicai work 

Space. 
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\ 
jfne address of the new pnysSical save 
jarea 1S saved in the logical save 
jarea. 

\ 
{A pranch 1s made to get the next 

jrecord from the pnysicai 3540 

Idiskette deViCe. -cec cs cccnceccaccee APWGSU 
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Job termination time 1S obtained SPWSHRDC 
{through an LPWSRDC call. 
' 
{Job termination time is stored in thnej 
Iqueue record. according to t 
}conditions detected, a pranch 1S madej 
jto the appropriate routine to i 
}continue EOJ processing: t 
{ft no flush condition, ) 
joranch to add gueue record j 
{to queue file... ccccacncccccccessne A{EJ3U 
i ; ' 
JOtherwise, the flush condition is i 
jceset. If VSE job flusn condition \ 
twas detected branch to add queue... >} EUS 
! ] 
jit unit exception flush of POWEK jop | JURCN 
AtTNEN ODTaANCHecececccccccccccsccccecee AJEU IV ! 
sUtherwise set cancel code to normal 4 1WRCN 
jfLusn condition } ik 
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fLapels jChart LR: IPW$S$LR - Logical Reader iModaried vata jReg. jCalis 
| \ | Fleias jUsage | 
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}£J130 jWrite an account record. 
' i 
}foe queue record 1s deleted from the 4 
jclass queue using IPWSDyS call. Thej| 
jqueue record is added to tree set | 
jusing an IPW$FQS call. | 
' b 
{4 branch iS made to indicate complete} 
iqueue set. @e5oeee«ecseeseeesee#eee5us8eeseeseeen ee >, EU 40 
\ i 
EJ30 jSet tne cancel code to normal. 
}fhe queue record 1s added to the 
iqueue file using an IPWSAyYS cali. 
\ 
fhe account record address is loaded 
janto cegister 1. 
| 
{The account record length (58 bytes) 
{is loaded in register 0. 
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jan LPWSPAR call is issued to add the 
Jaccount record to the account file. 
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{Lf dynamic diskette proceSS..ceeeee ApEIH2 
jif not primary diskette process or if} 
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thigh Level pwS, Dranch to continue..>j BJ45 
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Ed42 jUnassghn pub request 1S Set up. the } 
jworkspace for the low level pws wili } 
joe celLeased and the nigh level pws I 
jaddressed in the TCB. In case of \ 
{dynamic diskette process, the pointer 
jin the TCB will pe set to zero. j 
: y i 
EJ44 fit “Stop at EOJ* was not indicated, {| 
joranch to CONTANURSC one asnecvscanacsccncea >| BJ D0 
1 i 
EJ45 {If Ait 1S an CJS TaASK.. cee wees eeeeee PALEY) 
i i 
jUtherwise check if aouble buffering j 
pit hot Sieve e6see6 e6,'o eels a eee Salevia 6 eereiece >| bua? 
i 1 
{Address first buffer and if active. >»>{EJ4o 
jOtherwise the active one. j 


LpPwo0 iP 
SewsR uw 


LCs 


- eS eS Sew ew we ee oe eS ew we ee ew ow ce ome ii eee eee 
— = oe ae ee ee ee ee see Oe oe eee ee oe oe oe ie ee ee eee ee ee ee 


Chart LR 285 


be ow me ow we oe ee ee oe ee eee oe ee See 


coc ee ee ee te ee ee ee ee ee ee ee ee a i ae ee a i a i ee i ee a a a a a a ee ae ee ee a ee 3 
| 


Labels 


G 
u 
Cc 


te 
o 
oO 
cS 


i) 
cS 
o 
2 


EDO? 


pew wr wm wm wm em we ww ew ww eww eee wee ew wee we eee ese wen eee ee eee eee 


236 


jwait for completion, move selection | 
tfiela and go to task selection. i 
1 1 
jRegister Y 1S Set up aS task j 
{terminator base register, and a ‘ 
}ocanch is made to the task | 
PCSTRINATOL sie ec Se ees cane Meee eee S| 
\ i] 
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i 
ja possinple end of data record I[D is 


ireset. 


jit next record not availaple, branch | 
PTO me ew were renee ern en eccereccercccanecaacce >| SDUS 
i i 
{If this is the start of an unexpected) 
jnew job, reset unexpected job t 
jiandicator and return to caller i 
i 1 
}Otherwise, check for uSer exit ] 
jcCoutine Dy DLANCNING COccecewcceeeee AIUHKVV 
\ 1 
)ZOF/HOT Exit j 
\ 1 
}This coutine is entered in case of j 
junit exception. On unexpected sOF ' 
1} (EO# before EQJ) the data piock 1s i 
jweitten to the data file to make | 
jcelease or work Space possible, work | 
ispace is then released and control 1SsSj| 
}passed back to the physical reader. | 
jOn anterrupt by the applicaple reader} 
jdevice, the physical reader will pass} 
}contcol back and work space is } 
jceserved again. | 
I 1 
{On unexpected EOF, £OB 15 indicated, |} 
jand a data plock 1S written. | 
! 1 
,it the reader taSk naS been Started |} 
{with a 3540 diskette reader (altern. | 
{diskette process, LWER=X*O7" + X*UZ")4 
jtnere is a dormant linkage witha t 
jcard reader, and a oranchn iS made to |} 
jreset the Linkage. eee @ee@ee34«#eeeu2e7_eeee2se))sn >| EDOY 
\ \ 
jif tne reader task has not been j 
started for a 3540 diskette reader i 
jonly, (primary diskette process, | 
,LWER=4*°O8* + X*02"), branch to check j| 
jtor dynamic diskette procesSsS....... >{HvVI 
\ \ 
JOthecwise cneck if a high Level pws } 
}2S pcesent. If not, pranch to release} 
| the oD Biss. 60a ce wie e066 ele. 66%e. 6:0) ble wale ee >|£D10 
\ ! 
jSetup “unassgn pubp* request, release } 
{the workspace for the low level pws, | 
paddcess the nigh level pws in TCB aud} 
} branch to continue.. eeecsenceccccceveFZ i KVDUY 
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jit at as not dynamic diskette process} 
) (LWER=x*80" + X*OZ*), pranch...-2e-2- P>JEDIV 
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1 | . jflelds iSsage | 

£DO9 iff 3540 in data mode, then indicate |} juCe3 (LIPWSDEC) 
jinsert data Set header record. i \ 
i \ \ 
{fhe 3540 communication switch 1S i {LWER (LPWHUTL) 
} reset. } 
' h 
ikegister 11S loaded with the addcess| 
fof the physical 3540 save area i 
jaddress. } 
\ i 
jfne pnysical 3540 save area 1s I TewoRuw 
iceleased. i 
I 1 
}fne pnysical cacd reader save acea is} 
}Chained back to the logical save t 
jareae i SVSV(IewsDTC) 
b i 
1A posSinle end of data record Iv is | ICGP (LPwhuTC) 
reset. | 
tIindicate that a data set header | fCr3 
fcecocd must be inserted. j 
t 1 
}A branch 1S made to continue ceadiny |} 
{from the card reader... ccc caccnee AEWG4HZ 
1 
EvD10 $Registec 3 1S saved aS it Wiii De 
p;destroyed by the following release 
}wOrk Space function. 
| 
jkegister 11s loaded with the LvA 
faddress. 
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SVR 3(LPWSDSV) 


}The gata LDA 1S released through an 
i; IPWSRLW cali. 

i 

{The LDA pointers in the TCB are set 
jto zero. 

] 

{Register 3 1S restored. 

I. 

sIf an EOB record Was indicated, 
jamplying EOF petore EOJ, a pranch 
12S made to bypass release of queue 


PSPACS a cece wcrc asec ccvecesesccccce > 


SPWSRLW 


PCUA (LPWH UEC) 


BDZU 
f 

{Utherwise, register 11S Loaded witha 
fqueue space address, and queue space 
i1s released through an [PWS$RLW call. 
\ 

jwueue Space pointers 1n the TCB are 
}set to zero. 


SewoRiw 


£CUA(LEWSyTC) 


! 
ED20 1&nd of input 1s indicatea by setting 
jregister 1 to zero. 
' 
jketucn to physical reader using an 
{LPWSGLR call. 
} 
In case or EOF before EOJ, return 1s 
jmade to the logical reader at this 
{point, after receiving the intercupt 
jor the reader device. 
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jLapbels jcnart LR: IPW$$LR - Logical Reader jModitied Data jReg. {Calls 
) |fireids tUsage 4 
}Record pointer registers 0 and 1 are 
{saved in registers 6 and 7, 
jrespectively. 
) 
{LDA space 1S reserved again. 
' 
}Real and virtual addresses of the 
jouffer space are stored. 
\ 
{Register 3, whose contents have been 
jdestroyed by the LPwSRSW call, is 
{restored. 
! 
{4 branch 1S made to Check the new 
pdata TOCCOL Gs. a 0:0.s 06 b0.0 6 bbb Se 0 ee ee ? 
' 
\User sxit Routine 
1 

ULUO0 jfne current recora 1S examined and 
jpassed to the user exit routine 
jaccording to the following 
jconditions: 
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tf no user exit 1S available, 
return to the cailer..c.cecwceree >| (K4) 
If tne task is the initialization | 
task, return to caller......--.- >| (R4) 
ff flush condition, return to the j 
CALLOL cee cree cecccccccccacccceen >| (K4) 
Ir the current record has peen " 
uSer inSerted, FeturN-cccceceone | (K4) 
If neither JECL nor JCL sStatement,j 
return to the caller...cecweeeee >| (R4) 
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RJE,SNA inbound processor, set 
janput to upper case. 

\ 

t, 

}kegisters are saved. 

i 

Record address and record Llengtn are 
jsaved in register 0 and register 1, 
jcespectively. 

! 

}4 lank 1S made to the user exit 
jroutlne. 

\ 

{On return, user exit parameter 
}cegisters 0 and 1 are stored in tne 
,TCB. 

! 

pine user exit return code is stored 
fan the TCB. 

1 

)Reader registers are restored. 

j 

Register 11S loaded with the user 
jexit ceturn code, which 1S used as a 
socanch andex into the following 
joranch table: 
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Branch to flush VSE/POWER Jjop. >|ULoV 
Branch to PNET Modaty reocrd.. >|Un25 
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jLapels jChart LR: IPWS$S5LR - Logical Reader {Moditied vata iReg.  4Calis 
} i jfFieldas jUsage ) 
UE25 j}fignore return code since it 1s valid | 
jonly for the PNET receiver user exit }{ 
PLOUTING  60s.ck Ries new Soe oS eee ce Seeeie- 2h) 
! i 
Us&30 fhe current record is deleted py t 
tbypassing the write to data file: ' 
t i 
{Delete condition is reset for next } 
jrecord. t 
t A 
ja branch is made to get the next | 
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fo and 7. ! i 

1 | | 
iControl 1s returned to the cailer.. >| (R4) f 

' 1 1 
UE5O jit at job boundary, branch to ignore } | 
ATLUSN. coe cccc scan ccccccsccsescacsces {USO l 
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jOthecwise, set the VSE/POWER cancel | | 
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] 1 
Branch CO CONTANUCe cece cececneccccee PPEULTU 
] \ 
Uno0 iif at job boundary, branch to ignore j 
PELUSD wee ccc eccnccccccccccccesssses PLUS 
i] t 
{Otherwise, set the VSE/POWER cancel j QYRCN (LPWSDYUR) 
code in the queue record to X*60" to | 
jandicate that all the records of the |} 
jcurcrent VSE/POWER job are to ve 1 
jfLushed. t 
4 | 
UE VO {#®lush condition iS indicated in the j| ECLT (LP wsorc) 
(TCB. ‘ 
{8ranch to get next LTeECOLG.acaeeeeee APWO10 
i t 
U&380 4 yReset flush condition and issue 1 USCC(LEWS DLC) 
imessage R571. j LrwsGaMm 
1 1 
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jContcol is returned to tne catler. 
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IJECL Statement Handler 
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}fnis coutine provides the interrace 
{with the parameter scan function. 
jParameter registers are set up prior 
{to LepwSskJ call. 
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JnA00 jit the operation code is not RDR, 
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jLabels |Chart LR: IPWSSLR - Logical Reader iModareed Data iReg. {Calls 
1 jfFleids iUsage | 
jf no primary 3540-PWS 1s present j 
} (LWER=X*O08"), branch TO. cee acece vee >f{JHUZ 
! 1 
{Verify wether a higher Level PWS is | 
jaiready present and if so, to issue | 
tmsg 1Q90I and set flush indication. | 
Branch 5 el 6:06:10) 6 eel ele-s see e606 a 06 6 e160 ee | OHUX 
' ' 
jAcquire storage for 2.Pws, init and | 
jChain it to top. Branch for i) 
PCONTCANUATION. coc crc cecccccccencccscoer I UAU4 
1 i} 
JHUZ pit no alternate 3540-PWS is present | 
| (GWER=X*01*) td branch LOeccccccanceeer{ JHU 
jOtherwise check if the statement has | 
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jand af so branch to 1ssue error 1 
imsg and set flush indication........>|JHUX 
to continue HDranch CO-cccccr ac cccwceer|JHUY 
i | 
JA0 3 {Assume dynamic assignment has to pe |} 
idone. At first check if statement has} 
jopeen read from the diskette (.LWER=02) | 
jand if so branch to 1sSue error | 
Imsg and set flush indication........>|JHUX 
1 1 
jit tnere 1S a PWS already availaple | 
|) (TC3W=30) use that one and branch to | 
PCOREINUCS: i s.60 wc Sic BSc c we Sd ease cos OP) HO 
1 | 
sacquire storage for dynamic Pws, } 
jSave it*s address in TCB, and indicat} jiCsw 
{the dynamic assigned PWS (LWwER=xX 0") } j LW iR 
to continue Dranch tOwwew cee ee een ee Pf IHOY | 
| 1 
JHOX }A link 1S made to the message supb- | | 
jcoutine to issue message 1Q90L......>)MS05 1 
}4 £lush condition 1s Set in tne 8£CB | jrcrt 
p8ranco to flush the current Job.....>}|wG3vU \ 
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}Labels Chart LR: IPWS$SLR - Logical Reader j}Modirtied Data jReg. 


jcalis 
t ' jPrelds jUsage | 
] — a a a ee ee we ewe ee ww ee we ww we we we Oe ew ww we ww wwe ow wm ww ww Oe ww ee ew we we ww Oe we wm re we we Oe we ee ee wee 
! \ 
}JHO4 jLoad the address of the physicai work R2 


{space in register 2. 
f 


jthe statement scan is set for tne 
jdevice parameter. 
I 

JHO6 tif no plank characters dircectiy after} 
{the JECL op. code, print message j 
Jiyva7s, and DEANCH es 6i5-0o. hws eee ie oi0.6o 3s >j)JxHO0Y 


— ee ae ee ee ee ee ee ee ee ee 


! 1 1 ! 

1 ! i i 
1 | i i i 
| h i \ \ 
} }BLank the file name. i }PEFL(LPWSDP Wt) t j 
| ] ' i i i 
| jLoad the address of the master record) i {R3 t 
} jin register 3. j 1 ' i 
| | 1 ! i i 
| jSet tollowing defaults into physical | i i | 
} jwork Space: { | i ) 
1 1 i \ ] 1 
| je Clear option byte (FEED) 1 (PEOP (LP wSuvP we) } j 
| i 1 | 1 1 
j ) If the option Fred in master i | t | 
| \ record 1S not on, branch to..... >}JnUd 1 j i 
\ I 1 i h ] 
] je Turn option FEED on ! {PEO (LP WSOP HW) ) | 
i I 1 I 1 1 
| je Number of diskettes to one j }PEND(LEWSDP Ww) j i 
1 | t i i 1 
| te volume Sequence Check option (to | JRESC(LPWSUP HW) j \ 
} i NU Character plank) j i. | f 
1 ' \ I | 
j je Veraty option (to NO character j PEVE(LPWSDPR) i i 
| t olank) 1 t 4 
| t | ' \ 
{JHO5S ifhe RVR operation code ID in the TCB | LwOC(LPWSuPfC) " i 
| }1S set, and the branch index used in j LwBI(LePwsOTC) t 4 
| ' b { 
| i i { 
1 i \ i 
| \ 1 
j ] ] 
| ‘ i 
1 t i 
LL 


oe ae ow oe on oe oe ee ee ee ee ee ee 8 SO we DO ww Ow we OO wee ee Ow we OO ww WO ww we ew ww BS ® @ © 08 OS Ow @ @ 8 OOO OWE SSO e eS es wee 
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a a Seep e yy he ee ee GI ee gee ee ae ft Sees) ee TN REG CN, oe ge eT Te oe Peng We ele nt S. waehans oyna a? | 
jLapels jChart LR: IPWSSLR - Logical Readec {Modified Data iReg. jcalis ’ 
| t j¥relds jUsaje 4 i 
a om a ae om > oe om ee OP OF we a ee oe a ee ee en we we we i ee ww ee ee we OO Ow Oe ee OO ee ww OO w OO ws Ce ew rw ewes aaa | 
Jxn08 }Register 1, On entry pointing to tne }k1 


}JECL operation code, iS set to point 
jafter the operation code. 


' 
I 
\ 
I | 
|Register 3 1S Set up to contain the |} 
1 
1 
1 
1 


{converted to positive, a iink is made} 
[to Log meSSage TQOs7TLTeccec ccc cnceeee >$ M500 


| \ \ 4 
\ | 1 t 
| | 1 b 
1 i i A 
i i RS \ ] 
] tlength of the remainder of tne Je&cL i ! i ‘ 
] jSstatement minus one. | " i t 
1 1 \ b t 4 
] {Using cegisters 41 and 3 to control a | $R4,R3 4 i 
t {translate and teSt instruction, a i " i t 
j iscan is made for the first parametec.| i } j j 
] 1 1 b 1 i] 
} )If found, a brancn 1s made to process} \ t i N 
} HTNLS pAaLaAMEteL ew ccccaccccceccncceee PIJHW | } j j 
1 i i i k 1 A 
| jOtherwise, 1f no continuation punch | | i j ' 
| jis present, a branch 1S made to ) | ) 4 ry 
| jcetucn to the calling routine...... >)|JHsVU | " 1 " 
\ l 1 \ \ i t 
| jfLf a continuation punch 1S present, aj j 4 4 \ 
} jlink is made to scan the continuation) 1 } i ) 
] plane ec anccsccccnccesevescesccsesccee >|CCUU i h ) ' 
1 \ h i i \ ‘ 
| }On nocmal return, a pranch iS made toj } t 1 ) 
| ICONTINUC. eccccncecccveccccecccssenese SHUN | " i Aj 
\ | 1 i ) \ 1 
j {On ercorc return, a Dranch is made to } 4 ] t A 
j jreturn to the caller... ccceeenee PH} THSD ) j j " 
1 I L \ h \ i] 
}JH10 \If the parameters are not omitted, a } 1 } 1 ' 
r) jDranch 1s made to scan the parametec } 1 i 1 f 
| PLOUN. coc ce cc ceca cnc acecccccccwcene PPUHLZY | i t 4 
1 hb | i ! 1 4 
j Otherwise, the last parameter Switch | {Lwei( LTP wootc) ' } 4 
1 jin the TCB is set ON, and a branch } j i ' 1 
} jas made to scan possible i } j ' 
| ICONTINUATLON. eocaccc ences cncccorccee ALIJHIO | } | 4 
! 1, | \ 1 i t 
}Joi20 }Parameter registers 0 and 1 for the 4} j i i ' 
] (LeWwssRJ routine are set up: . | ‘ ] { 
| | \ \ \ 1 4 
t }Register 0 1S loaded with the address} | {RO 1 4 
] jor the Statement end. t \ " i ‘ 
1 ) \ i 1 1 | 
j jkegister 4 already points to the t | }R1 1 i 
\ {parameter to be scanned. } i j j 4 
| ' 4 1 \ \ i] 
| {An LPWS$SRJ call is issued to scan thej | i jireWwaskI 4 
] }parameter pointed to by register 1. 4 ! } t ‘ 
| | | i \ \ ] 
| }On ceturn, if the parameter examined | " i 1 ' 
' {1s valid (indicated by a positive \ i j i j 
} jValue in pointer register U0), a \ } } | j 
} Jdbranch 1s made to continue...-.--.-. A>pIHsV i i j 1 
| t h | ' i ' 
t pOthecwise, register 0 contents are t i {RO ) t 
| \ \ ! ' 
| 1 ' i} \ 

™ Y 
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Labels  4Chart LR: IPWS$LR - Logical Reader }Moairied Data jReg. Calis 

| ' jfieias {Usage | 

| de ee re ee ae ae ee ee ee ae ee we we we ee ww we ee we we oe ae we a we ee ee we we re we we we eee we we we ww we Oe em ee ew ww we we nw we we www we om ae oe ee ee me we te a ee 
JHi30 if tne Last parameter Switch 1S on, 


i 
¥andicating that statement scan has j 
}peen completed, a branch 1s made to j| 
jreturn to the calling routine...... >} 
\ 1 
jOtherwise, 1f the current statement | 
j2S not a CTL statement, a prancn is | 
pMade tO CONTLNUC..--ccaccccccaccccee ALUNYV 
i | 
{If a CTL statement is being scanned, f+ 
pyonly one parameter is permitted, and | 
jthe Last parameter Switch 1S 
{therefore forced On. 
! 
jf&cror pointer register VU 1s loaded 
Jwith the operation code address 
jand a link is made to issue message | 
PAO S TLS Sica eee eee 6 Serer ee Sie eicieie ce, 6 a6 .e' d= 2it4svd 
i | 
Register 411s loaded with the address} 
}of a possible continuation punch. } 
i 
jIf tne statement scan tucns out to 
jhave stopped on that position, a 
joranch 1S made to check for t 
PCONTANUATLON c eee ease rece cccacaacaces >jJHd50 
i t 
jit the next parameter iS indicated to} 
joe on a continuation iine (comma | 
}followed py at least one blank), a | 
jOrancn 1S made aS welileccccccccecee Ap UHDU 
1 i 
jUtherwise, register 11S Set to point] 
jone poSition after the delimiting t 
}comma. 1 
F i 1 
{If tne comma delimiting tne parameter} 
jiast checked was in column 71, a ! 
jbrancn is made to check for i 
KCONTINUATLON ae ce ce ecceecccaeccccccece >| Jno0 
| ! 
yOtherwise, a branch 1S made back to | 
jscan the next paraMetereeaeeeecceee Hf JHZ20 
1 i 
Lf a continuation punch was given, t 
ja branch 1s made to check j 
PCONTANUATION. -wc eer ccceecccccacacsecen 2{|JnoV 
\ \ 
- Otherwise, error pointer register 0 | 
j1S Loaded with the address of the j 
}comma in error, a link 1s made to \ 
fassue MeSsage WW3S7FLTeccnccccenccaeen AIMSOUU 
| 1 
}A branch 1s made to retucn to tne i. 
{calling LOWUCL DC io oe Ges eine a6 oo oe 66:6 6 se >{JHdd0 


LWP I (LEWSDTC) 


Qa 
a3 
‘= 
Oo 


qa 
a9 
mn 


= 2 Oe Ge 6 ow ow 8 BS ww OF © ©} Be 8 S= Oe we we ee ow Oe ee oe ee ee 8 ee ee ow a we ao ow oe om @ oe © oo we Oo Be ee ee ee ee ee 
~— we oe we oe ioe ee ie oe oes eee ee eee ie 
— = oe oe oe oe we owe ei eee ieee eee ieee ee ee ee 
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}Lapels 
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\ 


ja lank 1S Wa CC sierc dd. Gleididteveteie leew etelace > 4CCVO 
| ] 
}Un normal return, branch to scan the |} 
inext PALAMCTCT en en cee sce scene csccce A i JHzZ0 
! 1 
}OUh error return, a Dranch iS made to }j 
PCSTUCN occ ewer ccaccccvreccreancavecccces >| JH80 
t t 
pif no continuation punch iS present, | 
Ja branch 1S made to bypass cailing 1 
the CONTINUATION LOUtTINEG.. ce eee-eeee PLTHSU 
I | 
jOtherwise, a link 1S made to scan j 
PCONTINUATLON. acoce on eeeeee38eenr,eenea es @& >| CcCUU 
i i] 
}On pdoth normal and error return, a j 
borancn 15 MAAC. eee c cece cece ecvecee PHPIUNSU 
I j 
|}Parameter Switcnes in the TCB are i 
}ceset, and control is passed pack to | 
{the CALC TE seve-eteie oie tote lee ele.e 6, ecole ee evece >{| (R38) 
\ 


SS 


\ 

This coutine is entered when a 
jcontinuation punch is found in the 
jcaurrent record. The current record 
}is written to the data file and tne 
jnext rcecord 1s requested trom the 
IpaySicai reader. This record, the 
fcontinuation statement, 1S Syntax 
{checked and an error, itr found, is 
jitagged with error message 1Q937i. (ff 
}tne “iast parameter* switch is on, 
jand the continuation Statement i1tseitr| 
fcontailns a continuation punch, the " 
continuation routine invokes itself. | 


{Otherwise, the first parameter on thej 

jcontinuation statement 1S Searcned. | 

jfh1is pacameter should start on one or} 

jcolumns 6 througn 16 inclusively. A | 

jpossible error return to the caller 4 

j1S Made to an address four pytes past} 

tene normal return adaress. 'y 

1 i 

{A normal record 1S indicated in the | 

}rcB. If current statement 1S not j 

jCkL, pranch to get next record....- »}CCU5S 

| i 

yit tne current Statement iS not a RDR} 

jstatement, branch to write the j 

current record and get the next one »>}CC1U 
1 

sOtherwise, a link 1S made to get next} 

ILCOCOLd cow scr ace weneseccessacesesccnce > )we30 

1 b 

tA branch 1S made to handle the j 


| i} 
ta lank 1s made to write cecord and | 
fread the NeXt ONECececccacccecwaccee ALWG BY 
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jLapels jChart LR: IPWS$$LR - Logical Reaaer j{Moairied vata }Reg. jCalls 

| i jfreidas i\Wsage | 

| ae ae ae ee ae ee nee Oe ee ee eee Oe ee ee ee ee ee ee eee am me a wee om we es we oe ee we we we we we ee ee we we wee ee ee ee ee we we we we ee we er cee oe ee er ee ee we oe we oe we ee ee ee ee ee oe ee we ee 
}cc20 jff xJE,SNA anbound processor, Set TCCU (LPWwSvTC) 


| 

janput to upper case. i 
\ ' 
jit the next record 1s not a J#rCL | 
jStatement, branch to issue error } 
$MESSAGS W3TLTwcceccccecaccccccoccee | 
\ ' 
jit the last parameter Switch 1S ON, i 
pOranch to check continuation } 
(COLUMN bie 65.6 06076 bie ie bis oes © Osea oo ee ete 24 CC50 
1 1 
If coiLumn 5 is not blank, branch to | 
jassue error message WW37/L.....--62- >} 
t 1 
}ff parameter starts on any of the 1 
ijcolumns 6 through 16, inclusively, | 
fcetucn to Caller ccc ce ccaceccccne A] 
I ' 
jUtherwise, error pointer register 0 | 
jis made to point to column to. ) 
1 \ 
{Branco to isSue error message h 
PVQ3ST Le acc cern cvnccccecucccccccscccce 7\ 
i 1 

Cc30 j&rror pointer register 0 1S made to j| 
}point to column 1. } 
! 1 

cc40 iA link is made to message i 
POOUTIANG oc cer cc eeccccresecescescceas >} 
I 1 
{If no continuation punch is present, | 
}ercroc DOCULN ce eee ee cece cr erenccccne >| (3) +4 
1 \ 
Otherwise, branch to check 1 
pcontinuation Line... cscccccaccecee F|CCUU 
i i 

cc50 {if no continuation punch, normal i 
pretucn to Ca LLeOL Ss cise sd Bese we @eeee#ee ?\ (x3) 
i ! 
{Utherwise, branch to check next i 
RContinuation PEN Cbd 6 re ocere le: 68:6 @aieleésece 7), CCVUYU 
! ; 1 
jSubroutine to insert Job Header Control kecorda (JdHR) 


(x3) 
CO4V 


| 
' 
i 
1 
| 
i 
\ 
i 
' 
\ 
| 
\ 
| 
\ 
1 
1 
1 
1 
i 
\ 
| 
| 
1 
\ 
\ 
1 
| 
| 
MS UU | 
\ 
i 
\ 
| 
i 
\ 
| 
| 
1 
| 
i 
\ 
| 


1 a ene ce Ce A nN SR | 


INJH Set pointer to JHR work area 


| 
| 
jTC3E 
\ 
\ 


\Update the JHR fields that may nave 
jbeen modified py the JOB statement. 
}e joo class 

je job name 

4e joo password 

1e¢ joo priority in JES2 format 

$2 job disposition 

te joo sysid 

$¢ yop user information 

\ 

}Wrate the JHR to the data file i 
{Release the work area i i 
pRetucn to the caller..cccccccceces oe >| VU (KS) | 


1 

|NJHGJCLS 
| NJHGJNaM 
|NJuGeass 
| NJHGPRLO 
| NJHPDLSP 
|NJHPSY¥LD 
| NJHLUSER 
\ 


a 


—_——_ = we we ee ee eee ieee ise 
ee ne eee ee ee oe oo 


-— we ee iii es 


{iPpwdPoR 
jiewskuov 
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jLapels j|Chart LR: IPwS$LR - Logical Reader IModified Data jReg. jCalis h 
4 |f1relds Usage 4 ; | 

ee ee ae oe me Oe a oe ee ae we ee ae we ee ee ee we me re wr we re we ee ew ee ew ee ee Ne we we ee ee Owe wwe Oe © we we we owe we wm ew ewww oo owe 4 
{Subroutine to insert a Job Trailer control Record t 
|) SFE sh rear er rer Ss Pee ere ee \ 1 
\ ! 
jindicate EOD record | {rcGP 
tReserve work space, if no space 1s | i 
jaVailable, DOANCNesieanccccccecseee >| HI4D j 
jainitialize the jop traiier control i {NJLLEN 
jfielids \ INJLGLEN 
i | JNILGTYPE 

\ 

\ 


ri 
=z 
Q 
a) 


LewSRSV 


_——— oe we we we ee ee 


| [uJ 2GsoD 
{Wrate the job trailer to data file \ 

|Release the work Space \ | 

pReEtucn tO CaALLeCw cc wea cacevee seen cer{ VU (KY) | 

i | \ 
}Subroutine to insert Data Set Header Control Record (DS5nH) 


t ee ee ee wee we oe oe oe oe ew ae ee ee we we we een ee we we a wr = } 


jLePWSPHDR 
(LPWSRLV - 


b6) 
a 


InDJ }intcy when reading the first 
1* 35 JOB statement 
\ 
{if tne input 1S not an [Bm 5425 wFCO 
Joc the input 1S not from a remote 
{terminal, return to calier 
}If tne record length is equal to sO 4 
Jthen return to the caller....-...22-..7)0 (KY) 
I 
}Entcy when reading the first IBm | 
13540 diskette record i 
i | 
)keserve work space, and if none is j 
jaVarlapble, DTANChe wc caaacaeccccscase >| HIHD 
jinitialize DSH control fields i JNDHCLEN 
\ 
\ 
\ 
\ 
1 


es) 
a 


w 
a 


ri 
2 
o 
= 


LPWSRSV | 


i |NDHCLYPE 
i | KDACMOD 
}Set tne maximum record length equal | NDHCLLEN 
jto present reocrd length. | 

\ | 
jif the input is not from a local 3540) j 
jthen DEANCH << cele Se oes Sele os Sees eelees >| INvs ) 
| 
jCreate within the data set header a 
IVSE/POWER Subsystem section(shoct 
jform). 

tIindicate the 3540 cuu 

' 
InbD8 jwrite the data set header record to 
jthe data file 

{Release work space and return to the 


\ \ 
\ 
\ 
i 
\ 
I 
| 
\ 
! 
jcaller. i 
t 
i 
1 
| 
' 
' 
\ 
\ 
i 


JNDHPLEN 

INDHPLYPS 
INDHPMOD 

jNDou POU 

1 


—_—— = 2 ee ee ee eee ee eee eee eee eee eee ie ie 


JS PWSP DR 
{LEWSRLV © 
\ 


yal 
a 


\ 
juiessage Routine 
t 
iThis routine legs error message 
‘y1Q37I, tlagging invalid JECL 
janformation, or message 1Q90I, 
jandicating RDR Statement not allowed 
jin tne input stream. If message 
1IW37L must be assued, the entry point 
jas MSVO. If message 1y990I must be 
jissued, the entry point is mSU5. On | 
jentry, register 6 1s supposed to. N 
|contaln the adaress of the Statement | 
jin error, and register V contains tne} 
jaddress of the column 1n error. 1 


— oe ee ee owe ee oie eee eee ieee ee ee ie 
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' 
' 
| 
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" jFieldas }Usage ) 
MS00 jCaller*s registers are saved. i 


‘ \ 
jIf the operation code is CYL, pceanch | 


ilewsSav 


' 

' 

' 

I 

1 

' PTO ce we evecare cccvccaccsccccccccccss AIMSUZ 
t ' I 

i if no queue has been reserved yet, i 

t Jindicating that the RDR statement has| 

j joeen encountered at job poundary ] 

i ftime, DLANCH tOcceaccccgecceccaceee APMSUZ 
| ! 1 

] jOthecwise, set the current job in tne| 

i jhold state, and pranch to issue 1 

| fMeSSage 1ON37Lececccccccccccccccccce P>IMSUS 
! 

’ 

i 

i 

! 

l 

i 

| 

j 


b 1 
MSO2 tindacate the hold state for the next 


URDP (LP WSDYK) 


] 
i 
4 
i 
A 
i 
| 
i 
i 
1 
i 
i 
\ 
i LweR(Lewsurc) i 
{job to be aliocated on tne queue " \ 
ifile. t t 
1 1 j 
4so3 jLoad the address of message 1iy37I i I 
janto register 8 and branch tO...-e- | | 
t | i 
MSU5 fhe caller*s registers are saved. i pLewssav 
I \ \ ' 
j {Load the address of message 199014 | 1 
( jinto register &. t j 
1 i i i 
{4s10 jfhne statement in error 1S prepared to} i 
] Ibe Logged: i j 
I 1 1 | 
j jThe byte previous to the record in | | 
} fercroc is set up aS a hnessage length | j 
j fandicator using register 6 aS a WOrK | i 
j jregister. 1 i 
1 h i 1 
t rhe column number of the column in | i 
\ jerror is calcuiated in register 4. i 1 
| \ ! i 
j trhe address of the statement in error; CMW (LPwSorC) j 
j $2S stored in the message request \ i 
j jwora. i ) 
1 ! i \ 
} iThe statement in error 1s now Logged.| jiewsato 
| ‘ ! 
| {fhe message 1S printed. i 
| \ \ 
] {If the current task 1s not an RJ& j 
| {task, a branch is made to return to j, 
{ ICaLLerwacceccncccccccccccccvacceseosn AENSLYV 
] 
| 
i 
j 
1 
i 
1 
i 
i 
: 


[LewsGaM 


‘ 
jOtherwise, the address ot the 
{statement in error 1S loaded in 


-_ ow we we ei ie 


i 

| 

i 
jcegistec 1. t R1 
i i 
jRemote ID and coiumns 79 and 80 of ' 
tne statement in error ace Loaded in } 
jcegaster QO (low-order byte and 2 i RO 
jhighn-order bytes, respectively. b 
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|Labels  jyChart LR: IPw$S$LR - Logical Reader {Modified Data {Reg. Calls 
g 
5 jfreLlas Usage | 
pan ([PwW$RMS call is issued to print 1 jLewsRus 
ithe statement in error at the remote | 
jterminal. j 
b 
Register 411s loaded with the address| 
jof tne message sSavea in register 8, 
}the nigh-order bytes of register UV 
Jace cieared, and an IPWSRMS call is 
jissued to print the message. 
1 
MS20 {Control 1S returned to the caller. 


| 
| 
| 
| 
\ 
| 
1 | 
jwoate Record, Get Next 1 
1 
1 
1 
| 
1 
! 
| 


Ls 8) 
od 


«i 
Cc 


LPWwsRMS 
LPWHRET 


\ 
wGOQ Set record information in record 
{request word (rec length + address). 
\ 
wGO02 jadd cecord defined in record request 
word to the data file. 
1 
wGO05 i\Job poundary 1s indicated in tne TCB.| 
\ \ 
jLink to Set EOD in the fCB and write | 
[the job traller Lecord..-ccweeeeeee PL INIT 
i \ 
}Routine return register 1S set to ] 
{mode check routine entry point. | 
jBrancn to Skip spooling to data file | 
| 1 
wG 10 iff a flush condition is found, the | 
{record iS not written to the data | 
jfale and a pranch 1s made tO..ee---- >| WG40 
\ 
\ 
\ 
\ 
| 
1 


PCCC (LP WSDLC) Ro,R7 
LPWSEDK 


TCUB(IPWSDEC) 


Lo 
a 


m 
- 


WG30 


' 
WG20 {Data record address is stored in the 

{RRwW an the TCB. 

! 

|Data cecord length is stored in tne 

{RRW. 

] \ 

yIf not a spool manager requeSteceee PH>|WG2Z2 

{It not spool queue display request \ 

PODCANCN eee eeesesccecsceacccvcae vecececc >({WG22 

If control recocd, pDrancncccceeee PAPWGLZZ 

! \ 

yUthercwise indicate data record. 

1 
WG22 jit save account’task, set indicator 

j}for “card move. 


i 
\ 
\ 
i 
' 1 
\ 
1 
\ 
' 


ECKRV (iP WSDEC) 


LCRL(LPWSDLC) 
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TCG? 


LCGP 
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Gi 
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jvata cecord 1S added to data 
jfile through a LPwSPDR call. 
i 
WG30 }it no record has been inserted, a 

joranch 1S made to optain the next 1 
PLECOLd coe nccc caer ccccrcccccccccecs PENG 
b } 
jutherwise, the Record Insertea 1 
jandication in the TCB is reset. ‘ 

| 1 
jIhe pointer registers are restored to} 
}point to the previous record. h 

| ! 
jine LPWSGLR call for the next record }| 

11S skipped and a pranch 1S made to ' 
jtest the previous record as if 1t had} 
PJUST DECN ODTAINEd ee ee ee ee eceereesee APWGDU 


LewSPvR 


USCC (Le WSDLC) 


Ro, 


4 
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}Chart LR: IPWSSLR - Logical Reader 
t 


jfhe record length is copied into 
{parameter register 1. 

| . 

fhe next data record iS requested 
}tnroough an I[PW$GLR call. 

\ 

{Record address is saved in register 
Jo. 

1 

}Record Length 1S saved in register 7.} 
t8cancna TCOccenececceeanccaesenvceevvececcac >) WGSO 
' } 

iff stop condition present, poranch to | 
AASTACN ace nee ccm cnccsccceacvcceccccaceac > ,bdJ45 
1 ] 

{frm an EOD record was indicated, t 
pbrcancn to EOJ routine cecccceccvccce Hf KUVUU 
1 ! 
jutherwise, if zero record lLengtn 1 

i (unexpected £OF), brancn to handle t 
jend ot Cal Ca obi6 leo wre 6 Se ELS oie oS ale 8Ue%e ce >) BLUU 
!ff reading from a 3540 data file, i 
jbcanch to write the record and get t 
jthe next ONG cecan2 me vavsenacscenvcecececs > {WG 10 
I 1 

if not SOF, and no user exit } 
Javaiiable, return to Caller. eeeee P| (KR4) 
' 1 

pit user exit available, put first j 
jcnaracter of current record compares | 
Inignec than "/*, and can tnerefore pej| 
jneather JCL nor JECL Statement to be | 
Iprocesseda by the usSer exit routine, al 
}bcanch 1S made pack to tne caller... >| (K4) 
i i 

1if the first character indicates a i 
potential JCL or JECL Statement, j 
,oranch to the usec ex1t routine.... >|UnUVU 


_— = ae ew ew oe we = 


|Modatied Data 
jfFlelas 


LWER(LPwSvorec) 
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Reg. jc 
Usage } 
R1 
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CHART LU: LPwSSLU 


r Ge sgt, Toe Ge Te FT 8 ke I GO eee re ae Sey we ee 
} IPpWSSLU - VSE/POWER Update LUB/PUB Taples i 
tH 
{ Label 4 Routine t 
bh t 
} L000 | Function Entry t 
} LU20 | GUnassign LUB j 
| LU30 } Locate unowned PUB i 
} L040 { Locate and assign free LUB i 
} LO50 | Release related LUB‘*s i 
} LU6O } Release specific PUB 1 
| L070 } Locate ®UB of assigned LUB | 
} LU80 )} Locate PUB of programmec Logical unit t 
} LU85 | ASSign/unassign SYSLSIt to/from given device \ 
} LOYO } Fanction Exit i 
| LOUP1 } Setup 3800 Printer Subroutine | 
| See a | 
a en gp ea ae ee a a eg ee Cie ga ee Tle ee Lee yee Sg ee Pe ee ge A ee Ss cs a ee 
| Services Used | 
eee | 
} Service | Macro i 
++ —_——_i 
| Storage Management } LIPWSRLW i 
| | L2wWsRSW | 
j } IPWSRLV | 
| } LPwSRSV j 
Ma pn eee | 
Ce ee rs | 
} Function(s) used i 


f} ee 


1 module } Macro i 
asa ACE Ran nen ea nee enna | 
{ Lewssas } LewsTas i 
Dai cies tab espn oping delle aircon pent isdn mmm lst i thi tna Ease Sipe tito ees hal 
cc -:. ooce es So Se Se te ae ee en Pee me ae Sha he ee ae ee eae te ee aS ae Se ete i ee ee ee ee a ee eee ee 
| Called pyIPwsULp ' 
-—-—— Ceo Os On nel 

Module } Description i 


l 
eT 





} IPWSSCM | VSE/POWER Command Processor i 
| LPWS$L7 } VSE/POWER InitiaiLization b. 
| LPWSSLM } RJE,BSC Line managec } 
} ITPRSS5LD | PNET Driver h 
| LPWSSOE } Open 354 Diskette Routine } 
} LPWSSOF } Pottload task j 
| Lewssor | Open Tape Routine I, 
| LPEWSSPL } Physical List \ 
{| LPWSSES } Print Status | 
| LPwSSTR } Task Terminator i 
| IPWSSSA/SF | Save Account } 
} IPWSSXT } Execution JECL scanner ] 
| LeEWSSXR } Execution Reader i 
. ee ee ee I ee | 
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jLabels |Chart LU: IPw$$LU - Update U8 and PUB {Moditied vata jReg. {Calis 
j Tables jflelds j0sage t 
{fhe first 16 bytes constitute the 
}Section descriptor: 
4 
;*LUCS release? 
! 
1On entry, the foliowing registec 
jcontents are relevant: 





1 

1 

| 1 t i i 
| 1 | 1 \ 
I | \ 1 | 
| 4 \ i i 
i | i | ! 
I ' | 1 | 
| | | 1 \ 
| \ ' 1 | 1 
| } O: branch index to reguired ' j {RO | 
| \ function: } i 1 | 
} QO: unassign LUB t | i | 
| ‘i 4: locate unowned PUB } | ' | 
j ' 8: assign LUB ‘ | | ' 
j | 12: celease related LUBsS ' | i } 
1 i 16: release specific PUB | { " 1 
t | 20: identify PUB for specific | | i 
1 } LUB 1 ! | 1 
] j 24: celease related programmer | | j j 
| ' LUBS i] i I j 
] t 238: adentafy PUB ot Logicai unity | \ | 
j j 32: assign SYSLIST to printer j | 1 i 
l \ 30: unassign SYSLIisf { i] i 
| 1 1 \ i i 
] } 1: PIB address j | jR1 i 
| } 2: device address in EBCDILC: | 1 pR2 1 
t c*cuux®, where xX may be - | | 1 | 
| 1 | i i 1 
) ‘ R for Reader j | h i 
] } P tor Punch j | j } 
j t & for List | i } 
] h T foc Tape | | i | 
| k b for bisk | i i j 
| 1 i 1 | 1 
| } For the unassign function I i ) | 
} t register 2 contents are ignorea,| | j \ 
| h and for the reiease functions j } | j 
1 ' the device type *X*® is ignored. | 1 i | 
) I 1 | h i 
i § 3: CCB address | }R3 j 
1 | For the locate and celease } | ' { 
} functions,register 3 contents t | b i 
| j are 1gnoted. j i \ " 
| } / | | 1 | 
} 110: vS&/POWER permanent area address} {LPwSvPAa jR10 } 
| i737: CB address | {Lew soTc }R144 j 
! }13: Task save area address j jiewsosV pRI3 1 
} 174: cailer*s return address | | ;RW4 i 
‘| 135: Function baSe address | | jR145 | 
i i sh i | i ! 
\ ifunction Entry i | ' \ 
| ! 1 | i 1 
} L000 iCaller*s registers are saved. | j jIlewsSav 
} | Because the subseguent functions wiil} i i \ 
| } (Or May) Change system [/oO tables, ] | } | 
| jany concurrent I/O handiing activity | | j | 
| |may produce unpredictable results. 1 ! j f 
| {fheretore, the system 1S *sei1zed*® | \ i | 
| } (monopolized) for the duration of | | } | 
! jfunction execution through an SVC 22. j \ 4 | 
;Parameter register 0 wili contain 255); | ! 1 
| i(x*rr*) to signal that interrupts are] 1 | 
1 jallowed. i | 1 | 
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bLapels jChart LU: IPWS$LU - Update LUB and pus {Modified Data tReg. {Calis 
fables . |Prelds jUsage j 
{Register 5, to be used aS a base | 
jaddcess for COMKEG access, is loadea | 
Iwith the COMREG address. | 
i 
}fne PeIK of the partition concerned is 
ipiLaced in register o from the PLB 
jextension of the PIB addressed in 
jcegister 1. 
I 
fhe function pranch index passed in 
}cregistec V is now lLoadea in register 
i4 and used to branch to the 
fappropriate function through the 
jtolLowing branch table. 
i \ 
L010 tindex 0: Unassign LUB.....2222-22-->)LU20 
jindex 4: Locate PUB. ...cececeseeo ee {LUV 
[index 3: ASSign LUB.. ccc cc cece eee >| LUG 
jindex 12: Release related LUBS.....>|{LUDO 
{Index lo: Release specitic PUB.....>|LUovV 
jindex 20: Identity PUB of specific | 
t LU Be ccc cc ccencccccccecce ee >| LUIV 
jfindex 24: Release related programmer | 
1. LUBS. wc ce cccncccc cc ccce ce >| LUDU 
jindex 2%: Identify PUB of programmer|. 
i logical unit.....-22.2222.>) LU8SU 
jindex 32: Assign SY¥SuLSf LUB to \ 
i specified PUB..........-.>{LU8D 
jindex 36: Unassign SYSLST LUSB fron | 
i Specified PUB... e2.--220->| LUsd 
\ 


co 
£ 





h 
{/UnasSign LUB Routine 
} 


Ls 8) 
=) 


i 

| 

LUzO jfhe address of the start of the | 
tprogrammer LUB table part of the \ 
jpartition concerned is now calculated| 

jan register 7. | 

\ | 

sfhe PIK in register 6 is converted to} 

|the appropriate index in the FICL, } 

jwhicn is then added to the FICL | 
jaddcess to address tne first-in-class| 

jandex required. This index 1s j 
jmultiplied py 2 (LUB entry Size) ana | 

jadded to the LUB address of the | 
{partition. \ 
\ 

\ 


3 
oO 


ye) 
a 


j : 
jit tne Logical unit found in the 
|specitied CCB 1S a programmer logical| 
junit, LUB table pointer register 7 1s} 
}positioned correctly and branch to i 
PCONTINUC. Coc ccc ca ccccercccccracccecce>| LUZ2Z 
{Otherwise, register 7 must pe \ 
)*backspaced*® py the number of system | 
{}LUBsS ror the partition to point to | 
{the first system LUB in stead of the | 
jfirst programmer LUB. | 
{Using register 8 aS a work register, | 
jtne number of system LUBs 1s | 

i 

\ 

\ 

1 


bo 
= 


8 
a 


jcetrieved from the NICL, and, atter 
jmultiplication by 2, subtracted from 
}the first programmer LUB address in 
jregisterc 7. 
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LU2 3 
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LU30 
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{Chart LU: IPWSSLU - Gpdate LUB and PUB 
}Tables 


)0sing register 8 aS a work register, | 
Ithe Logical unit number concerned is | 
{retrieved from the CCB. t 
i ; 

|Register 7 1S updated to point to 
jtne LUB entry concerned. 

\ 1 

{fr LUB currently unassigned.........>|LU2s 
sUthercwise the PUB pointer 1S ioaded j{ 
janto cegistec 8 and the assignment is| 
jcLeared. \ 

\ 1 


— =— oe 


Jif pcogrammer logical unit....-.e--->|}LUZo 


i \ 
{it AlLS Keceececccncceccccccccvcccacser) LUz3 
\ 1 
af not GisSkettenccccccccccaccecsecese>| LU2Z6 


4 \ 


pPoint to SYSIN DIB. 1 

pit SYSIN DEB «6: 6:0 0:66 0: 010 «0 06 66-000 a6 ceo} LUSS 
1 | 
{Point to SYSPCH DIB. | 

git SYSPCH DIBwcccccncccecasnceccevceer> | LUZ 
1 . 1 
Point to S¥YSLST DIB. t 

{ir not SYSLST DLiBwwcccccccaneececcee rf LUZO 
i) A 
Clear DIB current address and DIB end| 
jaddress if not SYSRDR or SYSIN. 4 

! i 
}Get pubownersShip table address. 4 

pif we do not own thiS PUB... cece ee ne >f LUZY 
}Release ownership. j 

! 

tLocate Unowned PUB 

b 

jfhe PiB address 1S Saved in register 
19 because the subsequent check for 
jvalid hexadecimal digits in the 
}device address specification, passed | 
jin cegister 2, may destroy register 1} 
jcontents. \ 
! 
tfne device address as stored in 
Icegister 2 save area location 1s 
jchecked. 


{PIB address restored 1n register 1. 
i ‘ 
}1£f specification error, prancn to 1 
LOLA GUNOSC 6 0s:c:6.S Raw see ow. es ee aw Sees oe PO LLU SK 
1 h 
}Othecwise, the device addcess is \ 
jconverted from EBCDIC to hexadecimal.} 

1 

PUB table address is loaded in 
jcegister 7, and PUB ownership taple 
laddress 1S loaded 1n register 3. 

i 

jin tne following itoop the PUB table 
tis scanned for the specitied device 
address. 


——— or Ow ww ee oe 


VSE/POWER PLM Part 2 


imodified Data 
jFileldas 


SVK2 (LP WSDSV) 


—_— we ee ewe oe eee eee ieee ee ee eee ie ie 


8) 
ve 


a] 
- 


La 
=) 


m 
Cc 


Licensed Material - Property of IB& 


= ee te ee re ee pe ee ee ee ee a ee ee ee we ee en we ee we we we we ee we a ee ee ee em ee ee we 0 ee we er ee oe re ee ee ee ee wr es ee oe ee re ee ee ee ee ee ee ee 


— oe ee ee ee ee ow oe or ol 


Ae meee eee ee eee eee eee eee eee eee eee eee i i 


Licensed Material ~- Property of IBM 


rr rr rrr rt merc eter ec- eee were we ow we ew ww wwe we ee we owe we oe ewe 


} Labels 


t 
Gq 
a 
£ 


tc 
Ga 
au 
a 


= 
a 
us 
wm 


{Cnoart LU: IPWSSLU - Update LUB and PUB 
}Tapbles 


If end of PUB table reacned and PUB j 
pnot found, DLANCH. cowvccsecccccses cor LU3i 
I ] 

}if device address is the one | 
Ispecified, branch to proceSS...-...->}|LU34 
| ' 
}Othecwise, register 8 is 1ncrementea 4} 

toy 2 to point to the next PUB i 
ownership entry. j 

| | 
{Regaster 7 1S incremented by 3 to 1 
|point to the next PUB entry, and j 
}Orcancn back to check next PUB t 
PENTLY ce cc awcer vn cccccnccccenccccnnccscerf LU saz 
' ] 

jit PUB ownership entry indicates j 
}that the device 1s already owned, 1 
PDOANCN coc ccnccesccccvecesceccccecccccerf LUIX 
! \ 

}if PUB ownership entry indicates that] 
{the device iS Waiting for volume to j| 

poe mounted, DLANCNecccccacccaccecacer| LUISX 
1 1 

{if pUB entry indicates ‘device down®,| 
POCANCD cee nev acne caccccenesvcacssnaccart LU 3x 
1 1 
Otherwise, PUB entry adaress is 
{Loaded in register 2. 

jfne device type code from tne PUs is 
jinserted in the high order pyte ot 
|cegister 2, and the device type as 
jpassed in register 2, having Deen 
jdestroyed by the conversion to 
jhexadecimal, 1S restored to its 
Jociginal £BCDIC representation. 

i ; 

{Register 9 1S loaded with the address} 
jof tne internal &BCDIC device type 1 
jtaple LU3r. t 
1 1 
jin tne following loop the device type| 
jas specified 1s matched against j 
jdevice type in the internal tabdie. t 
1 L 
{if device type specified matches ' 


_— = or ow oe er ae oe ee ae a 


‘|device type in current table entry, |} 


joranch to continue CheCK.ccccecceeoe>f{ LUSY 
1 1 
{If end of table, pranch to error ' 
POX1LC an cccccsncnnce sesescccosucecccever{ LUSX 
t ! 
jOtherwise, register 9 is incremented | 
joy 2 to point to the next table | 
fentry, and branch back to continue j 
PSCAN awe cece ccecceccccccscacsenccccoccs?| LU30 


jfodcified Data 
{fields 


SVK Z(LEWSDSV) 


Chart i 
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jLapels {Chart LU: IPWSSLU - Update LUB and #08 jModitied vata iReg. {Calls 
{Tables ifWields {Usage | 
{The high order hexadecimal digit of j 
}tne one byte internal device type in 4 
jthe PUB is now used to check tor the | 
}correct device. Since there are two | 
jtfamiities of reader devices and of | 
}punch devices, each of which has a } 
idifferent high-order hexadecimal 1 
1 
| 
\ 
t 
\ 
\ 


—_— 


digit as its characteristic, the 
jtoliLowing routine is used to 
jdetermine to which particular 
}reader/puncn device famiiy this 
kparticular device belongs. 
{ 
LU38 fhe amtecnal device type is loaded inj 
}xegister 4 from the PUB, the low- ) 
jorder 4 pits are set to zero to make | 
jdircect cOmparison possibile, and, 1f | 
jcorrect reader/punch type not yet 1 
{found, branch back to continue tapnle | 
ISCAN ec cov ccacvacccccacescccccvccccac®|LUISD 
1 \ 
sOUtherwise, it device tape cartridge | 
(ceader, ELCCOLr LeEtuCNe cee r ccc eeccereo- >| LU3a 
| \ 
jOtherwise, the partition ownership 1Sj| 
}set for the applicable PUB. 1 
\ | 
{Register 6 1S Shifted to convert the | 
;PIK to the appropriate index to tne | 
janternalL PUB ownership mask table | 
}L03Z, and the mask 1S moved to the | 
1P0B ownership table entry. | 
I \ 
jfhne return value tor reyister 2 i 
1 (device type + device address) is | 
jSstored in the taSk Save area Location; 
}for cegister 2, and return..-eeee--->| LUYV 
\ t 
i Locate and Assign LUB Routine: \ 
1 1 
LU4O jthe PLK in register 6 1S converted to} 
{the correct NICL/FICL index for the | 
}pactition concerned. 1 
1 1 
{Using register 4 aS a work register, | 
}the programmer LUB index is loaded in} 
{cegister 8, and the number ot pro- h 
i\grammer LUBS 1S Loaded in register y.} 
| | 
{the address of the first programmer Jj 
1L0B of the partition 1S then j 
‘pyoalculated in register 3, and saved | 
jin cegister 7. 1 
| i 
1 
! 
1 
' 


SVK2(LeWSDSV) 


eee ee ie ee eee i 


wm Bw 
cm 


jin tne following loop, the tirst 
javaliable programmer LUB of the 
}Ppartition is searched. I{t found, it 


jwili pe assigned. 
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jLapels j,Chart LU: IPwSSLU - Update LOB and PUB {Modified vata jReg. {Calis 

j plabiLes jfrelds yUsage ' 
Yr rr rr rn re er rn rr rt rn rr er rn rr rere eee 
,LU44 jit LUB to be Checked iS cCurrentiy | 


junasSigned, branch to asSign........>| LU4o 
t 1 
juthecw1se, register 8 15 incremented | 
hoy 2 to point to the next LUB, and, | 
}2£ not yet all LUBs for this i 
}partition have peen scanned, branch | 
jpack to check next programmer LUB...>)LU44 
\ \ 
pit no LUB available, exit...........>, LU49 
4 \ 

LU 46 jfhe nigh-order pyte of register «< 1s | 
jcleaced to strip internal device 
jtype, leaving just the PUB address 
{passed py the caiter. 

i] 

jthe start address of the PUB taple is 
}subtracted and the remaining 
jdisplacement 1S divided py 38 to 
jproduce the appropriate PUB pointer, 
jwhicn iS stored in the Located tree 
;LUB, thereby assigning it to the PUB 
iconcerned. 

I 

jfne LUB displacement is calculated in 
jcegister 8 and divided py 2 to 
{produce the correct programmer 
jLogicai unit number, which is then 
jstored in the caller*s CCB, pointed 
{to py register 3. 

' 

)fhe function 1s completed by Setting 
jthe “programmer Logical uanit* and 
}*e2XCP Real* SwitcnesS in the caller's 
}CCB. 

I 

}Bcancn to function exit.....--...22-->| LUYU 
i i 

LuU49 {since no LUB 1S available, LUB number} 
fand “programmer togical unit*® sSwaitcn } 
jin the caller*s CCB are reset to Vv. | 
\ | 
{Boanch to function exit......-.ee2-2>| LUYD 
\ | 
{ Release Related LUB*s Routine: | 
! \ 

LU5O {fne rfB address in register 1 1S | 
jsaved in register 9, because 1t wight] 
jbe destroyed in the subsequent 
jexamination of the device address 
{passed in register 2. 

1 

{The device address 1S cnecked for 
jvalid hexadecimal digits in sBUCDIC 
{cCepresentation. 

\ 

jfne PIB address is restored, 

jand if device address 1n error, t 
POCANDCH so cnce sence cnccncccccccccncescer| LUSA 


bo] 
Nw 
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c : a 
JLabels jChart LU: IPWSSLU - Update LUB and PUB }Moagified vata jReg. Calis tr 
| jfables jfleids {Usage | j 
SARS SSH s Sees sH9 5S 92 SSS ese 2 6S SSeS es SSS es SSS Sse eS we Sess aes Ses ere eS ee= | 
|Otherwise, the device address is SVR2Z(LPWSUSV) 
;converted from EBCDIC to true 
jhexadecimal representation. 
1 
}Register 2 is initialized with the 
;PUB table address. 
| 
{Toe following loop scans the PUB 
jtable for the specified device 
jaadress. 
\ 
Lu52 jit end of PUB table reached, pranch |. 
ito indicate CLrolwsevcceviccsoceesecce >| LUSA 
I ! 
jOtherwise, if current PUB is the PUB | 
}tor the device address cequested, i 
[PLaNCh tO PLOCeSS occcwccccecce cece ee >| LUD 
jOtherwise, register zZ 1S incrementea j 
Joy 8&8 tO point to the next PUB, and 1 
joranch pack to check next PUB......-.>{LU52 
\ 1 
LOD4 {Ine PUB pointer associated with this |} 
{PUB 1s calculated in register 2. ! 
1 \ 
jIne nICL/FICL index 1s calculated by } 
jshafting PIK in register 6. | 
1 | 
Using register 4 as a Work register: 4} 
1 \ 
je The programmer LUB index is ioadeaj 
b in register 7, t 
j* the number of system LUBS 1s } 
i loaded in register 8, and j 
' 
1 
\ 
] 
1 
1 
} 
1 
| 
| 
\ 
| 


$e tne number of programmer LUS8s is 

1 doaded in register 9. 

i 

Ine total number of LUBs is then 

tcalculated in register 9, and the 

Isystem LOB index 1n register 7. 

' 

ifthe address of the first LUB of the 

jpartition concerned 1S caiculated in 

jcregister 7. 

1 

jin tne following Loop ali partition 

|\LUBs are scanned for a PUB pointer to}| 

jthe specitied device. {ff the device | 

tis a 3800 printer, a pranch iS made | 

jto reset the printer setup with tne | 

jnardware/system defaultS...cceccncee >| LUP it 

jLlf round, the LUB concerned will be | 

junassigned. j 

| \ 
LU56 }If tne LUB to be examined 1s assignedj| 

jto the PUB specified, the asSignment | 

jis reset. | 

h | 
L058 jkRegister 8 1S incremented by 2 to | 
{point to the next LUB. j 

| 
| 


~ ‘bp 
™) 


R2,R4 


bs) 
a 


! 
pif not all partition LUBS have peen 
iscanned yet, pranch back to check t 
jnext LOB ewww eww maces eaccccccoscnces >| LUDO 


eu 
Ve 
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jLabels jChart LU: IPWS$LU - Update LUB and PuB jModitied Data jReg. ,Calils 
- |Tables {|fleLds iWsage | 
j\fhe PUB pointer in register 2 1s 
{multiplied py 2 (PUB ownership table 
entry width) to provide the proper 
jtable index. 
i 
jfhne address of the PUB ownership 
{table entry for the PUB concerned is 
Calculated 1n register 4. 
L 
{Using the partition index in 
jcegister 6, the address of the 
correct ownerShip mask 1s loaded in 
jcegister 2. 
1 
j/I£f the PUB 1S not owned py tne 
jpartition concerned, branch to j 
}function AXLt asnccceoccasvccenccecccer| LUYV 
! \ 
|Otherwise, Ownership 1S released. t 
! k 
{}Branch to function exit.. @eeeee#s eece ee 7 {| LUYV 
\ 1 
! Release Specitic PUB Routine: | 
i | 
LUo00 jThe device address passed in register} 
$2 in EBUCDIC representation is checked} 
tfor valid hexadecimal digits. j 
| | 
jIf device address specification in 1 
Jecrocr, DOaANCH accecccacaccccesesaccece| LUOX 
| 
sOthecwise, tne device address is 
jconverted to true hexadecimal. 


=e) 
££ 


we eee ee 
be] 
tS 


PSVR2(LEWSDSV) 


— oe ow wwe ieee eee ieee oe ee ee ee le 


)The PGB ownership taple address is 
jlLoaded in register 4. 


b= 9] 
Baa 


i 
\ 
1 
| 
| 
jfine PUB table address is loaded in | 
jcegister 7. 1 
{ 
}fhe rollowing loop scans the PUB i 
jtable for the PUB with the specitied | 
jdevice address. | 
‘ 1 
LU62 tIt the PUB to be checked contains the} | 
{specified device address, pranch to | i 
1 

| 

| 

1 

| 

| 

1 

\ 

\ 

| 

i 

\ 

| 


Lao) 
=) 


jcelease OWNECSHLP.ccccacccacncacaeee>f{LUo4 
‘ 1 
}Otherwise, register 7 1S incremented | 
iby 8 to point to the next PUB, and | 
jcregister 4 1S incremented py 2 to | 
Jpoint to the associated PUB Ownership) 
jtable. | 
i 1 
{If end of PUB table, branch to 1 
fandicate not Found. cease ceccec acevo ee >| LUOK 
\ ! 
jOtherwise, branch back to check next | 
PPUBs. cc cncnvcnccccccecccascessccnacsor{ LUO? 
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= 


—_ 2 ew ow OH = Ow oe we we iw © we ow oe Oe ow we oe Ow © i owe ee 8 oe 8 oe Oe oe ew es oe ee w= we = ee ee oe i we Se we ee ee ee ee ow Se a oe 
m 
- 


Chart LU 3049 


fb ope ew owe oe eee eee eee eee eee eee 


Licensed Materiait - Property of IBM 


rrr rr rere we we wm wn we wm we ow rw ww ow wm wwe we we we ow we ew we we we we rw we ww ww we we ow wm 7 


jLapels 


310 


iChart LU: IPWS$$LU - Update LUB and PUB 
}Tfabies 


}Ihe PLiK 1n register 6 1s shifted to | 
fconvert it to a partition index. | 
b t 
{Using this andex, the address of the | 
jcorrect ownership maSk 1S loaded in | 
jcegister 8, and, if the device { 
iconcecned 1S not owned py this \ 
}partition, a branch 1S made to the t 
;function CXACececcccvcecavccevcccse oe>} LUYVU 
I ! 
Otherwise, the owhnerShnip is released,| 
jand pbcanch to function exit....... -->};LUYV 
1 | 
' fdentify PUB of specified Luss: 4 
' 1 
iThe LUB specified, as passed in 1 
tregister 2 in EBCDIC representation, | 
jis checked to determine if LST 1 
1 (SYSLST) has been specified. } 
pit SO, DOANCH weccccacdcecsccceacese ner {Lule 
i i 
Otherwise, 1f SYSPCH has been | 
bspecified, DrANCNe cc aaccccacec scene aer{ LUIZ 
! 
ifne PIB address in register 1 is 
}Savedad in register 9 to allow for the 
Subsequent translate and test 
Janstruction. 
1 
{The LOB specification passed 1s 
{checked for valid numerics. 


— oe ee ee i ee 


' 

1\PLB address is restored. 
I 1 

tif LUB Specification in error, brancny| 

}to Alagnose..cecceee io SM eeleleieeeiwe ce oe? PLU EZ 
1 \ 
yOtnecwise, the LUB is packed, loaded | 

fin rcegister 9, converted to negative | 

{to indicate programmer LUB. ' 

i 

PBranch CO CONTINUC..cocacccccccesee ae rf LUto 
i 

yoYSPCH index (2) 1s Loaded in 
}cegister 7 (positive to indicate 
isystem LOB). 

\ 

PBLANCH TO CONTINUC cc we cece accecnce ae? 
i 

!S¥SLsr andex (3) is loaded in 
{register 7 (positive to indicate 
{system LUB). 


LU76 


—_—es ow ww we ew eS oe 
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ILabels jChart LU: IPWS$LU - Update LUB and pUsb jModitied Data jReg. jCalis b 

{TabiLes {jfrelds jUsage | i 
- a a ew a ee eee OS Ss Oe eS Ces ew SSFP we Ss ees ee Oe ee 2 2 Oe Oe SO SS ew ww Ss | ew ow ow ee we ee ee we ee a si a a ee j 
LU7J6 !The PIK 1n register 6 1S converted toj tRo 


jthe proper partition index tor 
tFLCL/NICL access, and used to load 
{the proper programmer LUB index in 


- ew ee =e 


jregister 8, aS weil as in pyte 1 of SVR2Z2(TPWSUSV) {R38 
ItasSk save area for register 2. | ! 
,ff LUB concerned 1s programmer LU5, \ hk 
PDEARCR cccecewcw eee sa ccceceusss coscec Pr fLOTs8 ‘ 
t t ' 
{Otherwise, using register 9 aS a work} {RY 


{register, the numper of system LUBS | 
tis stored in the first naltword of 
jtask register 2 save area, and 
jsubtracted from the programmer LUB 


\ 
\ SVR2(LPWSUSV) ‘ 
) 

jpointec in register 8 to have ' 
1 
1 


b> a 
[oq 


jregaster 8 contain the LUB index tor 

jtne first system LUB. 

' i 

Branch to CONTANUC oe were eccceccccec ee Pf LUIA 

i 1 

1fne programmec LUB number is made $ 

|poSitive again. ' 

t l 

Register 9 is set up to point to the 4} 

jnumper of programmer LUBS tor the 1 
' 
h 
i 


te 
a 
=) 
a 


| 

i 

| 

| 

\ 

| 

| 

| 

\ 

1 

1 

i 

\ 

t 

! 

1 

1 

i 

| 

\ 

\ 

1 

l 

\ 

i 
{partition concerned. j 
] 1 
{4 the programmer LUB number i 
|specified 1S too high for this ry | 
}partition, branch to diagnose.....-->}, LUIZ i 
i ! I 
ifhne (programmer or system) LUB number; t 
1 

{ 

| 

! 

t 

i 

\ 

| 

\ 

| 

| 

| 

1 

| 

\ 

1 

\ 

1 

! 

| 

\ 

\ 

i 

\ 

| 

i 

\ 

\ 

1 

1 

i 


t 
rau 
=! 
a 


11S multapiied by 2 to obtain the 
ipcoper LUB displacement. 

| 
iThe (programmer or system) first LUS 
jandex is multipitied by 2, and both 
jvalues are added to tne address of 
jthe start of the LUB taple to optain 
jtne address of the LUB concerned. 

! 
jit this LUB 1S not assigned, branch 4 

{to ALAgGNOSC ac ececcceccccacccccccccceer| LUIZ 
1 ' 
jOtherwise, uSing register 9 aS a work} 
}cegister, the PUB pointer is 
convected to a PUB adaress in 
icegister 8. 

\ 
!fne device address of tnis PUB 1s 
iconverted to EBCDIC in the 3 high 
jorder pytes of the task register 2 
}save area. 

1 
ifne device type 1S copied from the 
}PUB to the low-order byte of task 
jcegister 2 save area. 

1 I 
pBranch to Function eXit.cecewccceee ee >f LUYV 
| | 
}Return parameter iS made Zero by | 
jcleacring task register 2 Save area, | 
fand Deranch tO GXltecnanneaccecscccacert LUIYV 


SVR2(LPWSDSV) 


SVK2(LeWsDSV) 
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jLabels |cnart LU: IPWS$L0 - Update LUB and pus f[moditied Data jReg. {Calls 
j }fables jfrelds jUsage |} 


) Identify PUB of System/Programmer } 
i logical unit: 
| 


| 

\ 

| 

' | 
pRegister 7 1s loaded with the logical i 
junit and the type code pyte is | 
jcleaced. i 
’ | 
jif tne sogical unit 1S a System unit,}| \ 
}orancn to define the cuu.........--->} L070 | 
jOtherwise, make the contents of j ! 
jcegister 7 negative, and branch to | \ 
PaeLine the CUUsss scesecwsecceancce seed) L070 | 
1 1 | 
jUsing register 4 aS a work register: | i 
! ' \ 
}- The programmer LUB index 1s loaded } | 
{ into register 7. t | 
}-~ The number of system LUSBS is Loaded} i 
j ainto register 8. | i 
\ I 
}fhe undex to the system LUBS 18S | 
jcalculated in register 7. ! 
1 { 
yThe address of the SYSLST LUB of the | 
jpartition concerned 1s caiculated in | 
jcregister 7. | 
\ | 
jIf assign function was requested, j | 
[DEANCH tOetss were sceecweteeuw ewe ee ac? PLUGS { 
}If tne LUB to be examined is i \ 
jassigned, the assignment 1S reSet. f | 
{Branch to ELuNction eKXit..ccwcccccc ce rf LUV j 
| 

1 

| 

I 

| 

| 

| 

i 

l 

I 

i 

| 

i 

i 

| 

{ 

| 

| 

1 

i 

i 

| 

| 

i 

1 

\ 

\ 

| 

i 

| 

| 


tC 
G 
a 
° 
bo 
~ 


= Cd 
~) 


w 
+= 


bR7 


{Ro 


}RF, Ro 


1 1 

;L£ the S¥YSLST LUB is already j 
{[aSSigned, DLANCN TOsccceccnecccccee oer LU34 
;Otherwise, the Low-order byte of ' 
jcregister 2, containing the PUB index,| 

jis stored in the SYSLST LUB, thereby } 
jJassigning it to the PUB concerned. | 

1 
i Assign/Unassign SYSLST 
| 
{fhe PLB address in register 1 1s 
}Saved in register ¥, because it mignt 
jbe destroyed in the subsequent 
jexamination of the device address 
jpassed in register z. 

\ 
jThe device address 1S checked for 
jvalid hexadecimal digits in EBUDiC 
jcepresentation. 

i 
}Tne PIB address is cestored and, if 
jdevice address in error, pranch.....> 
\ 
Otherwise, the device address 1s 
jconverted from EBCDIC to true 
jhexadecimal representation. 
jxegister 2 1S initialized witn the 
)}PUB table address. 

{fhe toliowing loop scans the pUsb 
jtapie for the specified device 
jaddress. 


t 
c 
a 
its) 


. 
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LU 3Z 


SVR2Z(LPWSDSV) 
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}Chart LU: IPWS3LU0 - Update LUB and PUB 
tiabLles 


If end of PUB table is reacnea, j 


joranch to indicate eError.cce cece ese >| LU 34 


1 \ 
Otherwise, if current PUB is the PUB } 
}for the device address requested, i 


POL ANCN CO PLFOCESSS cecccccccccccceccee >f LUSS 


| k 
jyOtherwise, register 2 1S incremented } 


jpy 8 to point to the next PUB, and t 


{branch pack to check next PUB.......>4LU8/ 
+ \. 


{fhe start address of the PUB tapdie 1s} 
|subtracted and the cemaining 
jdisplacement 1s divided py 8 to 
iproduce the appropriate PUB pointer. 
1 

rhe PIK in register 6 1s converted 
}to the proper partition index for 
{fFICL/NICL access. 

j . 
j Function Exit Routine: 


i 

ifthe system 1S now released py the 
}PUB/LUB update routines: 

| 

!Register 0 is loaded with 255 (A*#F*) 
jto Signal enabled state, and an SVC 
122 is issued to release the system. 

4 = 
iCalier*s registers are restored and 
tcontcol is passed back to tne caller. 


1 ) 

13800 Printer Setup 

t 

jOn entry the following register 
{contents are relevant: 

1 

} 2 index to PUB entry 

1 7 address to LUB 

{74 return address 

! 

{Check whether the TCB beiongs to the 
{command processor task. If so, 
jcetucn to caller via register tH. if 
}the [CB belongs to the Initiator/ 
jferminator taSk or the Print Status 
{task, return iS made to the caller 
{Wia cegister 14. 

1 

jfne address of the PUB ownership 
jtaple entry for the PUB concerned 1s 
[itoaded in register 3. 

1 

ifne ownership code for the partition 
janvolved is loaded into register 1, 
}using the partition index byte in 
Icregister 6 to address the applicable 
joyte of the internai ownership 
jcefecence table LU3Z. 
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sChart LU: IPWSSLU - Update LUB and PUB 
{Tables 


jL£ not owned by the partition j 
jconcerned, return to caller via 
Iregister 14. 

{Otherwise, register VU is loaded witn 
1255 (x*FF*) to signal enabled state 
fand an SVC 22 is issued to release 
jthe system. 

\ 
jLoad the length of the temporary work 
}space in register 1 and reserve work 
|space. 

' 
{Set up register 4 as a pbaSe to the 
}wOrk Space area. 

I 
{Copy the storage descriptor into the 
}WOork space area. 

| 
{Save registers 14 and 15d. 


\ 
| 
i 
\ 
\ 
\ 
1 
1 
! 
i 
\ 
\ 
\ 
I 
! 
1 
! 
1 
| | 
ifhne model SETPRT parameter list and | 
{the L0B address are moved into the i 
)WOrK Space. ) 
! \ 
|Storage 1S reserved for the service | 
{ceguest block (SRB). } 
| | 
}Register 3 1S set up aS a base to tne| 
ORB. ] 
\ i 
JSETPRT rcequest 1S indicated, and the | 
tparm field in tne SkB is set up to | 
}point to the SETPRT parameter list. | 
1 4 
}Tempocarily assign a new register j 
jsave area. \ 
1 ) 
{Pass the SETPRT reguest to } 
jasynchronous service for processing | 
jiepwWsIaS TYPE=SERVICE. | 
\ 1 
{Unassign the temporary register Save } 
Jacea and reassign the original. i 
1 ) 
}Restore registers 14 and 15. j 
{Release the service request block. j 
\ \ 
|Release the work space. i 
1 ! 
{Selze the system again for furthec i 
jexecution of the function through an | 
1sVC 22. Parameter register VU will \ 
icontain 255 (X*FF*) to signal that h 
fainterrupts are allowed. h 
1 hb 
Jketucn to caller via register 14. j 
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LUwWS(LUWS) 


LUGR (LU WS) 


LUSP (LUwS) 


SRBRBY,SRBPAKM 
(LeWSDSR) 


LUSV (LOWS) 
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jUsage 
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r 
| 1PWSSLW - VSn/POWER Logical Writer 
}-——_-_-——+ 

4 Label { Routine 
-——_——_+—— 
PJ00 Pass Output to physical Routine 
PI88 Put data record Subroutine 

2J98 Get data record subroutine 

acdo Accounting Routine 

nJ00 Start of new Job (Queue entry) 
bU30 End of Queue entry 

aB0O Apnormal Condition Hdandler 

suo01 Setup Handler 

KSO1 Restart dandler 

Sh00 Separator Handler 





oe aa 
— eae oe ee we ee ee oe 


ioe 


| services Used 
b . 
} service } Macro 


| 


| task Management ) TewSwFko 

| LPwoewro 
{+ 
} Resource Management | TPWSRLR 
i | LePWHRsSR 


_ 


torage Management } LTewSRLW 
| LTewSRSw 
} IPWSRLV 
} IPWSRSV 


Message Service } LTPwSGAM 
DISK / tape Service | LPWSRDD 


| IpwSRDOQ 
} IPwSCTT 


| Laimer Service | LTewSRDC 
a re ee re 
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Ce ee re ee Ee CEO eS a ne Oe a Oa ge he ee ee ee Ee ae OE ee ge ee eet ean ee 
} Interfaces used t 
| Module | Macro ht 
t--—__-—_——_——— HS OOO ee ON eee 
| Physical Routine } IPwSPLR ki 
[Scan a a eR cP ae Pa a a a a Oe SE! | 


rer rrr rr rare rR, 


) Functions used A 
}-——_—_——_—_—__ ————————————— — t 
{1 Module } Macro i 
4-H 
} LPWSSGD | IPWSGDR A 
} LPWSHNQ } LTewscos 1 
} LERSSvO | IPwsDQsS | 
§ LEWSSFQ } IPwSFos ] 
} LPWSSPA/PF | IPWSEAR ij 
(ee 
GSnoe a  e Se a oa ee ge a ara en eS ete ee ee ee ee Ee ee ee ee —) 
} Called by 1 
SS eS ee —- 
t Module } Description } 
-——_-—__—— Oh OOO Ss 
} LPWSSL7 | VSE/POWER Inatilaiization i 
| LEWSSPL } Physical List ] 
| LPWSS5PP | Physical Punch i 
} LPWSSSA/SF } Save Account j 
} IPASS5SM. |} Spool Manager (X-partition interface) j 
| LPWSSBWR | RJE,BSC List/Punch Routine } 
| LPWSSOB } RJE,SNA outbound Processor h 
| CE ee ee | 
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BF ae re ee Pee ere eae ee ee nee a a ey Pe ee pe ee age oe en ay es eae ee eae eee 
jLapbels |Chart LW: IPWSSLW - Logical Writer |Modified Data }Reg. jCalis } 
\ i jFields iSsage | i 
[Se a a a a Tae ee ee ee ee ge eg ee ae I 
LwSD {The first 16 bytes constitute the 

{section descriptor: 

\ 

{*LWCs release® 

i 

}On entry, the following cegister 

contents are relevant: 

\ 


Permanent area addcess 
Address of writer TCB 
Address of writer taSk Save 
area. 


jiewSDPa 1220 
}LewSoTc {R21 
| lpwSTSv (R13 
\ 1 


= 


U 
1 
3 


eo 08 ef 


— oe =o oe 


\ 

| 

\ 

\ 

I 

1 

| 

) 

\ 

1 

1 

1 

1 \ 

1 jfntry 1S made at thiS polnt whenever 
1 fany writer task (physical list or 

| jphysical punch) issues its first 

\ {ieWSGLR call for a data record. 

| ! 

| {Pass Job Output: 

\ \ 1 

} LwO00 }Register ¥Y is loaded with the routine} 

\ tocigin address to serve aS the pase | 

| jcegister. Branch OVer Bain routin ..>jNJO00 
\ t | 
|PJOO }Get next data LecOrd wenn neacecccee >| PUYY 
\ \ i 

| jif immediate stop is indicated in } 

| ITCB Of taSk, DrANCh COsccnce ce cscceerf HYIZ 
\ 
\ 
1 
i 
1 
| 
1 
\ 
| 
| 
\ 
| 
1 
1 
i 
\ 
| 
| 
| 
| 
| 
| 
| 
1 
1 
1 


— ee ee we ee er ee mw we we ee 


1 i 
PJ10 jReset restart page count. i 

j i 

jif no normal condition 1S posted in |} 

{the £CB, a pranch 1S made to.....-- >} A800 

\ i 
PJ11 jis first time for this copy? | 

,1f no, .pranch COw a wie ie Glee: Sed a cade ele tee >, PIID 

\ \ 

iIf spool management request, pDranch |} 

PTO ee wan cec ener eres evriecscccenccrecsesace >} PJD 

1 | 

ja link is made to the Separator 1 

{COUTANC aoc evveeececcranaceccsacscaceas >1 S800 

1 1 

pset first time indicatoc off. | 

b \ 

{If separator pages/cards are written,| 

jstact over again; brancn to......-. >|PJUUU 

1 1 
PJ15 jif a restart or setup command has ' 

jbeen given, a brancn is made to | 

Iprocess TeStart OF SetuPpwccccc eens A>|RSVUV 

1 1 

}Othecwise, a link is made to nandle | | 

PACCOUNTING caw cece rr ecceeccnccerccces >, aACvUVU 1R4 


oe ne ee a ae a ee a ee we a we we we ew we ow wm oe we nw ew we ie we ae oe eo ee we ee we oo ae re rw we ee we wn oe om 


URRR (LE WSDYR) 


R3,Rt9 


LWT (LPWSDIC) 


_— oo we we a oe oii i ee eee 
—_— = eee ew we ee eee eee eee ie ieee iii 


—_— oe ee ree eee eee ii 
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\ 
\ 
\ 
1 
t 
\ 
) 
l 
h 
t 
i 
' 
I 
i 
' 
i 
i 
4 
' 
' 
' 
’ 
' 
\ 
\ 
i 
\ 
b 
i 
b 
\ 
\ 
\ 
\ 
b 
\ 
i 
! 
' 
t 
i 
' 
' 
' 
) 
\ 
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Oe Oa Ee ee See wee eS Pew ee Ow Se eS oS ew Ow we Se Ge Ce ow we ow ww we Pew @ Oe ww we Sw ww we wwe we oe ee www ow & ow wow 


|JLapels jCharct LW: IPWSSLW - Logical Writer iModitied Data jReg. $Calls 

| { j|fielas jUsage ) 

} oe we ew ww we we ee wee Owe eee wee we we ee ew ew we ww ww we www ew ow ew ww we ew we ww we oe www we oem wr we wee wwe ewe we eee ee ee we eee 
PJ20 {A link 1S made to pass the data } R38 


i I 
| {record to the physical routine..... >| PJIV | 
l i 1 l 
i }if end of data 1S not indicated, a j | 
i jbrancn 1s made to process the next | 1 
Pdata LECOLd. . ccc cc ccccccacccencceses D>} PUUV | 
| i | i 
| jUtherwise, if page setup wasS active, | | 
} ja branch is made to close page j 1 
| PSOTUD . coc ccc cerca cccccccccrcccceces >1SU4V | 
I ‘ 1 1 
j Jif cestart to be hanaled, branch } j 
! | CO 6-0: oes 0Sse,6 6 6:8 6106's oo. 0s 0 6.0.0 «eee ce PO ERSUO | 
| \ | i 
) }The option byte in the maSter queue j| t 
] jcecord 1S examined to determine, if 4) t 
| {the user wantS separator pages. t | 
| PID not, DCaANCNececcc anne nsec ccuccceer>| PILZ | 
| I ! ! 
) jset first time indicator on. t joweT(LewsDTC) 
}Pd22 jIif tnis 1S not the last copy, then i | 
| POCANCH asec cenc cece cccccscccccancccas 2/PULZD | 
t \ i ) 
| {Read first-in-set queue recora, t | 
] junless this 1S a tape taSk or the | | 
j jtirst in-set queue recora is already | t 
| jin storage. ] | 
| 1 | \ 
} PJ23 {if a Spool management request, pranchn| { 
| PECs Wad ee eee eeael > oeee sees es: 2 (PIZS } 
\ ' i l 
J ja link 1s made to print end separator] | 
} PPATGES. come ccc ccc cacceccceccccccsces > SHUU i 
i | \ ! 
{PT25 ifhe general purpose byte is reset. j } 
! ‘ \ ! 
| \ i 
I \ i 
i | 
i | 
| | 
l \ 
\ | 
\ ! 
| 1 
i i 


LEPWSKDY 


R3,R15 
TCGP (LPwSDTC) 


jir the current queue record is the 

{first in set, or 1f it 1s tape 

}spooiing, a branch is made to Skip | 
jthe cead of the first 1n Set ..-.2.-.>| PU 30 
\ | 
}Otherwise, the first-1n-set pointer | 

}1S moved from queue record to TCs. 1 

! | 

An 4LPwH$RDQ call ts issued to read the| 
{|Lirst-1in-set queue record. j 


TCyW (LLWSDTC) 


LewSkvDY 


—_ we eS oe Oe ee ee ee eee ei ee ieee iii 
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yLapels iChart Lw: IPWS$LwW - Logical Writer j\Moaitied vata jReg. }Calls 
\ \ jfreldas jUsage 4 
] eae ee ee Oe oe ee me ee ee ee ee ee we ee oe ew oe we we we we wm we we ow we we we we we we we ww we ew we we = ow oe ee ee Oe oe ae oe om ae we ee oe a ee = ee we ee ew ee ee ee 
PJ 30 {The numper of processed copies 1s 1 {LAwS (LADS) 
jincremented by one. i 
\ 1 | 
jit present task 1S an active spool i | 
jManagement (GETSPLOOL) taSk, branch tol i 
pend-of-JOD PLOCeESSING.cccccccccceee Hf HUIU | 
I i | 
jff the jod 1s in boundary state " \ 
,Oocranch to end-of-job procesSing.... >| EU3U | 
t 1 
jhe numper of copies Left to pe | } 
Jwoitten is loaded in register Uv. i \ 
| 
| 


=v) 
Cc 


jlf ail copies have peen processea a J LWnC (LPwhurc) 


jorcanch is made to handle end-of-jop jukNC(LPwWdDUK) 
PCONGLTION coc w ccc ec ccneracerscacccese >) Ev3sV | 
i 
PJ4O0 jOtherwise, processing of the 
jcemaining copies is prepared: 
' 
{An empty data bDLockK 1S indicated. TCrR(LePwWSDIC) 


| 

i 

| 

| 

| 

\ 

1 

1 

\ 

1 

\ 

| 

! 

| 

| 

\ 

1 

| 

' 

\ 

; 

i {The data pointer 1s moved from queue [Cow (LePwhvtc) 
4 jrecora to TCB to reset the data 

| }pointer in the TCB to point to the 
| {start of the current jop output. 

| ' 

1 jfhe updated remaining copies count 
1 } (having been decremented py one py 
1 jthe BCT instruction controlling tne 
| joutput copy loop) is stored pack in 
1 

| 

| 

| 

\ 

l 

| 

| 

\ 

\ 

\ 

\ 

| 

\ 

| 


ee ee ee 


— = eer ae we ww we eee eee 


ithe CB. iLwWNC(Lewsdic) 
' | 

{ihe current page counter in the JLACP (LAavS) 
faccount work space 1S set to zero. \ 

b 1 

ifthe curcent line/card counter is set | LACR (LADS) 

}to zero. 1 

h { 

tWhen double data file burfering, the | juC2bw (LPWduLC) 


}seek address of the first data plock } 
41s moved from the queue record to tne} 
jdisk cequest word tor the second data} 
jfile puffer in tne TCB. " 
(This is done to indicate; first time} 
{through now.) } 


— ee we eee eee ee eee eee 
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Labels 4Cnart LW: IPWSSLW - Logacal writer iModitied Data iReg. jCalis 
1 ! |Frelds jUsage Jj. 


| 


{PJ42 ff tnis is not a 3800 printer, prancnj | 
£00 666.5 6S Se wk ROS 66 i OH eee Se Seine es. OL PIEA i 
' 1 ! 
yOtherwise, address 3300 ICB extension|j | 
JPTE3SCGL 
| (ipwSdDT4) 
| 


jarea and increase copy group index by|j 
pone. | 


iThe L/O command code iS Set to ‘end 
of transmission*® and the length 1s 
{set to one. 
} ‘ 
}A4 link is Made to the physical } 
POOUTAUNS ee ee ae ec wec rec eve cecccecanccececsn >| PJYU 
\ 1 
PJ44 }If punch output is veiling processed..>| PJUU 
jOtherwise a Skip to channel one j 
jcrecord is passed to the physical j 
PCOUTANES. ce ceccececccccascccccacecscaer| PUYV 
b 1 
{On return a brancn iS made to handle | 
: j the current job output. eeeeer we cccaeer| PUUU 
1 | 
{Put data record subroutine: | 
4 4 
{f£h1is suproutine passes each record to} 
jthe physical routine. | 
jiwo entry points exists: 
{PJ8s - to indicate mount forms 
! requested tor RJE tasks 
e390 - to pass all records to the 
! physical routine 
t 
PJ383 jindicate set up to RJ. 
I 
PJY¥0 jParameter register 0 1S set up with 
{the data record address, register 1 
}2s loaded with the record length. 
i, 
jIf task is in stop sState....-...2.2--> 


|ECCC(LPWS$UEC) 
pLCRL (LEWSDTL) 


9] 
a 


£CCC(LewsurC) 
ECKL (Le WSDLC) 


HCCC (LEWSDEC) 


mw 
= © 


EQ 70 
I 
PJI6 control is passed to the phySicat LPwWSPLR 
jwoiter. 
i 
jIs request for spool management 
1 (GETSPOOL) ? 
jf££f not, return to calier...-....22-2 > 
! 
{Request for open logical writer 
janterface? 
\ 
iff yes, reset indicator and pranch to| 
Ireopen Logical Writerewceccccecesae P| NJVO 
4 I 
PJy7 jis ceguest for close logical writer? | 
| \ 
Lf yes, reset indicator and branch toj| 
close logical writer... eeeneee ee HP PUZD 
}Otherwise return to Ccallereceeeeees AJR 


ae ee we ee eee eee ie 


LCoS (LrwpulC) 


CSS (APWHDEC) 


mee ee wee oe ee ee ee eee ee ese ee eee ei i ew 
owe wee eee eee eee ieee ee 
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j\Get data record subroutine: 
1 4 
}if no workspace was prior acquired..>|PJYY 
jOtherwise release workspace. j 
1 1 
tif no skip to channel record was } 
finserted, branch tOcccccncnccccccecs >} PUAV 
}Otherwise, setup skip to channel 1 | 
record and reset current line count 4 
jand return to Caller... ec enacec ee >fR8 
1. 1 
$Get next data record. | 
\Trcuncate record to maximum of 512 i 
jbytes if neccessary. 1 
I ' 
{if record iS an internat control i 
}record (op-code=x*Pr*), brancn to...->)PJYA 
i i 
{If op-code is x*00*, put no last i 
joutput is being processed, return to | 
Ker St 8} a ie id Bi) 
{If first time, turn off switch and ‘ 
PDCANCH co cceeeccnescevcceceececccsesccesr| PJAY 
! i 
iif page overflow or no iine counting | 
jis wanted, return to Caller.....2..->}Rd 
}Othecwise increase current Line count} 
{and compare against maximum. If not j 
jhigner, Ceturn to Callelececuccnaeveer>f RG 
1 i 
|Setup SKip to channel one record and 4 
|}save original record length and ' 
jcetucn to CaLleresiswsecc eee cececee ser PRS 
i i 
tif not Job header record, brancn....>}|PJAo 
{Save line count per page and pranch.>j|PJAV 
\ b 
jit not Job trailer record..........->} PUYB 
iff not end of data ais indicated.....>|PJAO 
\ 1 
pGthecwise puild NOP-record and return} 
{to CALLEL cnc ccc ccccccccacccanccecee>| RY 
1 , 1 
tturn off TRC processing tiag and i 
jiandicate first time through now i 
iif record is a Dataset header record,} 
{branch TCO ccc ec cccrcncccaccccccccccosec| PUYD 
1 ! 
jit the printer 1S a 3800, the SETPRI | 
}parameterlist, which 1S contained in | 
jthe old FF-record, 1S passed aS a \ 
p¥D-record to the Casler...ce ec eeeaee >f RY 
t i 
4 Otherwise a dataset header record, i 
jconsisting of the generai section, 15sj| 
jouilt and passed to the caller. 1 
jit is created with tne foilowing: 1 
te length, type and moditier { 
te FCS name } 

1 

! 

\ 


je UCS name and options 

j* Forms id 

{Indicate data set header record 

jcreated and return to caller .......>{ kd 


jModitied Data 
}Fields 


TCF3(LPWSvEC) 


|PCCC(IewSDEC) 
jwCRL (LeWSDLC) 
|LWICLC? (LADS) 
! 


LWLf 1EL (LADS) 


LWiCLCT (Lavs) 


|TCCC(LeWSDEC) 


[LCRL (LE WSDL) 
{LWiSVRL (LAavS) 
| 
1 
JLWLILNCT (Lavs) 
i 
' 
1 
i 
JLCCC(LPWSDTC) 
|TCRV (LPwsvtC) 


' 
J} OTs 3RYB (AP WSUTC) 


| LWi PIPL (Lav S) 
j 
i 
1 
pUCCC(LEWSDEC) 
JUCRV (LPWSDEC) 
| PCRL (LPWSDTC) 
| 


| TC#3 (LE WSDTC) 
| 


a ww ee ie Sw i ei ei oe oe oie ei i iii oe i 


Reg. yCalls 
Osage b 
1 
' 
‘ 
R1 jLlewsRLV 
1 
1 
\ 
] 
1 
1 
] 
{LewsGoOR 
R} t 
} 
1 
\ 
\ 
1 
i 
\ 
i 
\ 
1 
| 
1 
\ 
R15 4 
\ 
| 
\ 
i 
\ 
4 
i 
\ 
\ 
i 
1 
| 
\ 
R14 j 
| 
i 
I 
\ 
1 
1 
\ 
R15 ) 
| 
\ 
f 
\ 
jiewsRsv 
RU ,R2 } 
\ 
\ 
\ 
i 
1 
\ 
b 
) 


Chart LW 


321 


ee ee ee ee ee ee ee ee 


4 
t 
t 
! 
' 
' 
' 
t 
' 
! 
' 
' 
' 
' 
t 
' 
’ 
' 
t 
t 
' 
! 
' 
' 
t 
' 
' 
‘ 
( 
i) 
' 
' 
' 
' 
' 
' 
' 
' 
t 
' 
' 
' 
' 
( 
' 
' 
' 
' 
' 
' 
{ 
' 
' 
' 
' 
t 
( 
' 
' 
t 
! 
' 
' 
' 
t 
' 
' 
' 
' 
( 
t 
' 
! 
' 
t 
' 
' 
t 
t 
| 
| 
t 
t 
' 
' 
| 
| 
t 
‘ 
! 
‘ 


jLabels 
| 


322 


{Chart Lw:° IPWS$$LwW - Logical Writer 
i 


jif dataset header record consists of | 
jrecord characteristics change section} 
joranch to oS Meee sie veese ecco e cacece?| PUAD 


1 1 
Otherwise locate VSE/POWER section in} 


jdataset header record- 1 


f4E NOC FOUN. ccccacvcccccceccccesceeor| PUY 
{ ! 
(Copy partition 1d and S¥Sib into ) 
{printer TCB extension area and Set j 
tpage overflow flag, if applicable i 
1 , 1 
iff the printer 1S not a 3800.22.62. 22-.>), PUYX 
1 1 
ifthe seLrPRT parameterlist which is } 
jpact of the VSE/POWER Section of the 4 
jdataset header record, 1S passed as |} 
{#D-record to the caller... ee ee eee erm PPUYK 
) ! 
{Lf printer 1S not a 3800. cece eee ee eo mf PIX 
1 ! 
jLocate optional 3800 section in data-| 
iset header record. If not found.....>jPJyL 
1 | 
{A Fu-cecord, containing the SrTPRT ' 
|parameterlist 1S puilt and passed to | 
jtne caller. t 
{ Foliowing information are extracted | 
jfrom the 3800 data set header record j| 
jsection: j 
te Copy count/groupings j 
je Fiash name and count j 
je Bucst } 
te Character arrangement tables | 
je Fiags | 
te Copy modification name } 
jindicate to release workspace, next | 
{tame the routine 1S entered.......-2->|PUYX 
i I 
{Bulld SETPRI parameter 11st, 1 
jcequesting hardware defauit printer | 
jsetup: ' 
}* initialize printer t 
ie forms id j 
je Flash name | 
] 


PREtTQCN CTO CallelFecceacccecacescscccce* {RY 
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IModiried vata 
|fielas 


—— ee ee eee oe oe 


|PLEPLD (LPWSDLE) 
| PLESID (LP wSDTE) 


| LWLF IOV (LaDS) 
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jLapels 4} 
1 


ee ce ee ee er se 


4 | 
1 \ | 

j£his routine handles updating of ' i 
jcounters relevant to accounting such | | 

yass 1 1 

\ ! \ 

j2t restart iS active - j | 

1 1 1 

jextca card Line count (LAER) | | 

{|#Xtra page count (LAEP) | \ 
jRestart current card count (LARC) } i 
{Restart current page count (LARC+2Z) |. | 

\ 1 { 

Jit restart iS not active - | | 

1 \ | 
Current Line card count. (LACK) | | 

yfotai lines/cards from data file (R7)} \ 

j&otal pages from data file (LATP) | i 

1 1 | 

AcCOQ pRegistec V is loaded with the | 1 
jancrement value 1. | i 

\ h | 

jif the current task is a puncn task | \ 

‘yor active spool management reyuest, al ! 
jorancn iS made to handle puncn { j 
PACCOUNTING ane eneccccccsscenccenacesn P>PACLU } 
| 1 | 
jUtherwise, 1f a *space*® 1S indicated | t 
jin tne general purpose byte, a pranch| | 
jas made to handle line accqunting.. >{AC30 | 
! | \ 
}Then a test 1S made of the command | | 
{code pyte TCCC in TCB to see whether | | 
ja SKip to Channel one has been j | 
jandicated by the Execution writer. 1 \ 
\ iY { 
$1if yes, handle it and increment page | | 

ICOUNTC Le cece ccccneccesccccccccoccace > ,ACVUZ t 

\ 4 | 

}It end of page has not been reached, } 1 

Jretucn to Calleraccccasccccnccccaccer| RE i 

! 4 i 

ACO 2 {The cestact current Line/card count | t 
(LARC) 1S loaded in register 1. j | 

] 1 | 

if restart is active, a porancn is j | 
jmade to update extra page count.... >jAC10 } 
\ b | 
pUtherwise, total page count (LAYLP) isj{ | 
jincremented by one, using register 1 4} i 
\ 

1 

i 

| 

i 

\ 

\ 
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jaS a work register. 4 LATP (LADS) R} 
' 1 
jCurcent page count 1S incremented py 4} LACP (LADS) R1 
jone, uSing register 1 aS a work 4 
jcegister. } 
j 1 
tControl iS returned to tne cailer. h R14 
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jLapels j|Chart LW: IPwWS$LW - Logical Writer |Modafied vata jReg. {Calis 
] j {fielas jUsage | 
j oe oe oe ae oo a em oe oe ae Se wes 2 a Oe ee we SB OS PO Oe SB we @ ee Se 2 eS Se 2 eT eS wee ae eine apg —_ an ae oe 6 oe ow oe OP we oe oe ee ee eee eee oe Re ame cae Ne a Us ae ee mee 
4aciod {fhe restart current line/card count | i R11 
jis incremented by one and stored back} j t 
jan account work space. t {LAKC(LADS) j 
i 1 1 
jfhe extra page count is incremented {LAEP (LADS) }R1 


}by one, uSing register 1 as a work | i 
jregister. 
! 


jif the restart current page count has} 


}become equal to the current page j 
scount before restart, a branch is j 
jmade to reset the restart j 


| 

1 

| 

| 

! 

1 

} 

! 

1 

! 

1 

! 

] PCONGITION cere ccccaecvacesecnaseccce XPALCDU 
b ' ] 

| futherwise, control 1s passed to the |} 

\ jcaller. t 

! ' 1 
}aAc20 If no indication is found in the j 

} igeneral purpose byte that tne cucrent} 

t }1/0 operation will cause a feed on 1 

) }the punch, control wiil be returned j} 

} }to the caller immediately. | 

| 4 b 

J AC30 } (This routine is common to line and |} 

} }card account handling.) | 

1 i \ 

b jif restart iS active, a branch is " 

j jmade to update the extra line/card j 

j PCOUNT. cc ccccenacccenceccccccccccccoe PJACHI 
I \ | 

j jUthecwise, the total line/card count 4 
i ifcom data file as kept in register 7 | 
| }1S incremented by one. t 
} }The current line/card count is t 
] jancremented by one using register 14 } 
i jas a work register, and control is } 
} jceturned to the caller. j 
i 1 
1 A 
1 b 
| \ 
1 

| 1 
| 1 
| ! 
! | 
| h 
' 

h 

| 

4 

| 

| 

| 

\ 

| 

| 

| 


LACK (LADS) )RI 


j y 
Ac40O {Phe extra line card count is 


finccemented by one using cegister 1 
jas a work register. 
pif the current task 1s a list task } 
jand not a spool management (GETSPOOL) 
jtask, control is returned to the 
jcaller. 
jOthercwise, the restart current card 
jcount is incremented by one using 
jcegisterc 1 aS a work register, and if| 
jthe restart current card count has j 
jnot yet reacned the curcent cara | 
}count, and control 1s returned to tne} 
jcalier. } 
i 1 
Ac50 pOtherwise, the restart condition is | 
jreset by setting the restart current | 
jiine card count to zero, reset 1 
jcestart active indicator, and contro.| 
jis returned to the caller } {2CG2Z(LewspdtC) 


LA&R (LADS) {R1 


pR14 
LARC (LADS) jR1 


2] 
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LARC (LADS) 
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: 
fLabels 4Chart Lw: IPWSSLW - Logical Writer |Moditied Data jReg. jCalis 
h j {Fields j\Gsage | 

[SS serse< ss ses —-<935 25S >=> we www ee ww ww em ew we em wr we wwe we wr we we ww ww we we ow ee ee ee ae a we ae ome me cee ee ee ee ee ee ee oe ee ee ee ee 
{start of New Job: 1 

\ i 
jfhe job poundary switch in the tcB is} 
jset. ! 
\ 

fhe first time switch 15 Set. 

| 

ito start processing a new jop*s 
joutput, a new queue cecord is 
joptained. 

| 

jit a STOP condition is detected 
}(lmpiying end of tape with tape 1 
ispooling), branch to detaCh.w.eee2- >) EVI2 
| \ 
}Registec 5 is loaded witn tne queue | 
ispace address from the TCB. \ 

\ 1 

{if register 5 iS non zero, indicating} 
jthat a yueue record has been ' 
joptained, a branch 1S made to t. 
PCONTINUC ce cmc cece case scaveccccecccevans 2 1 NU3U 
1 I 

{If the current reguest 1S GETSPUUL, } 
}then return to pnySical routine.....>|PJYD 
1 ' 

{it tne current task 1S an RJE task t 
Jtnen return to physicai routine ....>}EUS5 
1 1. 

{If message 10341 nas already peen ! 
bissued, DEANCh tOsscssceccsvccdecseses SPNIUS 
! | 
jOtherwise, (logical writer, no queue |} 
{cecorcd available) message 1y34I is t 
jassued. i 

i 1 
tthe selection field is Set up to wait} 
itor queue record and a direct link 1s} 
fmade to taSk MaNageMeNt.cceccacseee PETMUY 
! 1 

jon return a prancn 1S made to retry | 
{retrieving a queue LTECOLA. cc. caeeaee APNJUU 
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Labels 4Chart LW: IPWS$LW - Logical writer jModified Data jReg. |Calis 
| } }fields iUsage | 


‘ 
| 


| NJ30 |Read storage is reservea for the LDa. 
pif the input medium is a VSE/POWER 
{spool tape, the maximum LDA Size 15° 
jrequested. 


' JLPWSRSW 
) 
b 
| 
| 
NJ32 iThe reai address of the LDA 1S storedj 
1 
4 
i] 
1 
1 
1 


fCDAyLepwsDTC) 

jin tne Ts. 

iThe vartual address of the LDA 1s 

jused to initialize the previous 

jcecord pointer in the TcB. 

! 

{if tape spooling 1S active, a pranch 

}is made to bypass disk data address jj 

PSSTCIN Je cc cw ceca eccccncccccsccsees ALNJID 

' | 

tfne data address is moved from tne j 

Iqueue record to the TCB. 1 

| | 

if single buffering, pranch tO....- H>$NSID 

1 

The seek adaress of the tirst data } 

joLock is moved from the queue record | 

jto the disk Ceguest worx for the / 

isecond data file puffer 1n the 1CB. j 

' | 

pStorage for the second LWA {logical j 

jdata area) iS reserved. j 

) h 

jihe virtual and real addresses ot thej 

{LDA are stored in the appropriate } 

}dask request word. j 

j | 

}WOrK space is reserved for account j 

jhandling. i 

b ' 

jRegister 4 1S set up to address } 

jaccount work space. | 
\ 
1 
i} 
1 
j 
| 
b 
1 
t 
) 
1 
1 
\ 
i] 
i 


LCPR(IPWSuEC) 


TCOW (LL WSDTC) 


EC2DW (LPWSUTC) 


LePwWSRSW 


Ce ee 


}PC2Da (1 Pwsu'tC) 
jIC2DV (LewSDTC) 
! 


2 
Cc 
ua 
WN 


LPWSRSOW 


| 
ifhe work space address 1S stored 1n 
jthe ICB. 

) 
jfhe task start time 1s saved tor 
jaccounting. 

\ 
jThe numper of copies is moved fron 
jthe queue record to the TCB. 

1 
{If tape spooling 1S active, the 
jnumber of copies 1S reset to 1. 
' 
jfhe output device type as speciried 

Jin the queue record 1S compared with 

jtne output device type for the i] 
iprevious job as saved ian the I[CB. If] 
{device types match, or 1f the current| 
}taSk 1S an RJE task, a branch 1S madej 

}to CONTINUC se cedcscosnceevcanvsanvacsceees > | NI33 
i ) 

}it spool managemeat is active } 
}(GETSPOOL) then branch to get data. >} PuVv0 
\ i 

If the device type is unknown X*rFF*, | 

jor 1f this 1S Account output....2.-->|NJ38 


1 
pOthecwise, message 1Q041I is issued. } 


jLwWawWw (LPWSuTC) 
i 

! 

JLAST (Lays) 

i 

t 
JLWNC(iPWS$uLC) 
1 


1 
jLwic(LewSvEC) 


LPwhRvC 


4eWsGau 
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jlapbels jChart LW: IPWS$$LW - Logical Writer jmodified vata iReg. Calls i 
1 j jFreids \Usage 4 

NJ38 Get data record... we eee sees coc oweee wr fPIYS 


] ' 
bit this 1S not a LASt taSK.. ce eeeee AENIHV 
JIE tnis 1S not @ FCB Load. accaeecee AENTHO 
‘ } 
,if the task 1S a Local writer task, 
jbuct the new forms id does not match 
ithe one on the printer, the current 
1fFCB name 1S zeroed to force loading 
fof tne new FCB in ail cases. 
1 1 
}Pass FCB Load FCQUESE secccece cece eer} PUYV 
fand get next data Lrecorcdesacecceeeee >| PUyd 
1 7 
jIf tnis 1S a not a 3800 printer, \ 
for an RJEB taSk, DLCANCH COcccccceeae P| NS4Z 
! 1 
jfne torm-numbder, flaSh identifica- i 
jtion, and paper tnread request, as | 
{specified in the queve record, are i 

\ 

\ 


PTE FCSN 
(LPWSDTs) 


—_— Te es 


\ 

\ 

| 

1 

\ 

| 

1 

1 

| 

| 

| 

\ 

1 

| 

\ 

\ 

\ 

\ 

\ 

i 

i {compared with tne appropriate vaiues 
| yof tne previous job. If one of them 
} jas different, branch to issue \ 
j |MESSAG Ce eee ccacccccvccccccccccvcccece APNI4Y 
| \ i 
1 JOtherwise, DLANCh tOccenecceceeseee AINII2Z 
| | ' 
\ 

\ 

1 

1 

i 

| 

t 

1 

| 

! 

\ 

| 

H 

i 

| 

! 

1 

! 

1 

| 

1 

1 

\ 

1 

\ 


NJ42 \fhe rorms ID as specified in the b 
Iqueue record is compared with the b 
iformas ID of the previous job, as } 
jsaved in the TCB. If both iDs do not} 
jmatch, pranch to issue meSsage.eoee A>ENS44 
1 i 
if it is not a punch task, brancn tor, NJ8u 
jit the PAUSE option was not j 
Ispecified, DrAaNCh TOcccccececccccae AINUBU 
\ b 

NJGd jOtherwise, 1f the current task 15 not| 
jan RJE task, a Deanch is made to } 
tissue formS Change meSSageeccceccee PINJDU 
{If RJ&-BSC task, then branch to yueue} 
PMESSAGCe wee acca ncccccccccccccccces APNI40 
\ \ 
j&staplish addressapbllity in registec } pLCwBA(LPWSDEC) 
$2 foc the SNA logical unit control | | 
jtolock (LUCB). | | 
{Lf session allows PDIR record " |LUPD (LP WSDL) 
{branch to avoid queuing message.... >| NISVU {LU PS (AP WHvLD) 
] \ | 

NJ4o {fone remote id isS Loaded 1n register Oj j 
jissue message 1Q40A ON ttt FORMS ) 1 

\ 


ittff NEEDED FOR jopname, jopDnumber. 4 
ae ee ee ee ee ee ee ee ee ew we wee oe mw ee we wm ew eee Oe a ee ee we ee ee ee ae a oe ee re PY 


YCCU (LP WSDTC) 
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i . 
JLapels jCnact Lw: IPWSS$LW - Logical writer jModiried vata jReg. }Calils 
I t jfreias Usage | 
{NJ48 }A lank 1S made to the phySicat j 
PLOUTANE cence ccc nccnvceraesscreccccece >, PJaa 
jfhe tarst record 1s read 1n again...>|PJdy0 
jand a bpbrancn 1s MAAC «6. ase 6.0 o's obese >) Nu 70 
1 | 
NJ49 “pif a clear print 1S automatically | 
{2Ssued at end of jop time, branch | 
PTO ee mm cer cee arr meceerrcascencenscoce >| NIGA 
! l 
{Utherwise, Save current record 
control word in the TCB extension 
jarea. 
! 
jfhe L/O command code in tne TCB 1s 
jset to "CLEAR PRINT* and the iength 
jis set to one. 
1 
{4 Link and branch 1S Made to the 
jpnysical OWE DN Gici6. 6 ess ede eae e ie ele e ela > 
I 
;Restore actual record control word. 
1 
NJ4GA ifissue message 1YVADA. 
\ 
}Scanch to wait for operator h 
PLESPONSSCe)re cece ner ecvcecscccecseccccceces A pNJD4 
| } 
Nu5SO jfssue message 1Q40A. t 


j 
| 
| TCeR(LTPW SoTL) 
! 
! 
| 
! 
| 
! 
| 
\ 
| 
! 
| 
| 
| 
| 
| 
| 
\ 
i 
1 
l 
\ 
| 
| 
\ 
| 
| \ I 
| 
| 
| 
| 
| 
| 
| 
l 
i 
i 
| 
| 
| 
1 
| 
\ 
| 
\ 
| 
\ 
\ 
\ 
| 
| 
! 
\ 
| 
! 
| 


PT EGWA 
(LPWSDTS) 


ECC (IE WSDIC) 
TCRL(LPWSDTC) 


PJYU 


TCRW(LPWSDEC) 


1 


PWSGCAM 


3 
om eee ee oe ee ee ee eee ee 2 oe oe 


LrwWsGan 
NJD4 {an IPwHWwFO call 1S issued to wait for] Sewow sO 
Jthe operator command in response to | 
jmessage 1QU40A or 1QA5A. | 
| 1 
NJ70 jit FLUSH was entered, branch to.w.e- PHYNIIZ 
jif FLUSH HOLD was entered.......22- PJNUIZ 
1 ! 
jfine new forms ID in the fcB is Set } jLwel(iewsoic) 
jaccording to the queue cecord. ! I 
,it RJE task branch EO 66 S186 600 e.é a oe > NI72 j 
1 1 | 
jfhe new tlash identifier and the j | Lwrd (LPWSorC) 
jpaper thread request are Saved 1n tne} jLweS(LPwsDTC) 
sICB according to the queue cecord. } j 
! | | 
NJ72 jset the copy group index in the 3800 | jETE3CG1 
TCB extension area 1f present. } 1 (+P RW SOT) 
j 
h 


| 
| 
| 
| 
| 
! 
| 
I 
| 
i 
l 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


1 
NJ3O ja check 1S made if a PSTOP restart 

thas peen done. It not, a pranch 1s | 

$Made tO ODTALiN datAccnasccreccrecee AL PUI 

JLf PSETUP 1S given..cwwecccceseceee HENIYD 


indicate restart, get numbers otf j jLanC(LewsDTC) 
tcopies ieft and get restart page/ | ITYURS(LPWSDIC) 
jcard. N | 
1 i 1 
If copies left equal Zerow..neee eee PHPNUBD ] 
jotherwise set up copies left. j jLwaAC(LTewWSvTC) 
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i tapes 


By34 


jCnart LW: IPWSS$Lwa 


- Logical Writer 


{indicate restart for accounting. 1 
! 1 
LL 10 1S NOT 2 DHL. cece ccccccccece AEP IV 
potherwise do a secondary feed. ' 
{insert count. \ 
}A branch 1S made to process reStart >| PJi0 
' \ 
isnd of yucue Entry ! 
h ' 
Jif this is not a 3800 printer, pranch} 
PTO mec nccereccccccccnccccnceccscccce >) BYU34 
jissue end of traNSM1iSSiON...seeeeae PHP RUYV 
\ | 
{Check the option pyte in the master | 
fqueue record if a clear print 1s ! 
jwanted at the end of jop time. if i 
ISO, 1SSve CLEAL PLANT cc cceceecceee PI PUYD 
t 4 
j}A lank is made to the physical t 
PLOUTINEG. 2. ccc c ceca ccccccecacccccscce 2LPIID 
,1£f restart 1S not requested, }- 
SCONTINUCS Ateccevccccccccssccancecce P)LYID 
] ' 
jOthecwise: } 
}Set remaining copy counter to 1, i 
findicate restart at EOJ, and j 
continue with Restart Handler...... >| 
i 1 
\Get address of Sysconm. ' 
$(VM dand shaking change - CP close) i 
1 \ 
{Test if VM=YES option has Deen } 
{specified for supervisor (bit in b 
iS¥SCom). If not, continue with j 
PNOCMAL PLOCSSSING acecccecccccesccce Hf 
jBoranch and link to routine to close | 
{file when under VM ccc ccacecccccees APL 
\ ' 
{Release logical data area. Indicate | 
130b poundary. 1 
' 1 
}if a second logical data area exists, } 
jit is released too after any i1/O did | 
icomplete uSing this puffer. 1 
ifne puffer pointers in the TCb (reai | 
jand virtual LDA addresses) are set to} 
}zero. " 
! 1 
}A possible rcestart indication is set | 
{to zeco. ' 
if mot PFLUSH branch tO. caacecceaee >| EV30 
$ITf QROP=K HDrancChn CO.ccccacacncacece PELY37I 


}modirtied Data 
{Frelas 
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1 
JLCCC(sPwWSDOLE) 
{ICGP(LPwHvlC) 
{ 


LCCC (LE WSDEC) 


TCCC(LewDTC) 
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| LWNC(LewsDrc) 
| LWad (APWSDTC) 
| 


TCU B(LPWSvLC) 


TCDA (LP WSDIEC) 


URRK (LPWSDUL) 
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)Reg. jcalas 
jUsage j 
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| 1 

1 1 

' i 

i \ 

t 1 

1 | 

| 1 

h 4 

1 1 

' \ 

{ko \ 

\ 1 

iR2 1 

] | 

] \ 

1RS \ 

\ | 

1 | 

i 1 

' i 

4 i 

b 1 

1 \ 

i i 

i 1 

1 i 

i i 

}R2 fASYSCOM. 
j \ 

| i 

pu2 1 

\ 1 

h 1 

' \ 

}Rs8 i 

} i 

t | 

i {LPWwosRow 
h 4 

] \ 

4 {LPwWSROYD 
\ i] 

l pLiewdsk ow 
i 1 

) \ 

] 1 

i i 

1 | 

] \ 

\ { 
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jIf no flush hold condition 1s t 
jpresent, branch CO cee evceccesetsccesen >, EQ40 
' i 

pit tape, pranch TOcceecscennevnevvnacee >) EV39 
}Store number of remaining copies 1n 
jthe queue record. - 

iindicate restart from the beginning 
jof the job. 

1 

{Save the current copy group index in 
{the queue record if a 3800 {Cb 
jextension area is present. 

! 

jhe queue record 1S set to HOLD state} 
ySet termination to flush. } 
' 1 
sOtherwise, the queue record is set in} 
}HOLD state and the filusn nold Ih 
{condition 1s set to flush. 


ST Tr ee 


pfhe queue record is deleted. 
] 
{}£f£ neither PFLUSH nor PHOLD was t 
PES SUC Cie is sie wie o-oo Sd eine oe biere 66's e-s o ale we 7} Byvd4 
jxreset flush condition and set | 
IVSE/PUWER cancel COde@eccacaccccesee PJIAVU 
} . 1 
jit nocmal EOJ not present, | 
joranch COs eiaheere oS Sete e666 616 eee 6 166.6 ee >} LAVU 
jOthecwise, set normal EOJ cancei code] 
jin tne y record. } 
initialization of the account record }j 
}uS now entered. " 
1 | 
}if accounting is not supported, j 
Joranch tO SKIP ACCOUNTING. .o cc eee eee >| KYDS 
| 1 
kif a ROR queue entry 1s being } 
faccessed, DOANCh CO.cceeeccceseceee Pp HYDS 
t - 
pif the current taSk 1S a puncn task, } 
ja branch is made to bypass output 1 
}page COUNTING occ ccvcaccanccccccccace 24ITaZzvu 
h 4 
yOtherwise, register 41 1S loaded with } 
jthe total page count from the account] 
}wOrk space. } 
{fhe numper of pages aS Kept in the | 
iqueue recora 1S subtracted. t 

1 

t 


i 
itt the result 1S positive, a pranch 

11S made to continue page count ‘ 
PUMATIALIZATION. «oc cee ccccceccccccee APL1AW 
i 1 
jOtherwise, the extra page count in 4 
jtne queue record is set according to } 
jthe extra page count in the account | 
Jwork Space. 1 

i 1 
fhe total page count in the queue 1 
jrecord 1S also set equai to tne 1 
jcorresponding value in tne account i 
{work space. t 

iA pranch 1S made to bypass page i 
fCOUNECLNG steed pases oi tuews tees eece dep LAZU 


VSE/POWER PLM Part 2 
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QURDI (LY WSDUR) 
PCu't (APWSDPC) 
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Lore (LP wSvocr) 
WRCN (Le wSDyk) 


QRNE (Le wdDUR) 


QRNP (LPWSuVR) 
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jLabels  4Cnart Law: IPwS$S$Lw - Logical writer jfoditied vata jReaq. jCaiis k 
t t }fielas }Usage | j 
RS ee a ne re Fae ee ee a ry ey me ae ae ae ee ea gal ep ee ee Ee oe Ae en a ee ef 
IA10 }fhe extra page count in the account | i i j i 
Iwork space is added to the page counat{ | ! 
jin register 1. j 1 }R1 
}Ine result 1S stored back 1n the ‘ IVRNE(LePweDUR) i 
tqueue record. | \ 
j | | 
Tazo jfhe numpec of lines or cards in tne j | 
jqueue record (QRLC) is subtracted t i 
}tcom cegister 7 contents to determine} i 
{tae numper of extra Lines or cards. | i 
jit tae result is positive, a branch | | 
$2S made to CONTINUC. .. cece cceacneee AI LA5VU i 
sOtherwise, the Line or card count in | | 
tcegister / 1s reset. t | 
1 i 
ifne extra line or card count in the \ 
squeue record is copied from tne 
faccount work space. 
I 
fine Line count in register 7 is 
{stored into the queue record, anda j; 
POCANCH LS MaAdCcew wa cccccccccscceseee FA{LIAXU 
' 
Ia30 ifhe extra line or card count i 
|[caiculation 1S now compieteda py i 
jadding the extra Line oc card count } 
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h 
| 
\ 
) 
\ 
| 
\ 
| 
\ 
| 
1 
| 
| 
\ 
| VYRNA (AP WSDUK) 
| 

1 

\ 

| 

1 

| 

1 

| 
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\ 

| fin the account work space to register} 
| 
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1 

| 

| 
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| 
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| 

| 

| 

| 

\ 
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\ 

I 

\ 

\ 

1 
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\ 

| 

| 
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[VKNR (LPWS DUK) 


}7 contents. 
1 
jthe result 1S stored in the queue 
}record. 
ifhe iine or card count in the queue 
}record 1S copied from the YRLC tiela. 
4 

IA40 ithe numper of coples 1s Loaded rrom 
{LAWS and saved into the gueue record 
' 
tLine orc card count register 7 1S set 
jto zero. 
! 
ithe current date 1s stored in the 
jaccount part of the gueue record. 
h 
{sOJ time 1S obtained, and stored in 
}the queue record. 
}Toe saved Start time 1S optained and 
}stored in the queue record. 
jRegister 11S loaded with the account 


URNR(LPWSDYR) 


URNC( LP WSyV R) 


JURUX(LPwWSdy P) 
\ 
1 
! 
(VRELT(LEWSDLR) 
{WRSL(LPWSDYR) 
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ycecord address from the TB. j 


1 
\ 
| 
i 
1 
\ 
‘ 
\ 
\ 
' 
! 
\ 
| 
! 
i 
! 
| 
i 
| 
! 
j 
i 
1 
t 
] 
WVRNA(LPWduY Kp i 
] 
j 
§ 
h 
i 
i 
j 
j 
‘ 
j 
) 
h 
A 
i 
t 
h 
i 
i 4 

\ t 

jkegaster 0 1s loaded with the account} | § 
\ 

\ 


}record length (72 pytes for list i 
jaccount record, 08 foc punch). | 
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{if iat 1S a punch task a branch 1s | 
{made COaewceccaeecevrcsacsceneseccaasnacone >},EYDT 
' 1 
jUtherwise get length of account ! 
|cecord. i 
! 1 
yfhe account record is written to the | 
jaccount file. i 
\ 4 
i~the queue record 1s added to the ! 
jrtree set. " 
\ ' 
{Complete EOJ is indicated in the fCs.j 
I 1 
ifhe account work space is released. | 
! ! 
}fask conditions are now checked and |} 
joranches are taken: 4 
{if stop at EOJ condition, branch to 4} 
PProceSS detache ceccaecccccccccccae APLUIV 
{it non-RJE task, branch to get next | 
{queue record. emoaooeveceeevewvwaeaeaeceanveaneveens > | Evov 
\ 1 
jit RJE,BSC or active spool management} 
1 «GETSPOOL) task, branch to detacna i 
TASK ec een vce erence secesecccesecececo >| busu 
I 1 
1L£f normal condition or RJE,SNA taSk, 4 
jbrancn to get next gueue record...- 7IRIVU 
i ! 
{If the current task 1S an 1 
Jinitialization task, branch to return} 
ItO phySical COUtTINE. cece ccccaccecese AP EYSU 
\ 1 
1(¥M HandShaking change - CP Close) 1 
\ ! 
iTest 1f VM=YES option has been | 
jspecitied for supervisor (bit in 1 
}SYSCOM). If not, continue with j 


normal PLOCESSLNGeorcuceecccccececce PL EVIZA 


' 1 
{Branch and lank to routine to close j, 
}£1le when under Vil oe e's eS Se wisebis-esic'e >| EU¥o 
\ 1 
jxregister ¥Y 1S Set up as task 
{terminator pase register, and a 
jpcancn 1s made to the task 
}terminator. 

I 

|The queue record space is now 
jceleased: t 

{ff nothing to release, pranch to... >} EUS 
fWueue record Space is released. t 

| ! 
{fhe queue record pointers in the TCs } 
face set to zero. hk 
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jLabels jCnart Lw: IPWSSLW - Logical Writer }Modirtieda Data jReg. jCalis 

j t }F1relds iWsage | 

|, eeses—S<938 $9 <8 245-555-055 4— Pt re ee een cere renee orn 
}£u85 {If RJE,BSC task, return to BSC writer} LPWSPLE 
k tvia LPWSPLR macro instruction 

| i 

h }Prior to return to the physical 

j jwriter, register 2711S set to zero to 
k handicate a detach condition. 

h \ 

j }A branch 1S made to return to the ‘ 

} pphySical wWliter..cccccccccccaancecee >| PUYO 
! i \ 

| i 

t 1 (VM Handshaking change - CP CLOSe): 

i \ 

fEQVM i0se LPWSRSW macro to obtain 32 byte 

} jacea from Storage manager for 

| jparametec list. 

| 1 

} }Move jobname and device address rrom 
| jother control Diocks to parameter 

1 jiast for SVC56. 

A i 

\ jissue sv¥C56 (CPCLOSE macro) to close 
| \Vm file for current task output. 

1 I 

| {Use LPWSRLW macro to release 

| }parameter list storage. 

| I 
1 
1 
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\ 
| 
t 
\ 
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LewdRSwW 
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SVC50 
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TPwiRiw 
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Return to Cal MOD 6s eieiels ed Sees es ee SS se 
i 

1 

jaDnormai Condition Handier: 

I A 

ABOO tpependent on the nature of the 
fapnormal condition, a branch iS nade 
}to the appropriate routine: 

1 

}if stop at EOJ condition, branch to j 
}Jcontinue handling output.......222.. >$PU71 
1 1 

,i£ flush condition, branch to issue 4} 
PMESSAGS FOBYT cc. aw cece cc nace ccsesnne APABIW 
t ! 

if flush (hold) conaition, pranch to j 
bissue MeSSage WsYLecccceanceccecee HPABIU 
1 1 

{if PSTOP, TEStTaALCCaccccvaccveccccces >| AB4O 
1 I 

{if at is RJE task, branch to..se.e- >| KYIV 
i 1 

}If PSTOP, Drancn tCOcesccwecccnnssecce PPAB4U 
i 1 
jindicate end of data by ciearing 1 
fregister 0. | 

\ i 
pemMmpty CULreNt DULLECL weceeeacsecaeeer| PUID 
! | 
pSet Linkage tO TELCMILNAtTOLecceencceeer| KYIV 
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AB10 jfhis routine is entered on a flush 
}condition. message 193YI is issued. 
4 
jpossibdle PSETUP/PRESTART indicator 1s 
jreset. 


\ i 
\ ' 
\ \ 
\ ITCRS (LeWSD4EC) 
\ | 

| i i 
\ 
I 
\ 
\ 
I 


{Job poundary and end of data are set jLCUB (LewsDIC) 
jLCGT (LAPWSHDUC) 
1 

| LWET (ILPWSDLC) 


\ 

| 

| 

| 

) 

| 

\ 

) jin the TCB. 

\ i 

| jfhe tarst time switch is set ofr. 
| | 
jif active spool management (GrTSPOOL) | 

} ftaSkK, TNEN DLANCN COcceeaccececccsae P{PJU11 
| \ ) 

| jyif the task 1S not an RJE taSk, a t 

] jobranch 1S made to issue the } 

1 PMESSATCe ce cree creer eerercccecsecaccscecce PPJABLY 
\ | I 

! {Otherwise, register 0 is Loaded with | 

| ytne cemote 1D, and an ITPWSGAM cail 15S} 

| jissued. t 

| A i 

| jOn ceturn, a branch iS Made.....---.>}PJU11 
i | 1 
{AB2ZU }for a local writer task, the message | 

j1s logged. t 

4 ' i 
1 
I 
| 
} 
i 
| 
) 
| 
| 
! 
l 
1 
} 
1 
' 
| 
l 
\ 
| 
t 
\ 
\ 


to 
(oe) 


LPRSGAM 


Cow (LEWSDEC) 
TewsGan 


pif the current task iS a puncn task, | 

ja branch 1s made to continue....--- >|PJ21 
i 1 
pOthecwise, message 1Iy39I 1S pcinted: } 

i \ 
}Using register 1 aS a work register, | jPCcC(LewsdTC) 
}the message and the job name are t pLEOKL (LPWSDLC) 
{moved into the puffer and the message| | 


a 
me 


LewsGan 


faadress and length are stored in the | | 
jrecord request word. | i 
I 1 | 
iff printer 1S not a 3800....-2-..2-.-->}AB20 i 
pUtherwise set command code to t | 
t*select translate table U*, ) | 
jand a link 1S made to output routine>d}| PUYV j 
' ' | 
AB30 jOn return, the command code is set to} ! 
)*skip to channel one*® and a link 1s j| | 
{made to the physicai routine....... >| PUYU | 
\ | ! 
}On return, the command code is set to| | 
t*wraite*, and a ranch is made back..>|PJ11 | 


ECCC(LPWSDLEC) 
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jit this 1S a punch task, pranch to t 
{Stop CASK 06 6Sid ood 0 0iew00e e806 6106 60566 >, AB43 
1 ' 

jLf immediate stop 1s requested......>)AB50 
' 

sit 1t 1s not immediate skip (CH 1)..>{%J11 
POTHELC WLS eee cence wcrc nscccccccccone >} AB50 
' \ 

tit PSTOP immediate was issued, j 
;orancn CO ose Ss 0:5. 6 6.6 6 owe 616 ele. 6.0 (6's 6.0 eee >| AB4YDSD 
\ 

t1f no card movement, branch to....-. >| PJ11 


} | 


}If 3525 punch device, brancn to.... >} AB44- 


! | 

{Lf not 3525 read punch device, h 
poranchn CO 66d Bie B16 06 6 6 bo 6 6 oc 66.6 6 ow Ss 666 >) AB45 
V \ 
Create plank card to finish punch. " 

' 1 

jis it not a 2D o's: sieeve le tee eee alelde eee >} AbBbdO 
jotherwise do Secondary reed. \ 

\- 
jindicate E£0O»b. 
i 
}Link to physical routine to empty | 
POULTSE eee wwe 6 oe wie oo ake Oe oe wiole a \PJy> 
jBranch to terminate taSK.w.ccececeee Ph bylZ 
! ! 

jff at 1S not a RJE restact pranch to>}Rsv1 
}Get seex adaress and pranch to..... >| PJOV 
' \ 
iPage Set-up Handier 

\ 

jfairst, the L/O command code is 
Jcnecked 1f a bufter toad or load UCS 
Jis requested. 

! t 

Jif tnis is the case, a prancn is madej 

jto execute this bpufter toad first... >| PJ2U 
\ \ 

Jif tnis 1S not a SsTPRRT request, ! 
}pranch C06 sie:6: 328s S006 oe See 6 ets 6 Cee ee oe @ 2 ,suU5S 
i 1 


pOthecwise, clear out the copy group 4 


jvalues in the just-optained S#TPRT i 
}request and execute the setup j 
PELES EG 6 si eee oo ose ewis eee 0 ee ee eae sew, PERIZU 
j ] 
{It tne command code is not a *Skip j 
jimmediate*® (new page), a branch is ' 
jmade to translate nonblanks ! 
$CO CPX Pc cc we wecncsccccancccevcccecs JILSUIW 
! \ 
;Otherwise, the setup remaining page | 
jcount in register 8 1S decremented pyj| 
yone, stored in the TCB, and, if less 4 
jthan zero, a branch 1S made to exit | 
psetup handling... ccec cece cceccce APSUKU 
{Using register 2 aS a WOrK register, | 
jthe total page number LAEP is j 
jincremented py one. i 


jModiried Data 


Fields 


ICD (LeWSDTC) 


SPE COR YG 
(SPLIST) 


LAEP (LADS) 


Usage | 
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jit tne current list I/O command code | 
jwill not cause a line to be printed | 
| (space), a pranch is made to execute | 


fthe LJO cc cccwccccccevccccceccncvccecs >| PJZ0 


| - 1 
{Otherwise, the extra line counter ln } 
faccount work space is incremented by | 
Jone, uSing register 141 as a work } 
jcegister. | 
' 1 
ifne data rcecord address 1s Loaded in } 
jcegister 2 from the TCB, and its | 
jLength in register 1. ry 

\ 


1 
jit Length 1s zero, a branch 1s made } 


PDACK ec cece ccc cece cerecccccccccscscce >, PUZU 


1 

jOtherwise, register 2 1S Set up to 
}point to the last byte of the data 
jcecord by adding the record lenyth 
jand Subtracting one. 

j : 

}In tne tollowing Loop, the Line to be 
jwoitten 1S scanned packwards, 
}starting with the last cnaracter. If 
jtne character scanned, pointed to by 
jcegister 2, 1S non-plank, it 1s 
poverwritten with X. 

1 

jit tne current character 1s a bDiank, 
ja branch 1S made to bypass 
POVELWLITS. ccc creer ccccanccencccscoes 2 
t 

jOtherwise, it is replaced by xX. 

) 

jif the line scan has not yet peen 
jcompLeted, a branch 1S made back to 
}cneck the previous character....... > 
\ 

jOtherwise, a branch is wade to 

}pass the record to the physical 

PWEDE CE 60 wo0 Ss Sve nS 620. 61 Ue oe eels wele oe See ? 
\ 

JExit from setup handling. kestart 
{current page count is reset. 

| e 
pit the current queue record 15 the 
{first in set, a pranch 1S made to 
jDypass obtaining the first in Set, 
tceguired for restoration of page 
PROD EELS << nis wae ee ose Soe eet sels bees me 2 
i 

jOtherwise, the disk address of the 
}i1irst in set 1S moved to the TCB. 

\ 

|The first-in-set gueue record is 
obtained. 
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jLapels 4Chart Lw: IPW$$Lw - Logical Writer [Modified Data tReg. {Calis 

j jfielas \Usage | 

su50 tA Link iS made to the physical 1 
jcoutine to empty the buffer........ >|PUYD 
i | 

}An empty block is indicated in tne i TCPER(LPWSDLC) 
+TCB. ] 
}if tape spooling 1s not active, a 1 
joranch 1S made to bypass tape | 
PCONTLOL ccccccccacccccecccecacscance ALSUOU 
I | 
{Otherwise, the spooling tape is i 
jdoackspaced to the beginning of the ' 
jfile. i 
I i] 
|}Backspace file cali 1s issued. 1 


ee ee we ii i 


1 

jLewsctt 
pLewscut 
jLewscrt 


|Forward space file to Skip tapemark. 
{forward space record to position past 
jfarst record. 


n 
fom) 
(o] 

Oo 


JxeStact/setup indicator 1S reset. puCks (LPWSDIC) 
{Restart Current counter 1S reset. | LARC (LADS) 

i A | 

,If current task iS a Spool Management 

| (GETSPOUOL) task, Dranch tOcccaceeee >|SUOZ 

i \ 

Check for RJE.j If not, brancn to... »|SUo0d 

1 \ 


uN 
c 
oO 

i) 


! 

\ 

{ 

! 

\ 

fOtherwise, Dranch to the physica i ] 
LLOUTLN Gs 6056 6 FSS alee eae ee Sees eee OLRUSS | 
I 1 | 
{Gpon return from the physical i I 
pcoutane, DrAaANCh COcwcenccecccasecae ALSUIV 1 
! 1 \ 
jit iat 1S an 3800 printer, issue h j 
}message 1IQA9A, Otherwise issue j | 
jmesSage 1Q40A. i i 
' h 1 
jan LPwS$WFO macro 1S issued to walt j j 
jfor the next operator command. j 1 
| b | 
jit tape spooling, branch toO...aece. P|SUID | 
b \ 

! 1 

\ \ 

i | 

| I 

\ 

\ 

1 

\ 

\ 

\ 

| 

1 

| 

\ 

| 

i 

| 


u. 
cS 
oc 
Wn 


iewscan 


TewWswrd 


} 
jOtherwise the data pointer of the 
jfirst-in-set queue record 1s copied 
{to the TCB. 

1 
}When double data fiie bpurfering, the | 

}seek address of the first data plock 4 

}is moved from the queue record to tne} 

jdisk reguest word for the second datal 

jfile puffer in the ICB. j 

}(fhis 1s done to indicate: first time} 

{through now.) ' 

| 1 

{The corresponding data record 1s j 
PODTALNEM. coca mecccccccccsvencecscccer| PUY 

] b 

tCheck for PSETUP or RESTART. It so, 4 

POCANCN TOcccaccccccccccccccaccceece AEPSW 

i 1 ! 
jindicate restart. {PICKS (Le wsvoLrcC) 
}Get number of copies left. {LwNC(LPWSDIC) 
Get restart card/page. ILCRS*+14LPWSHEC) 
|Get group copy index to be used. i |PPe&3cGL (Lewsvts) 
BEXAIt 1S taken. ccc ccccccccncunccccane PEPUW t 
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fo] 
= 
Cc 


TCOW (LEWSDEC) 


TCzDw (LPWSvTC) 


n 
a 
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jLapels jChart Lw: IPWSSLW - Logical Writer iModafied yvata jReg. jcalls 1 
i 1 jrielas \Usage | { 
a aaa aA a a a ad aa a Se ee ee ee ee a aa a ares at we } 
{Restart nandler: } 
h b 
RSO1 = «©«66}}1f restart 1S already active pranch.>jRS04 


\ 

1 

i 

\ 1 t 
jOtherwise, the restart current page | 1 
count is initialized from the current} j 
|Jpage count in the TCB. b 1 
\ ! 1 
sift the current task 1s a spool } 1 
jmanagement (GETSPOUL) task, then ‘ | 
PDLCANCH COcceccceccccccccedccccacccece PPERSUZ t 
' 1 I 
jit the current task 1S a list task, aj | 
}oranch 1s made to bypass setting of | 1 
jrestarct current Card COUNT. ccwcceae PIRSUY4 } 
| i 1 
! 

| 

\ 

\ 

i 

1 

l 

} 

i 

! 
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RSO2 jIfhe restart current card count is set} LAKC (LADS) 
jequal to the current card count. ' 
' : 1 
RSOYW jRestart value as kept in field £CRS | 
jan tne CB 1S loaded 1n register 8. } R8 
‘| b 
{fhe restart Sign code, as Kept in thej 
}high-order pyte ot fiela TCRS, is t 
jloaded in register 2 and used as iy 
Joranch index into branch taple RSO8. | 
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1 1 |}Fields jUsage } 
j ee re ow ae re ee ee ee we ee we ee we we ee ae ae we om cn we oe we ee ee we we em we we we we ee ww we ww ee ee em ee we en ew ce ee we we ew an ee ew ee oe oe 
}RS508 }Bcancnes are made from this pbrancn } 
}tabie: ) 
tf O: Should not occur (branch to j 


\ 

I 

i 

EUSGIT) <6ce c's eh seve cecawacede se DERSUS } 
4: NO Sign given, branch to process} j 
absolete LTeStart ValUceweceeee >ERS12 i 
3: Plus sign given, branch to } | 
calculate apsclute restart value} i 
from forward reStart.cwccceese PJRKS10 | 
Negative sign given, prancn to 4 t 
calculate absolute restart value} } 
from backward reStartecceceeee 2}RSZU | 
Branch to process setup | | 
CODGANG + cic e te wie ccG sew e s eeeee. 21SUOF 1 
Branch to process start after | i 
PSTOP COU, RESTART... cacecsacce >ERS12Z | 
\ 1 \ 

R52 }A branch 1s made to restart printing } 1 
jfrom the point specified as restart 4} 1 

PVALUS. cece eee creme emer e ree e ce mwer ene PERSZ4 | 

1 1 \ 

RS16 ifthe restart value-in register 31s } } 
jadded to the restart current count. j j 

\A becanch is made tO restart printing | ) 

jrrom the calculated restart 1 | 

PN GL WC 6 6o iia Sete ses SOS bee wele ewes oe Ss >; Roz24 | 

1 \ 

RS20 iNegative Sign; register 2 1s loaded | i 
j}with the restart current count. | | 
)KeStact value in register 8 is \ | 
jsubtracted. 1 | 
Calculated restart vaiue is copied toj 
| 

| 

| 

| 

i 

| 

i 

\ 

\ 

\ 

| 

\ 

\ 

| 

\ 

| 

| 

| 

i 

1 

\ 

| 
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| 

\ 
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| 
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wee i 
-_ 
Ww 
ee 
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pregister 8. \ 

1 1 
RS24 jif the reStart vaiLue in register 8 1sj 

not negative, a branch 1s made to } 

process TeESTACTC enc ccneediovececsesene >, R528 

\ 1 

,;Othecwise, the restart value 1S Set } 

jto zero first. | 

| : 1 
RS28 yFirst, restart indication in the fCB | 

}12s set to zero. } 

! | 

pir tape spooling, DLanCn.- cence cae n ee D> fRSTU 

1 | 

{fhe restart current count 1S reset toj 

|}zero. 1 

\ 
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i 
|fne DMB 1S reserved for SsupSequent ) LewSKSR 
jceading of the first queue record in 4 
iset. 1 
1 1 
{Register 6 1S set up to address the | 
jreserved DMB. i 
i} ! 
jit the current queue record 1S not k 
ithe first in set, a pranch 1S made toj 
jcead the first-in-set queue record, | 
{cequired to compute restart point... >4RS32 
\ i 
JOthecwise, the queue record image is } 
icopied to the auxiliary area inthe | 
}\QCB, and a pranch 1S made to pypass i 
jceading the first queue cecord..... >}KS30 
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iChart Lw: IPWS$LW - Logical Writer 


fhe disk address of the *first-in- / 
}set* queue record is moved to the DmBj 
i 1 
pif tape Spooling, Drancn.cweeeccee ee Af RS50 
\ 1 
}Read rfarst-1n-set queue record 1 
I | 
}If tne current task 1s a GETSPOOL | 
jtask, a branch 1s made to continue. >j|RSs33 
jUtherwise, a check 1S made 1f itis |} 
ja punch task. If not, Dranch to... H>|RS4V 


{ff it is a RDR yueue record...eeee- PAERSSY 
jfne cestact value in register 8 | 

{2S compared to the maximum value for -} 
{card restart and a branch 1S made... >{RS44 
' ! 
jfhe restart value in register 8 J 

}is compared to the maximum vaiue of | 

t# of crads and a pranch is made.... >}RS44 
I | 
jfhe restart page vaiue in register 8 | 

{1S compared to the maximum value for | 
{page reStart. " 

! ot 

{ft hagher, a branch 1S made to isSue | 
jOtherwise, the first queue recora i 
jimage 1S copied back to the queue 

jcrecord space from the DmsB. 

i 
jfhe vMB 1s released again. 


i 
1 
\ 
' 
i I 
7k 
I 
i 
4 


g 


ja Dranch 1S made to continue....... 
] 
jThe DMB 1S rirst released. 
! 
if at 1S a spool nanagement 1 
{(GETSPOOL) task, branch tO...ceee2- PHP KSD4 
}It tne current task 1S not an RJE j 
}task, a branch is made to issue the } 
PMESSAGCe ce ewe ae cescccccvcccccesscccaces A ,RSDZ 
h } 
pOthecwise, the remote Ip is Loaded in| 
jregister 0, and an [PWSGAmM is issued | 
jto send the message. j 
! ; 1 
{A Dbroancn 1S made to continue output | 
PPLOCSSSLNG wea cece cccccesccccccccece >RRS54 
! \ 
{The message 1S logged. , 1 
I b 
}Reset RESTART current counter h 
] ' 
,if the current task 1S a spool ry 
jmanagement (GETSPUOL) task, then get } 
{the address of the SPm parameter h 
jlast, indicate EOf in SPL parameter | 
ji2st, and branch to continue output jj} 
PPLOCSSSIANG eee ccccscccccccccnceccece >| 23 iV 
\ . 1 
jIf cestart 1S not issued at EOJ time,} 
jbcancnh to continue output processing>} PJ lu 
\ 1 
Otherwise, reset RESTART/EOJ,counter,} 
jand continue with EOJ PEoeess rns es, >| EBysd 
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jLapels |Chart Lw: IPWS$LW - Logical Writer jModitied bata {Reg. yCalis 
j 4 |Fieias {Usage | 


}RS56 ,if the current queue record 1s the 1 
jlast-in-set, a branch iS made to i 
jlocate the restart card/page.....-.. >}RSoo 
! ! 

{if this is a 3800 printer, prancn.. >{ R506 
} «Note: Scahning for the restart page} 
{has peen done from the beginning, } 
}pecause multiple SETPRT requests may |} 
foccur in the output job. Tne last | 
jencountered SETPRT 1S reissued petore} 
jprocesslng 1S reSumed with the 

jrestart page.) 


\ 
| 
} 
RSo00 j}The disk address of the next-in-set | 
iqueue record iS moved to the TUB. | row (LPwSDLEC) 
\ \ 
}If tape Spooling, DraNncn wecceceee ee >| K501 
1 H 
1 i 
jfne next-in-set queue record is \ 
joptained. 1 
{If the current task 1S a list taSk i 
jand not a spool management (GETSPOOL) | 
jtask, a branch 1S made to continue ! 
jprocesSing page LeStartececccccecee ALRSO4 
! ' 
RS62 j4t at is a spool management task and } 
ja RDR Queue record, DraNCh tOeceoee >} R503 
\ 1 
jOtherwise, the restart card value in } 
jcegister 8 1S compared with the } 
thumber of cards associated with this | 
jqueue record, as found in the field } 
b 
' 
1 


deWdSRDO 


WRLC. 
jit tne restart value tucns out to be 
{within the range ot this queue 
Jrecord, a branch is made to j 
PECSCALC + 6 canes cee sees cewe es cesce > }RSO0 
\ i 
{Otherwise the restart current card h 
}count is set equal to the card count 4 
jof this queue record, and a branch is} 
jamde to get the next gueue record ..>}R500 
1 b 
RSo3 {Record count 1s obtained from QYRNR ! 
sand if restart count in R8’ 1s lower | 
}than number of records in RU, a t 
POlVaANCh 1S Made eocecceccceanccccceee >|RSOO 
\ ' 
{Othecwise the restart current card " 
jcount is set egual to the card count | 
fot this gueue record, and a branch 1S}. 
jmade to get the hext queue record ..>}kSovU 
1 1 
R504 tine restart page value in register s | 
{is compared with the page count tor | 
{this queue record. 1 
fif tne restart value is within the 1 
jcange for this queue record, a pranchj 
12S Made CO TESTALCCeccccvcceaccseace A K5S00 
i ! 
sOtherwise the restart current count | 
{1s Set equal to the page count for i 
{this queue record, and a branch is i 
jmade to get the next queue record ..>|RS50U 


LARC (LADS) 


LAxC (LADS) 


LARC+2 (LADS) 
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{Cnart Lw: IPWwSS$LWw - Logical Writer 


Lif tne restart current count is ) 
jnot zero, a pranch is made to t 
PCONTINUC. cee erences ereeresreceracconcecs 2) Rsog 
' L 

jit the current queue record 1s the i 
{first queue record, pranch ..-.2-22->) R508 
1 4 

jit 1t 1S tape spooling, branch .-..-.>4R508 
1 ' 
tIne aisk address of the first queue | 
jcecord 1s copied into the TcCB, and i 
jthe record 1S read in. i 

‘ ) 

}An empty block 1S indicated to the t 
jIepWsedDR Lunction. t 

h | 

Jif tape spooling 1S not active, a | 
jorancn 1s made to bypass backspace of} 
PTAPS ew mee reece ree cceccerrveeenececsece >y;RSI3 
’ \ 

{If not restart forward prancn to... >PRSTZ 
jit end ot data reached pranch to... >|RSDU 
jit restart at ena of jop branch to. >}R55U 
{Brancn to process forwacd LeStart.. >pKST4 
h i] 

{An empty pDlock 1S indicated to tne j 
}lPpwSenoR fCunction. ‘ 

' 1 
jReset restart current cara/page. t 
1 | 
jthe tape 1S packspaced to the 1 
i;Deginning of the file: 1 
1 L 
te A backspace file call 1S 1Ssuea | 

je a torward space tile cali to Skip j 

i tapemack ' 

1¢© And a torward space record to t 

} position past first record. ' 

| 1 

{A branch 1S made to continue...-e-- APRSUG 
\ ] 
jihne aata pointer 1s moved from the t 
jqueue record to the TCB. h 

) ' 
jwhen double data file burfering, the } 
jseeK address ot the first data DLOCK | 

fis moved from tne queue record to the} 
jtile puffer in the TCB. t 
;¢fhais 1s done to indicate: first time} 
}through nor.) 1 

\ b 
{Register 6 1S loaded with the restart} 
}Curcent count. | 

\ 

jkeStart value in register 38 15S 
j}compared to restart current count in 
jcregister 6. 

1 

fit eyual, a pDranch is made to exit i 
fand Start PLINtiNgGescaccnccceevecese APKSIV 
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] i jFrelds ,U0sage t 


RS80 jOtherwise, read next data record. ) 

1 4 

tif end of data, DranCh 2. cence cnee se >fRSDU 
t 4 

jIf tne current taSk 1S a list task j 
jand not a spool management (GETISPOOL) | 
}task, test for a “skip* operation ..>)RSs84 
) ; 1 
pOtherwise, 1f it is a ROR entry, ...>}kKSdo0 
\ 1 
jtne general purpose byte 1S tested if} 
jtne punch Operation causes a feed. if | 
Jnot, a pranch 1s made back to get tne} 
pnrext data LOCOLG «66:60:66.6 ees 0 06 6s € >}KS80 
{ \ 
}Utherwise, a branch is made to | 
jincrement the restart current | 
PCOUNT. cocceerercereceeeeersececesececses >| RSdso 
jif tne associated command code 1s a | 
{*skip to channel 1 immediate*® (start | 

jof a new page), a Bbrancn tO..-.e-0- PH} RSdO 
| 1 

Jit tne associated command code 1s a | 
{Xx*FO* (SETPRE REQUEST), the SETPRT j 
jparameter list 1S Saved in the 1fCpB } 
jextension area. j 

i i 
{Branch to get hext data record..... >{ RSS 
! 

jThe cestart Current page card count 
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1 
1 
\ ; 4 
{4 branch 1s made pack to test it } 
jreStart is complete..cewececaaccase P|RSIO 
\ | 
jThis routine is entered when the 1 
jrepositioning of the data file, j 
jcequirced to accommodate the reStart | 
jcommand has been completed, and 1 
Jcestart condition can be deactivateda.|} 
1 \ 
tthe cestart current value in register} 
{0 1S saved in account work Space. i 
' ] 
{set cestart active indicatoc. t [ECG 2¢(LPwhvoLC) 
{Reset ReSTART/EOJ indicator. t {LWT (iewsDIC) 
1 
1 


x 
Nn 
wc 
oO 


LARC (LavS) 


\ 
jit the current task 1S a list task } 
tand not a spool management (GETSPUOL) | } 
{task, a branch is made to nanale page} t 
PCSSTALCT SKlCe cee cence acccccscccceves PALRSYY4 } 
\ ' \ 
pyUthecwise, if backward cestart nas ' | 
jobeen requested, the current card | 1 
jcount is not changed and a pranch 1s | j 
jmade pack to resume output ' \ 
PhANAGLING. ccc wcccwcceancscccccccsccce >| PU10 | 
! 1 \ 
{On rtorward restart, the restart 1 } 
{current count is copied into the i | 
pCcurrent count. j | 


eee eee ewe eee eee eee ie 


LACR (LADS) 


Chart Lw 343 


Licensed Material - Property of IBa 


Ge re yee ene GIO ee ee Rg GP ee gre Ree ae ye aging ine beta ee wey <<. ey ee ee ee ere ee ee ener eee et ae ee ee ee ey ee a ee ee oe my 
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] jfiLeids Usage | 

{fhe total card count in register 7 is} 1 jR7 

jincremented py one, and a branch is j { i 

(made to reset restart condition.... >jRSY8 | t 

' h 1 ' 

If no 3800 [CB extension area exists | { {R2 

jbcranch CO mec cncccrcncccvrccvcecaccce cer RSID | j 

1 | | 

tif no setup is required, branch to..>}RSyo | 

! ] | 

{Save actual record control word. " {PLeGwA ([Pws Dé) 

fhe address of tne SETPRT parameter | ILCCC (LEWSDEC) 

{Last and its length are stored in thej ITCRL(LPwWSuTC) 

{cecord control word. The command j | 

jcode 1s set to X*FD*. ' 

1 i 

}A link is made to the physical j 

PLOOUTINEG ac ccc ccccccccencncevcenccszscce >| PJYU R3,k8 
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1 I 
jfhe actual record control word 1s | 
jrestored. } 
1 h 
{Lf restart is not- forwarded t 
j branch EO ole ee 0:00 6%e 6:0 eve6ele- 0's we 6iele o-ace 6 7 ,ROYY 
i i 
jOtherwise, the restart current page |} 
jcount is copied into the current page} 
}count, and the total page count 1s ! 
jincremented by one, using register 1 j 
fas a work register. } 
i \ 
|The restart condition is reset py iy 
{setting the restart current counter |} 
jto zero. J 
}Reset restart active indicator. i 
pExit 1s WAGs odie ois eie teeters. 650 6 6 wee ae ele >| PJ20 
1 4 
Jif cestart is not from zero a branch | 
jis made back EO 06 &6'6 6 0 e066 we 6 6 66 66 0 >| PISZ0 
i } 
sOtherwise a get data record for the | 
jtarst record wall be done after a ' 
|Skip to channel 1 is passed to the t 
PPHyYSiCal COUTINC np cece cee cece caver ecerfPUYU 
1 t 
{Branch CO cece cnnevrccccccasacsvccaseeti PJ I0 
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TCKW (LPWSDTC) 


|LACP (LADS) 
jLAxP (LADS) 

i 

\ 

i 

i 

| LARC (LADS) 

! 

| 

[CG 2(LPWSDEL) 


JLCCC (LPWSDUC) 
ITCRV (LPWSDTC) 
{TCRL(LPWSDIC) 


ee ae eee OR ee Oe OD OY em ce ee ED OS ED ED WS Ge Oe OP om ee ee ee om > Om > Om oe Om am ee Om oe em oe ee Oe am we ee ee 8 oe Oe we we me Fe we © Oe we ow re ee Oe we ee we ee ee we ee 


-— 2 ww ee ew we ie we we em we Oe oe oe we eee eo oe ee ee ee 8 ee ee ow | we ow ew we ee oe ew 


Licensed Material - Property of IBA 


| Labels 
1 


SETO 


3) 
te 
a) 
- 


SE02 


vn 
& 
c 
u 


ws 
a 
RB 
(>) 


(Chart LW: IPWSS$LW - Logical Writer 
\ 


|\sepacator Handler 
j 


jfhnis routine prints a number of 


Jot separator cards as specified in 
jthe fieid QRSP of the queue record. 
i 
jif tape spooling 1S not active, ‘ 
{orancn TO ec wmc cece ccscccecccnacccesecs > ,5h01 
1 1 
{If end Separator pages to be printed,| 
{branca COs wo 6.6 oo SS 6506 SO. 010 ore sa wee ee >; SeTu 
\ ' 
}Utherwise, read in trailing yueue } 
trecord. | 
! t 
{Branch COS SsSieeé.e @ 66656 6066 bebe eso 6 8b 6 >|S801 
i } 
iIf no Separator pages/cardsS.....222->45401 
i \ 
jkead in header queue record: 
1* Backspace record 
1 
\Register 6 1S loaded with the numper 
jof Separator pages requested. 
\ 
}If no separator pages/cards are 
jwanted, return to caller.......222-->|R3 
\ j 
}fhe togical data area is used as work| 
{Space to build the separators. i 
' 
{The restart information 1S saved. 
ifhe request word is saved. 
\ 
;Brcancn to set up the printer if 1 
PAPPLACADLee ca cncecceccccscecccesees ALSSUI 
\ \ 
[Clear out restart information. \ 
' t 
jit the current taSk 1S a punch taSk, 4 
{| orancn CO een ececvreccavsecnennceenensvece AESCTY 
1 i 
tthe page size (depth) 1S optained ' 
}trom tne queve record. If Zero, the } 
Isystem default vaLue (SYSCOM) 1s t 
}taken. eee emcee ces cc cc anecces ee senccc cer foOhUD 
A 1 
iset up the record address and i 
}the command code in the ‘tvuB. \ 
iCheck for end of jop. Ir So, pDranch } 
{to punch the end Separator cardS... >|SCEJ 
teneck for a 5425. If So, Dranch to >4ySEL5 
i 1 
tLoad a record length of 80 into | 
jcegister 1 and store it in the Tusa. ‘ 
{f2rli the puffer with the attention i 
{Character X*78*. i 

\ 

1 

i 

\ 


\ 
h 
}separatorc pages Or puncnes a number j 
\ 
\ 
' 


—— ee a ee oe 


1 
}Check the number of required 
(Separator cards in register 6, and if 


jnecessary, set it to a minimum of 3. 


jmoditied Data 
|f1reids 
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|TCHV (LPWSHDTC) 
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] 
{LCL (LE wSDLC) 
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iSCvS 


}RO,R1V4 
{R45 
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{Chart Lw:s IPWS$LW - Logical Writer 
b 


{Branch and link to punch the j 
JS@PaLatOLl CALTASw. cece wcccsrcecaceeevee PPSCIS 
! ' 
jLoad the buffer address into register} 

1d. i 

! i 
{Save the job hame. } 
1 ! 
jLoad the character count into j 
jcegaster 1, and the starting adaress | 
janto register 2. | 
I \ 
j#2ii the putter with separator card | 
polanks {X*38"). j 
! | 
{Using registers 3 and o aS work j 
jtegiasters, the job name 1s | 
}trcanslated. 1 
I \ 
}Set the numper of separator cards to | 

)D@ punched to 17 and branch and link | 

hto punch the card. seeewmeanewoneeececeee AI SELS 
; Branch COs Sie a 68S 6 ele Se ei6. 8 ote 0:0 eee 66 6 2, Seyy 
i ! 
;Set up for puncning the Separator } 
sCcards for the 5425, which are punched) 

pan ail positions, and the jop name i 
}Ppcinted 12 times on eacn card. ' 

i ! 
,;Iincrement the card count by one. 1 

{ ! 
iSet the command code to punch primary} 
£q(X*05*) and branch and Link to the j 
IphySical COULING. eee ce wearer cece e AP PUYV 
1 ! 
{Check for a stop condition. If so, 4 
Jbcancn to detacn the task.....--2.2. Hp huled 
1 1 
[Set the command code to print and ' 
ifeed (X"47"), and brancn and link to | 
jthe phySical routine... ecweeeeeeee AP PUYV 
| 1 
tW¥nen all separator cards have been j 
punched, DLANCh TOccecccccncaceccese AISEIY 
' ! 
Set up for punching two blank ' 
yend Separator cards and pranch and t 
piLink to the phySical routineaccoee HESCLS 
} Branch LO see cea sné 0 6 ct wee 4-0 6 we we oe Oe >, SEYY 
' t 
jincrement the end count by one. | 

| 

{Check for a stop condition. ff so, 
yoranch to detach the tasSK..acccccee > 
' 

jBrancn ana Link to the physical 
PLOUTITUNGC ce eee ew eee eevee seecsacencsecce ? 
' 

pwhen ail separator cards have been 
}puncned, return to caller via link 
jcegister 2. 

\ 

sThe puffer address is loaded in 
}cegister 8, Which serves butfer 
jaadressability. 
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LALR (LADS) 


{R6,R2 
i 
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JLapels jCnart Lw: IPpwWS$$LW ~- Logical Writer imodifieda Data j}Reg. pealis 
! }Firelas j\Usage | 
jit tne last CCW issued was a SKip to } 
{Channel 1, branch tOccecccceccccens AJSKUO 
{Perform skip to channel 1. pPSYV 
: ! ‘ 
SEO6 {Pertorm 3 "space 3" opercations. } PUY 
t ' 
If task 1S in stop State, branch to >)fyv7z 
i i 
tft restart to be done, pranch to.en PESHVE 
{i(Stact over again.) 
§ 
It page size 1s iess than 40 Lines, 
ASKip writing of block letters. 
{Branch Oe oe 6 616! 6 S650. ee an eee 6:60 6 eke eee 
1 
{Iranslate jophname into table 
ydispilacement. 
§ 
#Get centering information. 
i 
jset up request word. 
' 
§Get stact addresses. 
i 
S2£0C {Get tayer of Character untii all 
Characters are finished. 
gPrint AVN ee bo elele ere be ele Seid ere }o5es0' oe > 
i 
Loop until all 22 dines printed.... >|SHuUCc 
‘ \ 
pPerform “space 3". csccaccccncccecce PEPIN 
t \ 
#4r through with 2nd Line, pranch to >jsnuF 
Get Class and Priority and NSumbec \ 
i) | 
sitcanslate to displacement. | 
aBranch CO eo 6 wie 68 ee a SoS 6666 elke 6 6166 ere >|sb0a 
] \ 
Szor padd to extra records. 


3} 
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Vv 


wee ii 


SLUG 


LWSN (LWDS). 


io?) 
cE 
Cc 
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1e7) 
t 
Cc 
ad 


ECKW (LPWSUDIC) 


PJYD 


Ww 
a 


bol 
a 


LWJN (LWDS) 


oe] 
_ 


LALR 


SL0G pAdd to extra pages. 


! 
} 
} La&BP 
1 
pif this is last page, pranch....... >| SESD 

! 

‘ 

1 

1 

t 

j 

| 

| 

j 

| 

i 


> 
= 


i 
fkeStore request word. 
tThe 320-pyte puffer 1s filled with 
polanks. 
b 
$19 asterisks are moved to beginning 
gand end ot the puffer. 
trhe device address 1S inSerted 
h 
fine partition id and if appiicaple | LWws0 (LWSP) 
bthe sYSID are moved from the printer JLweTt (LwWSP) 
sTeB extension area into the sep. line} i 
‘ \ 
it an EUJ condition exists, a prancn | 
bls made acound moving STAKT to tne i 
(SCpaEator: LING eis seek cass de Sa ece se  PLSE IV 
h i 
pOtherwise, *STAkT*® is moved to tne i 
Separator line to indicate a Start ' 
}Separator. \ 
' 1 
$A branch is made to continue i 
bSe@parator Line Setup. ccc cw eceeeen ne P/SHLV 
1 \ 
$220 12ND 1S moved to the Separator iine. | LWS 4(LwWSP) 
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ECRW (LPWSDEC) 


| LWSL(LWSP) 
jLWS3 (LWSP) 
| LWSY (LWSP) 
1 


LWS 1(LWSP) 
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pMoultied vata 
jFlelds 


{Calls 
iGsage i 


(Chart LW: IPWSSLW - Logical Writer 


{Job hame 1S moved from queue cecord 
}to separator line. 

{Job number 1s moved to separatoc 
jiine. 

}Job number is loaded in register 1 
}frcom queue record, converted to 
}packed decimal in work fieid, ana 
sunpacked to separator line. 

' 

jJob suffix number 1S moved to 
Separator line: 


1 

jJob suffix numbec is Loaded in 
icregister % from queue recora, 
}converted to packed decimal in work 
field, and unpacked to Separator 
jiine. 


[LWSZ(LwWSP) 


LWCD (LWSP) 


LWS3(LWSP) 


|LWED(Lwsp) 
{LWS4 (LWSP) 
\ 


\ 
JLWS5(LWSP) 
i 


! 

t¥ser antorcmation iS mOVea from queue 
| jrecord to Separator ilne. 

| the date 1S now wHovead to the 

! }Separator line. 

1 {A COmRG Macro iS issued to obtain 
}system date. 

| jif System date 1s in mm/dd/yy rormat,} 
\ 

I 

l 

\ 

b 


— ee we ee we ew ee we ee we ee. ie oe 


i 

i 

! 

1 

i 

1 

i 

) 

i 

i 

1 

\ 

i 

i 

h 

! 

' 

1 

i 

4 

\ 1 
| ! 
1 1 
1 i 
1 1 
ja branch 1S made to hanadie date | | i 
jlnsertion in separator Line.....-.. >}SuLd { i 
|Otherwise, the day of month 1s moved } i 
}to tne separator line. , j | j 
jLWED(LWSP) " 
\ 

1 

1 

i 

i 

t 

i 

1 

1 

1 

\ 

i 

i 

i 

! 

1 

1 

1 

1 

! 

' 

i 

\ 

i 

| 

\ 

1 

i 

1 

) 

\ 

4 

\ 


| LWSo (LWSP) 


ine second number in system date, 
{cepresenting the month number, 1S 

{packed into a work fieid, anda 

{Dcancn is made to complete date 

[INSCEtC TON 46 sc Ses eesee ede weees 6 SPS E26 
1 
jhe second numpec field of systen 


' 
] 1 
‘ 
t 
i 
\ 
1 
idate 1S now used as day of month and } 
1 
| 
I 
1 
t 
I 
i 


LWS0 (LWSP) 


Imoved to the separator ilne. 
i 
jfhe first number rield, representing LWCv(LWSP) 
{the month number now, 1S packed into 
ftne work field. 


i 

i 

1 

! 

\ 

1 

1 

| 

| 

\ 

1 

| 

| 

{5226 jfhe month number is Loaded in 

} }cegistec 2 in binary, muitiplied py 4} 
} }to serve aS index to address correct | 
| month name in tadie LWT. | 
i {R2 1s then Loaded with the correct 
j {month hame address. 

\ 

| 

! 

1 

1 

1 

1 

{ 

| 

\ 

t 

1 

t 


iMontn name addressed py registec 2 18S LWoo (LWSP) 


jmoved to separator line. 

iXear numper (2 digits) 15 moved to | LWS6 (LWSP) 
i 
| 
iLWCD (Lw5sv) 
jLws7(LwSp) 
{LCRV (A PW SOT C) 
i 
pICGP(IPwsvre) 


I 
\ 
1 
I 
| 
jSsepacatorc line. 1 
pihe time 1S obtained using LPwS$RuC \ ievwWdRvC 
}cali, stored in work fleld, \ 
and edited into separator line. 1 
{Separator record intormation is | 
}stored in the CB. j 
;Separator line length (80) as loadea | 
jin register 1 and stored in the TICB. | 
i 1 
ithe numper of “space 3” to pe | 
‘|performed is calculated. \ 
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_}Labels |Chart LW: IpwS$S5LwW - Logical Writer {Modified Vata jReg. Calis 
i }Frelds iUsage } 
SEoO0 jine I/O command code in the TCB 1S PCC (LP WSDrEy) 


' 
{Set to “space three Llines®. t 
4 i 
}Check for a stop condition. if so, | 
jpranch to detach the taSk..-eeeeeee >| 
i 1 
ja lank is made to the physical j 
ALOUTINCGC ce eececceesecccereacccscscocan ?| 
h ! 
sOh cetucn, brancn pack untii all | 
PLAINES ALS SPACSKH eo cece wcccecacacccee P| 
' i 
yset tne I/O command code in tne £cB | 
to "print line*. |} 
»Register 2 1S loaded witn 8 to Signai} 
(3 writes of separator lines. 1 
’ t 
tUsing register 1 aS a WOCK register, } 
tthe line length 1s updateG to 120. | 
' 1 
Tne data pointer is restored. 1 
the separator line 1S updated. i 
4 1 
tCheck for a stop condition. if so, | 
}oranch to detach the taSKececccceee PpPRVIZ 
! 1 
{4A 11nk is made to the pnysicalL 1 
PDLOUCED CS 6.6 eee oe Se 6 cca oie e606 0'el 6 be 6 66a & >| PJYV 
i i 
{On retucn, Drancn back untii 8 iines j{ 
jace SPACeC hen Sct eae eke es wea Seeee ee > {Sk30 
) 1 
pit not a 3300 printer, Dranch to... P>{Sus2 
{4L£ end separators, branch to..e.e..- >| Sus2 
jit mark form iS wanted, Dranchn to... >, Shs4 
\ 1 
S82 jit a Separator page has peen 
Jcompleted, a Dranch controllea py 
jcegister 0 iS Made DAaCK to initiate 
[pcanting of the next separator 
PPaAGSGuencaercnec crear scvceccccancesceece 
1 
}Bcanch to complete Last page....... 
jIne £/0 command code in tne CB 1s 
set to "mark form®. 
jine length 1S set to one. 
t 
ja link 1S made to the pnysicaL 
PLOUTING. cece ws eee cc rencecesnaccece > 
' 
pit SLART Separators, pDranch....eee- > 
1 
tine I/O command code in the f£cB 1s 
iset to *skip to Channel one’. 
\ 
j|Cneck for stop condition. if so, 
\ 
}A Link 1S made to the physica 
PCOUTINGC ace reer eevvrereccsreecccceasace 
\ 
|Lf cestart to pe done, pDranch to 
{Stare over AJPGALN ww ew ee cee cesccvveece Pa 
| 
jRetucn to caller via cegister 3. 
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ILabeis jChart La: IPWSS5LW - Logical Writer IModitied vata |Reg. {Calls 

' |rietas | Usage ] 
jLoad bpurrter address 1n register 38. 
}xkeStore restart information. 
' 
}An empty block 1S indicated in the 
}L2CB. 
4 
iff tape spooling, return to caller 
!via cegister 3. 
h 
ifhe DLA pointer of the first-in-set 
sgueue record is copied to tne TCB. 
) 
twhen double data fiie buffering, the | 
jseex address of the first data plock | 
}15 moved from the queue record to tnel 
jda2sk cequest word for tne second data) 
jfale purtfer in the CB. 1 
i (@his 1S done to inaicate: first time) 
}tnrough now.) 
\ 
jRetucn to caller via register 3. 
1 
jsetup Printer Subroutine 
! 
jihe subroutine setS up the printer 
}(non—-impact) with the new or Last- 
fused printer setup but without copy 
igcoup values, no fiush, and no copy 
jmodification. 
}@he coutine is only invoked by tne 
jsepacator-page handler in order to 
favolid muitipie copies of each page 
jwhen copy grouping iS in uSe. 
1 
ff not a 3800 printer, return to i 
PCP LVS Lo o6 i iol 686 tale o's 10's Sie 0 Sis eee. 0666 PyPRSZ 
' | 
jIf output was not destined for a 38U0} 
tpcinter, return to Callece...22-22- APRS 
! | 
jit end Separators, DraNch TOceceeee PAISSIV 
' | 
jit start separators and record is not} 
fa SpreRt record, return to cailer.. >}Kz 
t ' 
Address SETPRT parametec i1ast and t 
fOLANCNH CO CONTINUC ec cceccencccccese PJSDLVU 
b ! 
{Use logical data area as a work area | 
fand copy the current SELPRL parameter} 
jiast into it. ‘ 
1 
ySet tne command code ana tne lenyth 
fan the ItCB. 
| 
}set initialize printer fiag. 
{Clear out copy group values. 
}set no flushing. 
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pORPFLAGA(seP List) | 
JSPPCUPIG (oPLAST) | 
ISPPFLASH (SPLAIS?) | 
}Set no copy modification. {SERCPMOD (SP LIST) | 

] { i 
pA Lank 1S made to tne physical ( | t 
LCOUECLI Gide e Seek Sekt beee we ooecee eed aU } pRB 
1 t ! | 
pReturn to Caller cccccacceccccccee PEKL | pR2 
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IPdsSMS - Message service 


INPUT 


PROCESS 





Process rerjote message request 
BS-1.1 


----->[02} If message is destined for another node: 


Process nodal message request 
AS-1.2 


—-~-->}03] L£ local message: 


PP OO RD Fe 08 00 0F 09 09 00 Oe OO 98 OE 8 OOF 00 Os Com 


Handle sessage destined for local 
operator or Cross partition user eee 


Exit, return to caller (Nucleus) eee 


yet 


< 





CHART MS; 


LPas SMS 


OUTPUT 


Chart ms 
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IPWSSMS - Remote message service 





INPUT PROCESS OUTPUT 

I: { | | RASS 

els, ‘ 

cg i i Mainline ae |MSPL 

| | | 
rch i rrccco > 101] edge? 4 processing: wae } Ls 
3 1 - address new register save area 

[rca deatetanttene atetieiesnated J | - address ALLUSERS nmessagetable = jeceeece 
—_— | remote message gueue —I te 
{TCAW j LCBMSG# 





ical 
io) 
w 
wee eee 


! 
pene 
[o2} Dasplay ALLUSER EIpe messages: | 
us - asS address of first/next message 
| o caller 1 
[Lcusscr ee aieiieng 4 
lrcpasce sere cer reese : | (3) Delete ALLUSER type message: | 
+ H 3 as - Locate appropriate gessage entry | 
: : - check issuer 1S entitled to 
SUCB | : | delete messaye ; |i 
3 - flag message entry as not in use | 
[suac | sess -s== 7 ¢ lt 
: : fou] Add _ message to ALLUSER message table 1 
: 3 - locate free entry 
: 3 - set up sessage 
: i----- 2}05} Delete BSC message: : 
: : t+ - de-queue first message in LCB 
3 : subchain 
z i----- 2} 06] Get BSC/SNA Nessage: 
: - get message indéx and calculate 
See ees Sees message entry. 


Delete SNA message: 
- add all entrieS in delete subchain 
to the free chain. 


Delete SNA messaye peepurer th: 
~ move first entry of live chain 
to tail of delete subchain : 
- update message counter accordingly. 


a ft 





Add tesporariiy deleted SNA aessage 


a & 


10} add BSC/SNA aessage to remote message 
queue 


A. Locate LCB/SUCBK matching remote id 


Bb. Locate free entry in sessage queue 
- free message queue, is fuli 


Ce set up message and perform message 
modafication : ea 
- precede message with originator 
anf orration 
if applicable 


ao erie eee pay a ge EERE SEI APE a AY EOS A EGR SMES HY UME SS CTE ELI GSO re SE CRAIN STD SMA AR ODMR sae MAILE ECD. 


SE EO SH EY EE SR SE SE A SO A ES NY SS et RT ET EE OS SL SES SN A EN Ge Se SE 


D. Chain aessage as last entry in 
supchain 


CaP Re A EE LN EE AD SE SR RES EN A CE A SM SN SSS SS 


meen eye eraser eee nee ee SONNET SA a pe pe Sama ans ED oe Rae ye EL SP Sn PA A PEA ont REE OS were geanewen eememne eee Nae \/eemene ene \/ewnoneenn: 
es agement gain etm serene ire alin RAO RW iis Sinan eno RP Se = re hn Drs GADD rena eee targa >in ae pS spp COUP 
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IPWSSNS - Remote Message service 





fhe 


a er ne Sa AE NR CO A OY OS RT ES ST 


NOTES 


Por a reaote a doped 4 request 
{TPO SERS) the function to be 
erfora is indicated in the 
unction indicator byte in the 
remote message control block. 
Thas byte is copied at entry from 
the first bie of the message 
control word. 


Tnis 1S the entry point foe all 
reaote message reguests. The 
requested fufhAction is selected by 
branching to the appropriate 
routine. 


If the current entry is the first 
one (register 1 zero), the ALLUSER 
message tabie is addressed. If the 
current entry is not in use, the 
next entry is addressed. Otherwise 
register is setup to point to 
the message. When all ehtraes have 
been processed, register 1 is 
Cleared to indicate 
end-of-message. 


The ALLUSEK message numper as 
pessed by the caller in register 1 
s used to locate the appropriate 
entry in the ALLUSZR messag table. 

Tf an invalid message number was 
open saree or the user is eeyana 
the delete a message whicn he 1s 
not entitled to, register 1 15 set 
to zero. 

Note: the central operator can 
delete any message in the table. 
The message entry 1is_ released 
(remote id set to x*PF*) and 
return is made to the caller. 


It ail messages are to be deleted, 
ali entries of the message table 
are scanned for a matching remote 
id. If a matching remote id 1s 
found, tne message entry is 

lagyed as not in use (x°FF*) When 
all entries have been scanned, 
returh 1S made to the calier. 


The ALLUSER gessage table is 
scanned to to find an unused 
entry. If the ALLUSER ree message 
table is full, register is set 
to zero and return is sade to the 
caller. ae . 
Otherwise tne originator*s id is 
stored in the mesSage table entry. 
Tnaen the gessage lenyth as checked 
and if it 1S too long, it is set 
to the maximum (max. 59 bytes). 


{ MODULE | LABEL 





| 
| 
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Caen 


4S50 


DISPROUT 


DELK OUT 


FPFTYPE 


rh 
be 
ea 
ta) 
a 








are then aoved into the entry. 

If the message peand assed 1S in 
nodal message recor paaa) format 
a prefix cofsisting of originating 
node nage and if present — 
originating user 1s built is front 
of e message. 


5 The subchain index (addressing the 


next message in the LCB subchain) 
1s stored and then updated with 
the free chain index. Then the 
free Chain index 1s updated with 
the message subchain index, and 
the subchain index which was saved 
is stored in the LCB. ; 
The BSC message counter is 
cocrencated by one and stored 

ack. 


6 The current message index is 


either obtained toe the LCB in 
case of SSC or from the SUCB in 
case of SNA. If the subchaion is. 
eapty(message index = x*FF*) 
register 1 1s set to zero and 
return is aade to the caller. 
Otherwise the displacergent of the 
message within the reaote table is 
calculated and its address is 
passed to the caller in register 


A check is made to see whether the 
temporary delete chain is empty. 
f soy, register 1 set zet to zero 
and returh is made to the caller. 
Otherwise the end of the delete 
subchain is located and the last 
entry is et to point to the next 
free entry. Next the free chain 
andex is updated wath the 
temporary delete chain index and 
the coaporary delete chain index 
is et to x*FF*. 


8 It the live subchain is eatpt, 


register 1 is set to zero and 
return is rade to tne calier. 
Otherwise the end of the delete 
subchain is located and the last 
entry of the delete chain is 
upae ed with the subchain index. 
The message entry in the remote 
message guese is flagyed deleted 
x*PF*® and the subchih index an the 
SUCB is updated with the next> 
message index in the live chain. 


9 All saessages which are currently 


an the temporarily deleted chain 
are put back in the live Chain in 
the proper order. 











G£TBSC 


DELSNA 


DELTEMP 


ADDDEL 
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Chart as 


NOTES | MODULE | LABEL | REF 
| The message text. and its length } | 


| 
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| 
| 
: 
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IPw$SMS ~ Nodal message service 
InNpPout 
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TCB 
TCAW 1 Sen eer ~—. 
fre ae re tas eane 
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4B 


[SRNN I 
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PNCB 


PNCSTLD } 


PNCSNCB | 


}PNC3NDT } 


Pte Oe ce eee Ot On nese ee ee ae ee 


4 
t 
t 
' 
) 
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substitute any variable in the 
message texte ; 

Next the "ynlank compression® 
routane 1s calied to delete two or 
more consequent olanks in tne 
message. f a. 
Note: certain. messages, identified 
by the message humper, are 
excluded from the squeeze process. 


Licensed 


PROCESS 


| | 
| 


Speros Mainline 


ee 


If add request: 


A. reserve storage for nodal message 
record and copy message. 

If no storage is available, 

return to caller with RC=4 


----- >fo2} If build SSR request: 
[a | 


A. Ac wire storage for nodal message 
record. 
- If no storage is available, 
return to caller with RC=4 


Initialize nodal message record: 
message text & leng 

from node/user id 

to node/user id 


Be 


Perfora message modification and delete 
duplicate blanks in message 


Optain route path anformation and 
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OUTPUT 


purine | 
NARSL 


|wnRPA ! 
NAROUT } 
NARTO | 
[NSRASG i 
NCB 

NCBMSGA 
NCBACT1 
console 


transmitter 
entry 


NCBEST1 


PAaET Driver 
TCB 


[rces | 
i. 


4 
= 
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Vo Vv 





| 
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Vir Verena Yer Verememne Vere Vow Vie Vow 
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| 
4 
Pree cence tl 00 oe beer oe es on gees ved 
t 
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PE CO I NE GE EE ES SS SS SRT NE LP BIST SS CI IID Se II IS GASPS STE ST AGES US | 





i y determine best path to go 
aie a aaa: [re 
: A- If no path is available or node jeee >d>]U6 | 
Se Tressssers 3 Fe grate i rcp at p NMR storage os came 
: and set returncode. 
wee ww meme wwe J t 
----->|05] Queue nodal message record and inform i ae } 
a PNET driver H | 
' 
(] t j 
| Exit, return to Caller | 
e 
| ee. 
a, | 
| | | | 
NOTES | SODULE { LABEL | REP H NOTES j MODULE | LABEL 4 REP 
For a nodal message request, which 4% Now the NCB chain is scanned to 1 t 
is setup via the IPwW$ICS macro determine the best path to be | } 
| SSEEUGE Sens She cuactson code as oo in order to transait the 
assed in register While ° 
| Feqister j a3 ell te ficids i! -~ ifa ace aap dprag Parco to Ene | | 
}* and * make up tne rime route e 2S queued on 
| par ae ee Dae ee | | | I ~ If eee connection exists | 
| 7 ae opel aged eoneaes 4 ple is | | wasr00 | {| Bae a conpectso0 caaete to the’ 
alrea ain ¥ orga noda alternate route, 1f one is . 
| regis @ Fecord) ; addressed 2 | i Shreya cee seeee Ae duauptiea i | 
s S s - 
| ey in the aessage/coamand guegs { | | { First Tne hereors cot init ion caute | [ | 
of the appropriate node contro as scanne o ge e route? an 
block gor? Further transmission. | {| Eoutez informat ion for bate target 1 
! node. e chain 1s en 
| 2 Tne message Contained in the $RSV | scanned for a match with the 
| messaye definition module is route? or routeZz node name 
i addressed and its length is used respectively. If a match is found 
| to obtain enough virtual storage | and signon is completed between | 
to hold the meSsage 1n NMR format. this ahd our node, the NSR is 
{ If no storage is available retura | { i queue on this NCB. 1 
| Pouien is wade tok eresiiecs = | | t The NCB chain is locked for the { SRSR 
oa : ; | duration of the scan- If the NAK 
| The Piaget p= ae be rae Fs ee aan | can hot be queued 92 any soar Ene 
Copied into tne just optain storage use o ho e is 
| Storage. The originating node id | | released and returncode 12 1s set. 
r and target node 1d and if : If the node is unknown, returncode 
| spp ieee le user/remote id are { | | tt 8 is set. | | 
stored in the NAR. | tt ; . eee 
| H it 5 The PNET driver is intormed that t j | 
3 If the nodal message record $Gas i message/command iS put in the 
contains a message originated from | { ueue in order ato attach a j { 
the local system, the messaye tt console transmitter task, if not ! 
| modication routine is calied to | | already one exists. | | | | 
| | | ! 
| | | | , ak eo a 
| ; | | a ee 
| | | { § 4 
| ; | | | 
! I I th i) 
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LPWSSMS - Local messaye service 
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Input 
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TCMW 
\Tcaw 


Pee erecsere com 
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NAK 
NARPLAG 
NBRAL 
NAKPS 
NMKOUT 
NARTO 
[NARSSG 
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a ee an ene ere 


A4B 


(mama | 
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The sessage address and message j 
lengtn are retrieved froa the | 
Roerage request word contained in 

the TC of the calling task. The 

message length is examined for . 
excessive ee pa and truncated, if | 
neccessary before the message iS 
moved into the messaye output area | 


of the control block. 


It tne message peang 
nodal messaye recor {NAR format 
a peerss consisting of originating 
node name and if present | 

originating user is built is front 
of the mesSage. 
The message reply word is checked 
for any reason code passed im it. 
If so, the reasoncode is saved in 
the save area of register 0 
message control block. 


passed 1S in | 
| 
sn the | 


The messaye modification routine { 
is called to suostitute any 
Variable wnich 15 still in the 
messSaye text. Next the resultiny 
text 1s examaned for trailing — 
planks and the lenjth in the write 
CCW is updated accordingly. 


If the messaye is destined for a 
x-partition user, the messaye 
which describes Dest the tybe of 
error is returned in the user 
buffer. ; 
in case of a CTLSPOUL request 
which cesulted in a PALTEK or 
PDISPLAY commani more than one 
wee eange could pr issued by | 
VSE/POWER- The last message is 
returned to the x-partition user. 

4 


[:] 


PROCESS 


Mainline 


entr rocessing: 
= aaae z 


ress new register savearea 
- clear message output area 
- set up TC addcess used 
for message sodification 


Move message into message control block 


Ae 2 
information, 


Perfora message gaodification and delete 
s 


trailing blan 


“ove nesgage into user supplied. 
estined for x-partition 


puffer if 
user 


If 


blank out repl 


length, if 


Delete duplicate planks from message 
text 


Write message 


Process reply, 


Te-issue I/0. 
- unchain read C 


- translate reply to uppercase 
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$8S0Qz 
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ES OE SE OS EL TT GE SS ST Ree PERE Te 


precede message with originator 
if applicable | 
- node and/or reaote/user id 


teply as requested by caller: 

~ Chain read CCW to write CCH 
area 

- truncate expected message reply 
neccessary 


if any: 
- if operator pressed 


Cr 


Exit, 


5 
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eae te ee rer een ampere em aemyee eats am 


OR re EE TE A TS TT TL ET SE SE SP I SRE I SE SAEED 


om 


PS I SS CL YI 
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emeweew are ee nee eae ee eee 
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*cancel*, 


yr SE NE pS NY SO ER en eS NY ao SS a SY SSE ey 


return to Mainlineees 
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The cd a address, contained in 
the TCB Of the calling task is now 
examined to determine whether the 
caller expects a reply. If so, the 
expected reply length is retrieved 
from the user area and truncated 
if excessive (max. 7z pytes). The 
read CCW is updated and chained to 
the preceding write CCW. 


Next the *blank coapression® 
routine is called to delete two or 
more conseguefit blanks in the 
message. . ies 
Note: certain messages, identified 
by the message huamber, are 
excluded from the squeeze process. 


Tae unit exception bit in the cCcB 
1S Checked to see whether the 
operator pressed to cancel key. If 
so, the message 1s re-issued. 
Otherwise the read CCW is : 
unchained from the preceding write 
CCW. The operators reply as 
converted to Gppercass Characters 
and then moved to tne caller's 
input area. 
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Vm me Vine ore re rere ne meee Se rm tre 
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IPWSSMX - Message/Comeand Distribut.on 












INPUT PROCESS OUTPUT 
| “| | | 
etl, 
‘ Soy ri ool Caller j 
eg ister —, 
pees teria aa | es ee t {reg ister 13{-— : 
| | uJ | Save caller's regasters oy __-________4 | | 
| LONAR { | | t | Save area <4 
| NARPLAG ; Steateiaenteahatetetennenetene rocco > If Reoaa3° and destined for local | ta: —; [Reg - we 9} | 
—_—_——_——— : operator? Fy 
| NMRTONOD tt 3 | ee Pass wessage to local message H : ! } 
| 7 service. : i i 
_—_——— | t : : { 
NARRST 1 | i----- 03} If message and destined for local user: : { 
NNRUSER : : 
| | $ | A. If tor ICCP user: : | : | 
{NMBMSG : | - add message to Notify message | : 
3 queue. : 
io---- | O04] If message and destined for reacte { : 
: | terainal operator locally attached: : | 
| : A. If ALLUSERS type message 2 H 
: - put in corresponding queue : t 
: Bb. chack for valid remote id (0 - 200} 3 H | 
: an : 
H - put message in remote message 2 
: queue 4 
| i----- fos] If command and destined for local 3 | 
ju system: 3 j 
} - pass command to coamand processor. : | 
| [oe] If a command or message for other node: j : { 
bo : | 
| | | A. Queue sossage/comaand to appropriate : ! t 
node control block : ' t 
| { | d- If node 1s unkown or unreachable, | 3 | { 
| | prepare inforwsation messaye | A | | 
\fo7l Restore caller*s registers <{------------- on] | 
| | i , | | 
| | Exit, return to Callereee | 
e 
| pe \ 
| | is | | 
| t | 
| 


aaa 





3528 VSE/POWER PLM Part 2 


Licensed material - Property of 18” 


IPpa$$e8xX - Message/Command Distribution 


{ NOTES | MODULE | LASEL {| REP i NOTES | SODULE | LAsEL kKEF } 





processor® routine is cailed an 
additional Save area iS set up. 


t 
t 
| Entry to message/comaand | H I} it, however the command is in { | {LCP | 
distribution iS made by means of t t global command syntax the command | 
i macto LPW$6NS SS aalerde as ae macro i 3s discarded. { | i 
expansion aas set u e aduress 
| of the nodal wessage record (NMR) } \ Next the routine waats for | | | swec | 
| ain register 1. I | | coapletion of the command { t t | 
. t { ! processing and releases then tne ‘ | | i 
| 1 the Corlerts registers re phe r | | pePay i Storage used for the additaonal | H | | 
an the linkaye save area addresse: save area. 
| py register 13. | | i . t Oe eee { 
. : 6 Common services 1S invoked to I pMvVOVU [$ics 
< If the nodal message service | | baka I queue the message/comaand to the | t | 
| represents a message for the local aperopr sate node control block. } 
| Operator “(thas = x*00*5 or x*10%), | | { | The service scans the network | | | | 
the NAR is vassed -* eae berlarsber Ppa ape crete tad So.de recs ue tne | 
service, wnich in fac aces tne es a o the other node. 
| froa node id and it applicable the | | { Pollow ing return codes are given | | | { 
from user ia in front of tne pack: { { ry 
messaqde. - R1- : mee code7 Coneane susues 
- no storage available 
The message 15 also destined for - 8 node unkfown 
| the iocal operator when tne user - c node unreachable | 
| 1a is *ROOO . | | ' | | t 
| ; | | 6B In case of an command, which iy SNTY | 
| 3 tara ees a local user has a coat net pe dueked. an atterpt | 
| ; | | | originator that the target node | | 
3A Tne nodal message record 4s SnTY | 1s either unkown or no t | 
Ppasset to tne Notify message connection patn exists to reach | 
| queue by beers the IPWSNFY 1 that node via message 1RA2I. | | i 
Macro instruction. 
t { t } | 7 The caller*s regasters are t | {SnueT | 
| 4 If the message is for a remote 1 ! SRS restored from the save area t f 
| terminal operator (tlag=x*40*") the | | | addressed py register 13. ! { | } 
remote 11 is taken from tne NMR ; ; ! ! | 
| S8ehetepatSsaage ks Bucued ay” | | [i SMeepece setup: | | | 
! issuing tne TPWSRMS wacro | | { = § - normal retucn { 
anstruction. On return register 1 - 4 - VSE/POWER RJE not t { 
contains an ind:ication if the | | | Bu pper tes | | | 
gueuing was successful or not. = : yee Osh PNET? not 
su OoOLrte 
4 Register 1 1s zero when either the | | | = Pe - ALLUSBRS messaye queue | | | 
"ALLUSERS*® queve is full or the H } full | | 
remote operator is not logyed on. ' i - 10 a Remote xxx Currently not t 
signed not ' 
{ 4 In tne farst Case a returncode of | j t - + - invalid remote 1d | | if { 
| 4 is set in register 15 if the | | - 16 - no storage to hold | i 
from node if iS the own one. messaye/command t 
| A returncode of 8 18 set when the | tt - 1¢C “- node unknown { } 
remote operator is not Llojyed on. | - 20 - node unreachable 
5 Betore the ®invoke command | | mpavo SRSwW ii | | | { 
| ( I I 
t | | ! tt | } } 
I i ! t It | I I t 
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CHART Ny; LPwS$NY 


Cr — 
4 LPEWSSNQ - VSH#/POWER Get Next yueue Set from Cnain j 
t—_——_——_+ 7 a 
( Laber { Routine i 
(t-———_—___+—__ Ht 
) NyOU } function Entry i 
1 Nyv0 | Examine Class Table t 
) ayv20 | Read Next Record } 
} NYst { Function #£xit i 
On ete re ha nee tr ees a ner Se Ree | 
at ey teed ee 

i 

—+4 

h 





| Services Usea 
| Service } Macro 


| Resource Management } LPwSRLR b 
i } LewSRSR i 
}———-- 4} Sane 
} storage Management ) IewSRLW if 
‘ | IpwSxRsSW { 
Sao SNES RC an GE ARES SR ae | 
} Message Service | ITPwsGan " 
SSS See ———— 
} Disk / tape Service } IPpwscTtt i 
! ) IPwsR0Q i 
! } Lewsrot 1 
" ) I[PwswtgQ 4 
Who anette tment remem atin veel mmmencinpt aterm cant tiniest -inareninemeiieiimierintinns nies 
aa ea | 

A 

— 

1 

SSS 

A 

\ 

b 

\ 

ee | 


| Called py 
SS eS 
{ module } Description 


LPWSSLW | Logical writer 
LPaS SNL } Network transmitter 
IPwSS0F } Ortfload Queues 


LewSSXR t Execution Readec 


cree 
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es 
| Lapeis 


NWO 2 


NyvU3 


NvOQ6 


NOS 


N40 
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jChact Ny: IPWSS5NU - Get Next Yueue 
poet from Chain 


{fhe tirst 16 bytes constitute the 
Section descriptor: 


}*nOCS release * 
b 


! 

foave caller registers 14 through 9 
janclusive. 

' 

IkeSecve queue work area 1r not 
ipresent. 

' i 

bit not tape Spooling, branch to...-.>}NQU8 
4 ' 


_— ew we oe we i ee we oe ee 


Skip to next queue set and read the } 
gtirst record into the queue-record 1 
pwOrk space. ‘ 
b 1 
jLoad address of message 1IQ43L. } 


af end-of-file found, brancn to...-.>jNyYVO 
‘ | | 
Load adaress of message 1y77I., j 

; | 

gif tne ygueue record 1s for the t 
gcurrent release, DranCh...ccoe wncae cers NYUS 
] ] 

pif tne queue record is not fora b 
Rpcevious releaSe, DranCne-acaeeeceee Af NyUO 
h i 

bit tne contents of record are iy 
hincorcrect, then DEaANCNe ce accee csc ccert NUVO 
i 1 
pine queue identifier 1S then compared} 
}with the task type of tne calling ) 
}task. 1 

pif they are equal, DraNCN tOee eee eee rh NYS 
1 1 
jissue message. | 
jset stop code "®S* in TCH and ex1t...>)Nydd 
b \ 
jset function track indicator to N 
} (get next in progress). 

}Set addressability for disk 
management plock (vMB). 

{Lock DMB. 

] 

}Examine Class Table 


\ 

}scan task class list in IfCB and 
jexamine each claSS taSkK entry in tucn 
If no entry 1S active (#LB posted): 

1 

j}Release queue Space 

}Reset space address 

! 

;Reset function track Indicator 

} (plank) 1 
PEXLC ec enc vce er cone ccececacevacsceccseeor{NVGZl 
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jModitied vata 
jFlelas 


LPwsvsv 


CCE 3S (LEW DDE) 


JORDY (LPWdSDVK) 


LC1rr (Lewsorc) 


£Cer tT (LewSuic) 


PCy a (LPWSDEL) 


TCeT(LewSDPC) 
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{Calls 
\ 


LPwsR5w 


~~ ee Sw we ww ww ww we i 


piPwsert 
jiewsRoTt 
i 


LpwsGaM 


LewSrkok 


LewsRsw 


eee eee ii i 
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#Chart NQ: ITPwsSNQN - Get Next yueue 
{set from Chain 


}Hxamane Active Class Chain i 
t 1 
{fcansitate relative pointer to first- 4 
jan-class. | 
bk t 
fRead queue record in tucn in } 
Jauxiliary area. i 
1 t 
§Spool Management GETSPOUL request? i 

t | 

,ir no, Dranch TCO caw cc caccecesacvceceer|{ N39 
b | 
;Positioning cequested? 1 

pit NO, OFAaANCh COccccccccccccces acca cer| NID 
' 1 
}Positioned on QY-recora for jop given | 

fin spool parametec List (SPL) cen | 

LE nO, DLANCN CTOccncccwccnceaacececeaer| NYG 
h ) 

jif a jopd numper waS specitied and it | 
}does not match the current queue ’ 
jrecord, pbceanch COccccanccwvaccavceecce?}| NUSU 
i) 1 

pit issuec does not have mastec | 
jauthnorization, check the password. \ 

}It a mismatch is found, branch to...->}Ny4HV 
! 1 
jJob ror QY-record currentiy printing? } 

PLE YES, DLANCN COcceccccccccccccccee >| N40 
! 1 
Save number ot Lines and cards. 

1 

ftuy-record dispatchable? 

pac yes, branch COS 6 ered wl 6% 6 Srctecee oi08 soe? 
b 

tindicate that the record is not 
jpositioned. 

' 

jReset numper of Lines and cards. 4 
}Disaliow GELSPOUL. eos ccenccesccccc eed | NU4VU 


Ny 10 


|Modatied Data 


eer ee eee eee eee eee oe 


Flelas 


YCWW (LP WSDYC) 


SPLC(SPL) 


SPR3(SPL) 


SPLcC(SPL) 


APWDKDY 
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jLapels  4Chact Ny: IPWS$$NQ - Get Next Queue jModitied vata jReg. jCalls 

} {Set trom Chain jfileldas jUsage | 

| Ce Te Te eT ee ee eee 
$NuU35 ;ff the record is not dispatchable, j 


PDOANCH COcanccneccacsaccccacaccconser{ NUS 
b ‘ 
NU38 jIf the record is in execution, j 
PPOANCH COcecccccccaceacvecacccescaser{ NUGU 
b ' 
jit POFFLOAD tape function, pranch...>{NQViod pLCKZ(LPWHOTC) 
if gueue record not in AMT queue....>{Nysy JUCSI(LPWSDYUC) 
| t | 
jit tne calling task is a transmittec | JUCLN(LePwHvuC) 
sserving the calling target node, tnhnen| }TCENCB 
iset queue record to "processing"....>)Nus> jNCBNAME 
1 : an} ' 
}If tne target node is known, pranch.>|NyP4 jaDING 
iset gueue record DISP="H*, rewrite } JYCUVP (LPWSDYUC) 
PANG DLANCHerccccnecacencccccce cece oe Ap NH 
' b ! 
{if the transmitter task 1S serving h. j 
{the node primary route node, pranch.>|NyI> | 
Otherwise, reserve the PNCB } l 
{if another transmitter 1S Serving tne} \ 
ppcimacy CLOUTS| NOTES weceecesccevcee ce A/NYPA | 
' 1 | 
NQP8 {Release the PNCB. If the tranSmitter | | 
fis secving the aiternate route node.>jNylod | 
JOChECWISE DIFANCHececccceccccccccece cer | NUL | 
b | | 
{if the primary node transmitter 1s i i 
NOt SIGNEM ON eee eacccccccsncccecseecer®| NUPY i 
yOtherwise release the PNCB, branchn..>|NyY4VU j 
i b i 
{if it is a reader queue record, 4 | 
PALSpatcCh Aten ccc eer cecccarcecesacceer| NIV ! 
i | | 
jif the remote-ids match, dispatch " i 
PAC nwa ws cme cc cccanaccencvccccaccccccaer| NOD " 
i | i 
jit ali these conditions were not met | j 
jthen the queue entry canaot be b 1 
iprocessed and the next entry 1s j | 
PLSTCLSVEM cnc cerca cccaccenccccccccsc eeAiNy3V j 
i 
i 
| 
\ 
i 
| 
| 
\ 
| 
| 
| 
i 
1 
i 
1 
1 
| 
| 
i 
i 
! 
| 
1 


a 
c 
to 
+ 


LPWSRSR 


LPWSRLK 


z 
Lo 
aS) 
id 


LewsRLR 


=z 
Cc 
& 
ts) 


z 
Le 
- 
(=) 


' | 
{if 1t as not an RJE task nora 


z 
tc 
wo 
(o) 


; i 
{GETSPOOL reguest, the live pit is | 
junposted for the class. } 
! iN 
Jif tne spool fiies are not Shared, j 
examine the next claSS entry...-e.-->}/ NU IS 
' h 
}Set off the live pit in the correct | 
jclass entry (RDR&R,LST,PUN) in the ' 
isysid class table for the issuing | 
Isystem*s sysid. 4 
' 1 
)Bxamine next cClaSS entry.ccccecese eer} NUTS 
1 | 
}Iif 1t 4s an RJE task, pranch to.....>})NQ40 


2 
Cc 
to 
Wu 


1 | 
tif a PNET target shared system was | 
{not specified, then pranch....-ee22e->fNQIS 
1 | 
jif this system is not the target j 
\Shared system, then pDrancheceeaeeee ee >| NVYHU 
\ | 


4 
tc 
= 
Cc 


QRSLv (LEWSDUC) 


MRSY (LPWHOWC) 
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iChart Ny: IPWSS5NQ - Get Next Qgueue 
jSet from Chain 


jSet execution switch. j 
t i 
{Indicate executing system. t 
' ! 
}Write record pack. | 
\ ' 
jkeSecve queue Space if necessary and | 
jsave ats real and virtual addresses. | 
{Store gueue record seek address. i 
\ b 
jMove queue record from auxiliary areaj 
}to queue space. i 
i ] 
j#unction Bx1it j 
\ t 
}Set the function track pyte in the j 
4f£CB to C®LI* to indicate open for h 
janput. i 
b h 
}Check whether the TCB beiongs to a ‘ 
{command processor taSk or to 





®*save i 


paccount®. If so, branch tO.c.ceoeee ae PJ NUSD 


{Unlock the disk management plock. i 


! b 
sCneck if queue space is present. If 4 


1so, Dreanch LO cn ec crc csccancccncccceerP NUSY 


sCheck 1f the regqueSting task 1S an ‘ 
}RIE,SNA weiter task. If not, pbrcancn } 


JOO 628 6 eee oie eS oes we 6 056 Sw ww esis ee ces ee oe PNUSY 


! b 
bistablish addressability to the LUCs 4 
jan register 8. h 
jfstapLlish addressability to the j 
jadevice entry in tne SUCB in cegister } 
1S. i 
indicate no output avaliable. Y 
\ b 
{Return to calling routine. t 
I A 


{Relative to Absolute Seex Address Conversion Subroutine 


' 1 


fne relative record address passed b 
jin register 1 is converted to an t 
japsolute seek address which is stored} 
jin tne 8-pyte field addressed py t 


{register 2. t 
{For #£BA devices it 1S not necessary | 
jto convert from relative to apsolute,} 
}decause READ/WRILE wiil be done witn } 
jcelative plock number only. i 
{}If ¥FBA device is uSed, store relative} 


joLock number (R11) in registec 1 ) 
}(celative block number). " 
jketurn to cailer via register 14. ' 


jmodified Data Reg. sealls 
}frelds jUsage 1 
LVCAS (LP WSDYUL) ' j 
| 4 i 
hWCSY (LPwSDYC) j j 
1 ' 1 
j ‘ ,pilPpwow fro 
1 b | 
j ry pL eWSROW 
PLECVA(LPWSvTC) j j 
jTCowW (LPwSDVC) t h 
\ ) 1 
}URVS (LPWSDUR) iY h 
i i i 
i h | 
1 i I 
i t i 
pe£Crrqiepwsorc) t | 
| i } 
1 ' ! 
! 1 ) 
1 ' \ 
l t 1 
i 4 i 
| t pIerwskR Le 
| i i 
| h 1 
1 i] | 
| 4 1 
| b \ 
| ' ) 
| h j 
| } 1 
| 1 | 
I i i 
| ! | 
| i ! 
i1SUL 4S (LewWSDSU) i i 
1 ' | 
I j {LPWSRET 
i i I 
] | 
| i \ 
| bRO,RV, | 
] iR3 i 
\ oN | 
| i 1 
| \ i 
| ! 1 
\ i \ 
\ \ | 
| 4 I. 
\ h is 
| i boy 
| h ! 
| {R14 1 
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TZ 10 


¥S5S01 
VS51 
VS91 


Get trace entry 
(ancludes IPwWSGTE macro) 
Virtual Storage Management 


Reserve workspace (includes LPwW$xSV macro) 
Release workspace (includes LPwSRLV macro) 


CHART NUs IPwSSNU 

id ee eae ee 
) LPWS5NU - VSE/POWER Nucleus : Services i 
tr —_—_———H4 
} Label { Routine i 
+ 4 
} | Task Management ry 
I \ 1 
} £a01 } Task initiation (ancludes [PWdsaTx macco) j 
\ \ \ 
| £014 } fLaSk initiation (includes [Pw$vDiELr macro) h 
! \ \ 
} M01 § Task Selection (includes ipwswFx macco) ) 
1 | h 
| } Resource Management j 
i \ \ 
} RAO2 } Reserve resource (includes {£PwSRSR macco) } 
| 1 1 
} RM51 } ReLease resource (includes IPwSRLR macro) | 
| 1 l 
! } Storage Management 1 
l t ' 
} SHQ3 |} Reserve workspace (includes LewSRSw and IPw$OLi macros) \ 
} s51 } Release workspace (includes LPWSRLW and LPWS$CLL macros) 
\ h \ 
i } Message Service t 
\ | 1 
i MMO} } Local message service (inciudes [pwhwtO, IPWSWER and LPwWSGAM macros) } 
} Madd 4 Remote message service (includes LPwekMS macro) | 
} xm 10 } Nodal message service {includes iPW$ics macro) H 
} NS10 | Notiry message service {includes IPwantY macro) i 
! i 1 
| t Disk Service | 
\ 1 | 
} DM20 § (includes L[PwS$RDQ, ITewswhy, LPwSxrDv, and I[ewWSwTD macros) | 
| 4 | 
1 | Tape Service \ 
| 1 i 
} te2v } (includes IPWSRDL, IPwSWEL, ana LPw$CrL macros) } 
| t I 
| § Timer service | 
| ' 1 
} TRO1 | GeTIME (ancludes L[PWSRDC macro) i 
} £525 | Tamer interval Service (incLluaes [PWSSTM macro) } 
! ' 1 
1 {| Vaiiadation Service \ 
| ‘ i 
} Vaui § (anclLudes IPwS$VDa wnacrco) | 
l t 1 
1 {| Set Remote mask b 
1 \ \ 
} SR10 } (ancludes IPWSSRM macro) t 
! I \ 
\ \ \ 
l 1 i 
1 I | 
| \ \ 
1 ' 1 
1 i \ 
1 \ 1 
! i I 
' A \ 
vu. 


ne sy 


Unchain workspace (includes [PwSUNV macro) 


Chart NU 


sna it Pt nes nee et A Ps a te OP nc aise enseetiecammneniatieeenameaiicamietfh 


‘es 


3o/ 


v 
{ Services Used 
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p—-——---}- —_e 


a 


j service } Macro 

| fasSk Management { TPwWSwec 
" } LPwsweDd 
| j LPwSwFL 
i++ 
} Resource Management } LTPEwWSRSR 
j } LPWSRLR 
{ Storage Mahagement } LPWSRLW 
\ ) ITewsRSw 
t 

} message Service } LePwSGAM 


LL 


he 
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ege jCalis. 


c 
jLlapels jChart NU: IPWSSNU - VSE/POWER 


{Task management 
ifne first 16 bytes constitute 
ssection descriptor: 

i*wCB release*® 

i 

}fasx Initiation 

1 

{Registers at entry: 

' 
) Os: Return address to caller 
{ 2: Address of CB 

1.3: Address of routine to De 
' (CSECT) 

b 

}Set task dispatchable 


8 
& 

oO 
- 


jarea 
| 
4153 
1 Ys 
$323 
i 


CSECT address 
CSECT address 
Entry point address 


ta] 
ad 
° 
we 


}CAT and match task identifier 
) 3: 
4.23 
| 


Preceding task address. 


H 
oO 
ror 


jtable. 
t 


ra 
td 
- 
oO 


Jpointers in new TCB. 


\fcB. 


i 


jhaghec. 

i 

pRetucn to caller. 
' 

jTask Termination 


1 
}Registers at entry: 


w 
> 
Nw 
Cc 


&bither zero or address of 


Os 
4: Address of ICB 


Tu01 
| 


{TCB. 

i 

yStore address of previous TCB 
PCB. 
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jinitialize registers 1n taSk Save 


}Scan task control address table in 
o£ the new task (first character) 
Task control address tabie 


{Store the new TcB address in the 
jappropriate entries of the task index 


|Retrieve next pointer from preceding 
jtask and set task selection i1ist 
{Store address of new TCB in preceding 


{Store address of new TCB in next cB. 
jincrement number of curcent tasks. 


{Update maximum of previous NRC if 


an ECB. 


Remove TCB from selection List: 


Nucleus, 
) 


entered 


prerix 
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Jstore address of next TveB in previous} 


1 
ae | 
in next} 


}Moditied Data 
j#1lelds 


“CSP (LPWSDEC) 


{ICRP (LeWSDTC) 
[£CRY (LPWSDEC) 
|PCRC(LPWSDLC) 
1 


pLCN (LeWSDEC) 
peCLP (Le wSDEC) 
PECEN (APWSOTC) 
t 

jECx Pe (LPWSDEC) 
|NRIC(LPWSDP A) 
l 

|NRLH (LPWSDP A) 


PCEN (LEWSDEC) 


CUP (LPWSDLC) 
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jfask danagenent } 


{Store the previous TCB address in the} 
jappropriate entries of the task index; 
Jtable. | 
4 

jeost ECB, if available. 

{Decrement the number Of tasks. 

A 

jit no more than two taSks in 
yexistence (three, when queue/data 
jtirles shared), check for tecmination 
jin progress: If so, post terminator 
PLCB. 

! 

{Release work Space occupied py ICB. 

] 

j&nter task SeECTLON ecweusvcscevnecessanet 
1 

j}Task Selection 

i 

(Register at entry: 

] 

1412: address of next instruction to 

! 

i 


TAV2! 


pe executed when taSk 1S next 
dispatched. 
| 
jSave task registers 12 through Y 
t 
Janclusive unpost VSE/POWER master ECB} 
jCheck if timer interval expired, if |} 
jyes, branch to timer service routine 41520 
i l 
}scan the task Selection list: j 
i434: Addresses fCB 4 
$12: addresses selection routine. t 
}2. w state: If VSE/POWER master ECB) 
1S DOS ECU S566 assed bee 6 oa ole.eee aces > ,LMV2 


1 


— oe we oe we oe ee ee owe oe oe ee oe eee ieee 


If running with queue/data file | 
shared, and 1f no other taSk 1S } 
waiting for the DmB/aCB, the ) 
nothing-to-do-ECB is posted. } 

i 


Otherwise, wait for posting of 1tj 
(SVC 7) and Drancneee.ccaccoeee APLMUZ 

2. L state: If iockword of the 
cesourcce zero, entec dispatch t 
LCOUTLANEGC . we wecca nec ccacrcacscecece PLTHYV 

b 
If the yueuvue and/or account tile } 
Shared, and the resource 1S | 
elitner the DMB or ACB (1f Account} 
file 1s shared), prevent cancel- } 
ation of time interval. j 

h 
address NEXt CPCB ecseccecdicscvccs?| LAW 

} 

3. M4 and Q states Scan control | 
plock list for posting of the j 
tratfic or event pit. L{f found, | 
store address of reievant control; 
plock in register 1 in task | 
Save area and enter dispatch | 
LOULLNSc ce www wm ncccecsccsccseoccsscoee JAPTAYY 
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}Modaitied Data 


Fielas. 


NRIC(LPWSDPA) 


TCGw (LPwSDPC) 


TCLPR (LewSvEC) 


PAEB(LPWSDP A) 


SSNW(LPWSDUL) 


SSwWK (LEWSVYUL) 


ECRV(LPWSDUC) 


R1,R2 


;RV14 
R12 


t 
Ts 
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jLabelS jUChart NU: IPWSS5NU - VSE/POWER Nucleusj 
' jTaSk Management — i 


TM80 


Tu82 


Taso 


— or ome ae cee we ee ewe we we ee ee we eee eee eee we i ee ee we em ee oe i a 


R state: Resets the task " 
Selection field to R state after j 
redispatching the task when a ' 
page rault has been handled. " 


Bhntec the dispatch routine..... >; LMYU 
1 
C and S state: If traffic or } 
event bit posted in control i 
plock: } 
i 


fest if unrecoverable error nas | 
occurred. If not, enter dispatch 
COULLNG cw cccaccccccccccccscccese >| THYD 


1 
Test if task accepts I/0 error. | 


bees yes, DlTaAnNCHececcccecncenvesace >{TayO 
\ 
Lf writec task (LST or PUN), thenj 
enter dispatch routine......-0- PP LMIV 
I 
fest for I/O error during data 1 
file access. If so, entec } 
GLSpatch COuUlL UNC ee cc eeeneceevee AI LMYIV 
I 
Test for RJE. If Line manager, |} 
agnore the CLEOLewccccccccencee APTMYVU 
! 
fest for PNET. If Phet Driver, 1 
AGNOLS The CLCLOL ec cccccccccceee APTMYV 


—_— 


Set termination indicator in 
4CB (L/O error occurred). 


Addcess taSk~-terminatoc pnase 
(lPwSS$TR) and Set entry point. 


Store entry point in regaster 12 
(task selection). 


— a i ee oe 


1 
Bater dispatch routines..cee.-e- >PTMYVU 


1 
Otherwise, (no posting) address | 
next PC Bis-a'e ete. 6 ete, elereelcteree ele eiere tes >, fau 


\ 
ft, U, and P state: address next | 


EP CB ew eiblie one le/ 6 aie! 6.6 ere! e605 as elelerels ores >}, im 


t 
B State: i1f the reiated taSk 1s | 
posted on a BSC line event, | 
unpost 1t and enter dispatch t 
LCOUTING -e ecw cccaceccccccceceaee AETHYVU 


) 
Otherwise, address next TUB.... >4TM10 


TMYO }vispatch the task. 


1 
) 
}keStOce taSkK registers. | 
jindicate task 1S running. j 
}Restore condition code in PSwW. j 
{8canch to next instcuction | 
| (cegister 12). 1 


jModiried bata 


eee eee eee eee ee eee ee ieee eee ee eee 


Flelds 


LCRC(LPWduLC) 


PCLT (LPWSDEC) 


ne 
G 


“CRC (LPwhv2C) 


TCSP (LPWeDLC) 


LCSP(LPwSuLC) 


R12-RY 
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tnucleus. If not, DraNnCcn..cecccecee A|CUM4 
} ] 
jSave register 9. { 

6 1 
j5et up in register Y¥9 the second pase j 
fcegister of IPWSSNU. | 
{Branch to Service routine.ccecsecee | 

b ] 
jCneck if called from inside of | 
jnucleus. If so, return to caller... >|{R2 

1 . \ 
jOthecwise restore caller*s cegister Y} 
fJand-return to CalLlerecccccacccececee >|R2 
{Registers at entry: 

1 

}2: return address 

3: address of control bDLock to be 
' reserved. 

1 

jkeserve Resource 

i 

{if resource 1S avaliable, 

{set ownership (address of TCB) in tae] 
{control plock. i 
{Branch to exit of nucleus function. >{,EAIL 
1 ' 
jOthecwise, save registers 0-1. Check} 

sit resource to pe locked is DmB; 1f |} 

}so DOANC io oc 6 c.b.6 6 oe eiscéie Cele oe cee ee eee 6 >) kodVU 
i 1 
{Check if resource to pe reserved is |} 
{ACB. Tf not, DEANCH 6. 6s ee oie wes see e >, kKaZU 
' \ 
[Check if account file 1s Shared. If | 
jnot, DEAD Ch ssc. oS eers oho Sia oe oie aS 6s oes a} RazvU 
\ 1 
{Address work-to-do ECB using registerj 
ii, and DOAN Cis so « 0: d 0.6 a « 6.6 a 6:6): ee 66 0.86 > ,Roitz 
| ; | 
(Check if queue file 1S Shared. {[f j 
jnot, DEAN CR 6% 06s 6 ' 6: 0 ke eee 6 'e6.6 6 eee ore >yRu2ZU 
1 ] 
jAddress work-to-do ECB using 

jcregister 1. 


\ 
1 
\ \ 
! 
i 
| 


TCUY (LEWSDIL) 


QGnw 


—_—— = a wr ew oe oe 


}Post work-to-do ECB. 
' 
jWaat for the resource and retry the 

PCOST ee cc wane ce cerecccaceseaccacacccoce >, RA01 
! : 

{Release Resource 

\ 

jxkeset lockword to zero it it 1s 
jowned py calier. 

1 b 
iBranch to exit of nucleus function. >|ExIL 


4Pwdarh 


—_—_= we oO 
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}Labels 


S014 


Smu21 


Su22 


SM24 
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pCnhnart NOs LTewWSSNU ~ VSE/POWER Nucleus} 
jstorage Management j 


jReserve workspace 

4 

}Registers at entry: 

] 

ceturn code 

idength of required work space 
fceturn address 


Nw SC 
ee ee se 


Lock SCB (explicitly coded). 


{Save caller registers 14 through 5 
janclusive in SCB. 

1 

jset ownership in control block. 
}Round length of required work Space 
jup to next 32-byte poundary. 

t 

jaddress first or next page. (Lf next |} 
Ipage POINTE NOT ZECLOcecee ceca ceeoe AESMU4U 
' ) 
{storage aSSignment tapdle scan 
jcoutine: 

1 

) Examine the page control byte: 


—_— ee ee ae wee iia 


1 
(x*O0Q0"% PpFIX this page and rormat J 
t DT eele 01-6 eine oe ae ea olen oe @.6eielece see >) 5430 
px*4u* } 
}X*80* caiculate next page address j 

and Tetlyf ee eccceveeccevaccvcece > ,sa2vu 
$X*CO* no space availadDle.wcecceeees APSMZI 
i i 
tUnpost #£CB in SCB. } 
I | 
jExamlne the return codes (1Nn register; 
$0, byte 3:) ! 
\ 1 
PX*OU* <ammediate CXl1twccwecccccssee >$SMz0 
tX*O04* bypass MeSSage and Waliteceen H$SUNZ4H 
{x*O08" assue message and walt.....- >J5SNzZ2 
I h 
jissue warning message to operator 1 
$2059L wALTiNG FOR REAL/PFIXLED ! 
t STORAGE j 
jReset return code to x*u4*,. hk 
{Update count of tasks waiting foc i 
|storage. " 
' ! 
}Restore caller regasters. } 
{Save space length. ' 
}Onlock ScB. j 
}wailt ror posting of ECB an SCB. " 
) \ 
{Restore space length and cCetry..... >45SnVU2 


jmodiried Data 
|Fields 


SCIR(LPwHvSC) 


SCLK (LPWSDSC) 


oe Oe oe eee ee eee eee ei 


SCEB (LEWSDSC) 


SCKU (LPWSDSL) 
‘NRiw(LPwSyPa) 


SCLK (LPWSDSC) 


Lewpw 


Lewow 
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}Storage Management 
jimmediate exit (calier will handle 
{wait for ECB): 

{ 

}Set address of ECB ot SCB in cailer 
{register 1 

|Restoce calier registers. 

tUnlock SCB. 

{Return to Caller .cccccccccccccecce 
1 

}Page Format Routine 

j 

jindicate page in use in storage 
jasSignment table. 

I 


}Store address of new page in previous 


ipage. 

|f£1x the page (SVC 67). 

\ 

;Update statistical infocmation in 
(CAT: 

\ 

$e <{ncrement number of fixed pages. 
je Caicuiate maximum of previous 

j field. 

\ 

{Lf machine working in virtual moage 
only, skip to prevent SVo09........-. 
" 
{KRetrieve real address otf new page 
(SVC oY). 

i 

{store page control words. 

1 

jStore first BCW pointer. 

1 

yIndicate last page in Cnain (zeco 
{pointer). 

| 

jinatialize flrst-in-page BCw. 

\ 

{Initialize last-in-page BCW. 

\ 


}CLear Work Space 1n new page to zeco. 


\ 

jBuftec Scan Routine 

\ 

{The rollowing conditions May occuc: 

! 

t* Butter in use exahine next 

be Buffer too smali butfer..ecece 

je Scan ot page unsuccessful....... 

je size orf required work Space 

\ Matches buffer SlZCeeneeeeececee 

°e SButfer size larger than required 
(split). 


Second buffer equals required 
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| 
i 
\ 
i Ficst putrer equals unused space. 
\ 
\ 
\ 


>15n81 
| 


>| Su33 


—_— oe wr ee ee ee we we oe ew oe se ew ner oe ew em oa See eee eee eee 


h 
>pSm42 
>4SM10 

I 
>) Sm4d 


jModiftied Data 
jflrelds 
SCR1I(LPwsusc) 


SCLK (IPWS$DSC) 


SCLR(LPWSDSC) 


1 
| 
1 
\ 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
|PCVN(LEWSDPC) 
} : 

| 
| 
| 
l 
| 


|NRPC(LPWSuP A) 
|NRPM (IP WSDPA) 
1 


PCRA (LL WSDPC) 
PCFA(LPWSvPC) 


PCVN (LPWSDPL) 


PCFB(LPWSuPC) 


|PCLB(LPWSDPC) 
i 
J2CwS(LeWSDPC) 
\ 


jRIB—-KRO 


be) 
= 
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tLlabels jChnart NU: IPWSS5NU - VSE/POWER Nucieus} jMOd1itied Data }Reg. {Calis 
) {Storage Management ' jFrelas jUsage t 
Sa45 }Update Bcws: 


te Store appropriate length values. 
te Set address of owning fCB in BCW 
' foc second (or only) puffer unless 
1 OWNER=SY¥S was specified. 
1 
jkeset user registers: 
fe Real address of work space in 
! register WU. 
$e Virtual address of work space in 
1 register 1. 
! | 
PEX LC we mew ncee saccencccccccccresccsecs >| shsv 
I 
{Release Work Space 
] 
}Register 1: virtual address of work 
}space. 
1 
Si51 Check register 1 for zero (no work 
!}Sspace to release); 1f£ SO pranch ...> 
b 
LOCK SCS. 
{Save caller registers (14 tnrough 5) 
jancLlusive. 
b 
}Post ECB in SCB (indicate storage 
jceturned). 
tUpdate BCWS. 


SCKO (LP WSDSC) 


SCR1(LPWSDSC) 


—_— se oe Sw ee oe ee 


BALL 


LewWSKSOR 


{fhe rollowing conditions may occur: 
{® Combination unused spaces possible 
je Tne page contains no more active 
j puffers. 

1 

jReSet uSer-registers to zero, and 
jcLear work Space no ionger needed 

|} (including BCW no longer needed). 

! 

{Release the page: 

}Update page pointers. 

| 

{Store new page in the previous page. 
' 

jStore previous page in next page. 

| 

jFree the page (SVC 63). 

1 

pkRecocd page out of use in sStocage 
jassignment table. 

1 

Decrement number of fixed pages. 


SCROU (LEWSVSC) 
SCKU(LPWdSDSC) 


PCVN(LewWwSDP LK) 


PCVP (LYEWSDPC) 


NRPC(LPWSDP A) 
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1 
Sus0 }Unlock SCB. 


! 1 
jReStore registers and exit..--.--2. APHALT 
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jLapels jyChart NU: IPWS5NO - VSE/POWER Nucleus} $Modified Data pReg. ‘|calis 
|Message Serive 1 }¥1elds {Usage | 


{Local Message Service 
! 
MnO 17 {Save the return address. 
I 
tLock the local message control DiLOck. 
i 
}Save registers 14 througn 3s. 
1 
{Load the address of the message 
imoduLe (IPWS$MS) into register 15 anaj 
joranch and tink to perform the " 
jmessage SCLV1CC. oe cece wee c cece aecee 7424 (RF) 
\ 4 
iUpon return from IPwS$Ms, restore ) 
jcegistecs 14 through 8. | 
{ \ 
jit tne hold operand was specified in | 
jthe message request word (tCMw), | 
jorancn TCO ncecesrecesseccvecanvseseesenece >), Naud 
\ | 
Unlock the local message control plk.| 
\ I 
mn05 }KRestore the return address. ! 
4 \ 
pketucn to CX DC wie. did :0:c e%elee bee ee eceee >, exit 
\ 1 
ikemote Message Service | 
' ' 
mad jit RJ&b 1s not supported, branch ...->) ball 
} 1 
jSave the return address. } 
' | 
tCheck tor ADDNRM request. if not, i 
jorancna TCO ccc aces aeececenseveccesasccoeas 21,Mno3 
i \ 
{Check for SNA. ff not pranch to... >{MAD3 
1 ' 
yLock the SNA control block. } 
1 \ 
mus3 [LOocK the remote message control | 
I 
\ 


LCRG (LP WSDTC) bR2 


— eo ee ee oe 


|LPWSRSR 
4 
ansV([PWSDmm) {}RIW4—-RY 
i 

bR15 

\ 

\ 

\ 


1 
pRIG-RY 


LewdRLE 


oy 
Nw 


bo} 
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ICKG (LP WSDIC) 


SPWHRSK 


LPWSRSR 
polock. 


oe ee ae ewe eo ogee ee ee ae 8 ome ae ae Or ee oe oe me om we ae SO oe me @ ow ow = ee ow oe oe oe oe 
—er er ee ee ee ee ee ee we we i we ee ei iw ow oo 


—_—e ee a ee oe ee ee ee ee ee eee ew ee 8 ae ew ew wm we ew i ew i ee ee 


Co ee ee ee ee em em Om ee ee i ee 
—-— = ew ee ee oe eee oe ee ee ee ie oe i ee 


A ED OG Oe OE ED OP aD ee EP aw ae ae a ae ee ee ee ee Oe ee om OF ee om oe > a em ae ee we ew we re we ee oe wr we er ew me et ww ee ee ee a we we we ae 


370 VSE/POWER PLA Part 2 


Licensed Material - Property of IBM 


JLabels 4Cnart NU: IPWSSNU - VSE/POWER Nucleus} jmodirfied bata |Reg. Calis 

' Message Service } }Fieids iGsage i 
tLoad the adaress of the message 1 
jmodule (LPWS$MS) into register 1D andj 
yDrancn and link to perform the | 
fmeSSage SeELVICe. 2. ewcececcce acer cee P| 1O (RF) 
' i 
Upon return from LPWSS$MS, reloaa h 
jregister 3 with the address of the i 
jmessage control biock, restore i 
tregisters 14 througn y. t 
t 1 
tChecx for SNA. If Not, pDrancn to... >| Mthidd 
b | 
#Check 1f£ the request 1S from the j 
{command processor or the SNA managec,| 
pit SO, branch TO nc ee ce ercercnedcccrece 2 Madd 
! 1 
{Unlock the SNA control pDiock. 
h 
i 

Mu5s5 tUnlock the remote message controL 
pDLock. 
1 
|}Restore the return address. 
\ 


PEXLCe cece creer ccc ccccecceccscecccces ? 


| 

Get message Text 

1 

{Registers at entry: 

destination (remote ID or zero) 
17: message index number 

{2: return address 

b3: address of user-suppiied message 
' area 


LewskLE 


LPWSRLR 


BALL 


Gni0 {Save the return address 
1 
jLoad the adaress of the message 
{definition module in register 2 and 
faad the Length of the standard 
}storage descriptor to it. 
jthe message index. number is multi- 
}piied py four to give a displacement 
fin tne message adaress table. 
jRestore the return address. 
/ 
Check if user-supplied message area; 
pat not, @e@pweeee*e0aneaeeeeseageoeseeeeeeenean @ >\{GM20 
jmove message from definition module | 
{to user area and CX1t cuoceeeeeeeeee APEAIT 
! h 

Gu20o jCheck if return of message address inj 
jdefanition module was requested. [f }f 
jnot, branch @eeeaeeseseeeneeeneeeeoeaeaeeeeeee 8 7,Ga25 
1 \ 
tReset flag pyte and exit....-...... DHPEALT 
1 ' 
} (Note: Register 141 contains adaressed | 
jmessage). 1 


CRG (LPWSDEC) 
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}ChartjN0:; IPWSSNU - VSE/POWER Nucleus} 
imessagejService t 


jStore message address in TCB, j 
{Check 1f£ message is for central j 
joperator. ) 

JIL not, DLaANCheccencccccccacccceeee 24GN30 
i | 
{Set address of reply area in [CB to |} 
jzero, to indicate no reply wanted, } 
fand DrAaANCh CTOcccccccccccccccccccove APMMUI 
] 
{Indicate ADDNRM request and } 
POLCANCN TCOceccccccccacncccccananccoce P/M? 
\ 1 

1 

' 

}Nodal Message Service 
! ' 

}If no PNET support, branch tO....-..->} Hail 
j}Lock the remote message control plock| 
{Save registers 14 to 9 j 
}Brancn and link to tne message module} 


{to perform the reyquired function....>}| 20 (RF) 


) 1 
19pon return from $$MS, reload K3 with) 
}remote message control plock .address } 
jand restore registers 14 to 9 h 
h ] 
{Unlock the remote message control t 
Restore the caller*s return address }f 
PANG CXL c4c se ce ccc ce owe oe e6 a ee eee ee PGK LE 
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jmoditied Data 
{flelids 


tTCuwW (ITPWSDTC) 


b 
} 
! 
1 
| 
1 
! 
! 
| 
! 
1 
1 
1 
| 
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1 
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jCalls 
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LewokRLK 
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}ChartjnG: IPWSS5NU ~- VSE/POWER Nucleus} 
jMessage|Service 1 


j}Notiry Message Service " 
‘ ] 
jif message iS in NMR-format, pranch.>{Nsyv 
1 } 
}1lf no target node name 1s specified, } 
juse the LOCAL node name as target } 
Inode, and DLaANCh COccaccacccccccccceeor{NSZO 
] ! 
{Utherwise set up function to pulid h 
han NAR and DELANChH CO cc eccccesccoe co >A>f NU 
i 1 
jff no target userid 1S specifled....>|NS8U 
jit tne userid iS not an KJE usecid ) 
i ¢®Rnan *), DOANCH COcccacacccane se >| NSYU 
i | 
(If RJ& 1S not supported, branch to..>} fxr 
Otherwise convert userld into a RJE |} 
sCemote-1d and DraNnch tO. ecaccccaece eo >| GUND 
! i 
{2cepare to send message to local | 
Operator, branch TCOceeccncancacccacerf Oi 10 
t | 
pif Notary 1S not supported, pranch..>j&xit 
Save caitler*s return address and iock | 


}communicator information block. ) 
{Save Registers 14 to 9 4 
jBrancn and link to Notify support Y 


jto add the message to tne notify ! 


{message GUCUC cee dceccccccccceccceceer} ZU (KF) 


i h 
}Upon return reload R3 with address of} 
jcommunicator control block address j 
jand cestore registers 14 to 9 

i 

{Unlock the communicator control 
joLock. 

Restore the caller*s return address | 
PANG SXLCecccacacacccccecccccccccceser| HAIT 
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jfields }Usage | 


R1,k3 


{RO,R1 
\R3 


£CRH (LPWSDLC) 
CIBSVC 


LPWSR 


Lewdr 
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jRegisters at entry: | 1 
! 
sRO 
}R1 


b 
}O: keturn address 
13: Disk reguest word (DRwW) 
| 
DM20 jhe first byte of DRW is used to 
jiocate MCB (via module controi biock 
jtable in CAT). 
| 
Da21 {LOcK MCB. 
jSave addcess of DRwW. . 
fwait on previous I/O completion. 
1 
{Save disk request word address 
1 
jaddress CCB and wait for compietion 
{or previous I/0. 
I 
}if error has occurred (1/0 error, 1 
jwrong length), branch tO.cecceccccee ALVMZD 
Otherwise branch tO CONTLNUC ea ceeee >| DNV 
! | 
DM2Z5 jLocate the TCB which issued the I/O |} 
fan error. ! 
sift TcB cannot pe found, branch to... ALDAusVU 
' 1 
jset termination indicator (U) an f£Cs.j 
' 1 
jSet proper function track byte (to G | 
jor PB). i 
4 i 
jaddress terminator phaSe (LPWSSLR) j 
fand Set entry point. ! 
' 
1 
| 
| 
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{uCLK (Le wsDnc) 
[MCSI(4PWSdDaC) 
! 


\ 
puCat (LPWSvAL) 


j)LewsSRSR 
\ 
pLPWSWEC 
\ 
’ 
\ 
jivwswrc 


&% 
= 


Oe ee ee ee 
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9] 
tt 


£CTT (LewSDIC) 


Ls] 
» 


LCET (aPwbuTC) 


h 
}Store entry point an register 12 


} (task selection). 
' 
{Give task ownersnip of mCB concerned. | 
4 i 
{Branch CO eee we ccc ce crccccccecce ccece >; Du21 
4 i 
Dm30 If no I/O snould be 1ssued (NuP- 1 
joperation) pranch. @eeeeeaeaneenteeeet © 2} vUMo5S 
1 ! 
pit I/O request is for C-K-D device, | 
PODLCANCH ecw cvecccannceancccenccesee score >joMa2 
j | 
jInitialize cnannei program (FBA) t 
! 1 
je current block number 4 
je type of operation (read/write) j jmFUB (LP WSDL) 
je numpec of PBA plocks to process i) [MFRW(LewduNc) 
je move read address of puffer ' juraB(LewsOnc) 
1 
! 
1 
! 
t 


~ 
- 
tw 


MCLK (LPWSoOuC) 


w 


H 
pMEKD (Le wSDNC) 


b |MPKW (LPW SDB) 
{ (Note: when the master gueue cecord 
fsnould pe read in/written, the 
jnumbec of FBA blocks to process 1s 
}taken from the disk-request wora.) 


I 1 
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DM48 


DausoO 


DM6oO0 


DMo5 
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4Get ouffer address (if any) and 
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}Disk|Service ! 
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jinitialize channel program (CKD): 


seek address 
command code and data addres 
record number to sector 


} 

. ! 
je Move | 
) 

t 

Virtual adaress of puffer } 
1 

1 

i 

1 


}e move 
1e Move 
te Save 
$e Save 
1 
jExecute channel program («SVCO). 
' 
jif this 1S not the data file, brancn j 

PCO sis. wee. 0 ocean ote 'ere od Be 06 e «aoe eles ere ecere >| Duo00 
\ 1 

pif the Last request was doupie puffer| 
jrequest, the puffer is freed: i 

‘ 


U 


TCB address of ownec 


trelease puffer. 
\ 

ff tnis 1S not a double putfer 1 
[request, branch TO ec wenenaceccccecs >|, Dudu 
jaf writer task {LST or PUN), j 
joranch TO ecw e ces escevresececeacevavecone 24DM05 
I ' 

ft CCB 1s complete, pranch to....-. >| DMD 
I 4 
pAttempt to get 2nd outfer. 
\ 

1 

yIt no buffer 1s avaiiable, 
! 

jSet up new puffer addresses. 

1 

jindicate putrer cleared (N). 

jSave old puffer address. 

;Branch CO eo aide ete See lee 6 6.e ieee ece.ece se) e.e > 
| 

jkesStore registers. 

! 

I . 

jandicate request handied 

j 

}wait tor completion. 

1 

i 

}If wrong length, or unrecoverable L/vU} 
jerroc occurred, exit to task j 

| SQ LECT LON és o-6:0.0:5:0 0108s. 060 6 oS 0 6.66 60:06 > ,Pus2 
i \ 
jOnlock MCB. j 

1 | 

' : ! 
jtask Selection 1s forced to ailow any} 
{higher priority task wailting for the | 
jcesource to get 1t at that point. ' 

i ! 
EX1ltae @eeeoeoeeeseeecs8seeeaeeeerskseseeeseeaeexu#Heeeeeaesws PpuALL 


pranch tor} Dmdv 


Duos 
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}Moaitied Data 
}Frelds 


|MCSA(LEWSDMC) 
pACKW (LEWSDNC) 
JMCSE(LPWSUMC) 
pUCTV (LEWSDAHC) 
pMCST (LeWSDAC) 


£CDa(LPwsDEC) 


PCvB (LP WSUEC) 
MCTV(L2YWwDMC) 


MCOT (LPWSDMC) 


MCLK (LPWSUMC) 


(Calls 


sWsage | 


Oe ee ee ee ee ee ee ed ee tel 


1RO,R1 
1R3 


©] 
cS 


bo 
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RU,R1 
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LewdR 


aPWow 


LPWSR 


tewiw 
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jRegisters at entry: 

! 

}O: keturn address 

I 

tRetrieve tape control block (TBb) 
fjaddress from TCB. 

\ 

jset address of CCB in register 1. 

! 

{execute Chanoel program (SVe VU) and 
jwait tor completion. 

! 

{if any error other than wrong length } 
Jex1it tO taSkK SELECTION --neeeeeeeee AHTMIL 
I ' 

jit neither EOV nor s£OF detected, ' 
joranch TO ace caecsececesacescnanseveeeoasn a, Teov 
1 i 
je&xamine CCW to indacate £OF for input} 
jmode or EOV for output mode. h 

I ) 
{Ketucn to caller. ' 
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| {Timer Service ' jfleids iWsage | ' 
Sr a ee Oe ee Re eg ee OTE TUT ee a et ag eg ae a ee te ey et \ 
j {Register at entry: ] 1 ' i t 
1 j i \ i i h 
] yu: Return address ) j ;ROU | t 
i ' ' | \ i 1 
{TRO }Read time-of—-day clock (GETIMNE \ i sR1 j 
| STANDARD) (register 1 contains time | | ' | ) 
} tin packed decimal format). s } i N " 
\ | ' 1 ! ' I 
} }Move updated time value Irom ' {MROY (APWSDYC) pR2 j t 
} {Ppartition-communication area to i | 1R3 j " 
\ {master record i \ \ \ 1 
\ \ 1 \ 4 1 \ 
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' 
| 
' 
t 
t 
' 
' 
‘ 
' 
' 
' 
t 
' 
! 
' 
' 
1 
' 
' 
( 
' 
' 
' 
' 
( 
t 
' 
' 
' 
( 
( 
' 
! 
' 
' 
' 
! 
' 
' 
' 
| 
' 
t 
’ 
( 
| 
' 
t 
! 
' 
t 
4 
{ 
' 
' 
' 
' 
' 
t 
' 
! 
' 
' 
‘ 
' 
t 
' 
t 
! 
( 
' 
' 
' 
' 
' 
i 
' 
' 
t 
' 
| 
$ 
| 
' 
' 
j 
' 
' 
{ 
' 


pRegisters at entry: j 
b | 
}2: Return ) 
jo: Partition control biLock | 
$8: Command control word address j 
! | 
puexit: f 
jReturn code in register 0 } 
tRU=0, normal exit j 
j;RO=4, error exit | 
i ! 
VaU 1 jfne Limits of the user real i 
jpartition, or if the partition 1s t 
jcunning wirtual, the Limits of the ) 
jvirtual partition are retrieved rrowm | 
tthe partition control block. ) 
t ' 
jfhe CCw adaress iS checked to ry 
jdetecmine whether it 1S on a doubie |} 
sword poundary and whether it 1s in t 
Jthe user partition, the SVA, or the 4 
JLLA (only if user-owned). If the Crew) 
jas not a valid address, eX1ta....-- PpRALT 
| h 
fhe data area adaress and tne lengtn 4 
hace obtained from the Ccw. j 
b 
bif tne length is higner than 512, 


< 
i 
oO 
LF) 


RU,K1 


hEOX1LC ec enc ecc ence cecesrecccccananccescce ? 


1 
jCalculate end adaress of data area. 


\ 
jif tne length is zero and it 1s not 


h 
! 
i) 
b 
L 
j 

at 
IL£LC Operation, CXlteccccencccacccee APEAIT 
\ ' 

}L£f 1t is a read operation with no } 
jdata transfer, Gxitecccaccccceeeess APEAIL 

' 

' 

) 

b 

b 

) 

A 

b 

4 


< 
ha 
Cc 
~~! 


i 
jine addresses of the uSer data 

jarea are matched against the i1imits 
jof the partition, and if they are not 
fwaithin the partition, against tne 
jlamits of the user-owned Logical 
jtransient area (LTA). 

t(Notes The LTA boundaries are 
jestaplished at initialization time.) 
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Jbapels j4Chart NU: IPWSHSNU —- VSE/POWER Nucleus| jmoditied vata }Reg-. yCalis 
’ }Validation Service ' {Farelas Usage 4} 

fe a a ee St a ee a ne Pe ae ee ee ee re See SoS S<<s= SSS ss= 
pVai2 ££ tne addresses of the user data 

‘ jarea are higher than the partition 

} jlamits, they are matched against the 
i jlimits of the SVA:;: 

| ' 

j jir it 1s a read/sense operation and 
' {the addresses are outSide of the 

i] ppartition or LTA, return to caller 
] 

' 

i 

} 

) 

! 

‘ 


°] 
Ww 


wo 
N 


jvla error exit. 
} 

if the addresses are invalid, exit j 
jWath ELrOr ANAGACATION Yowcacececoee PAPHALT 
t ' 

yIf tne adaresses are valid, exit j 
jwith cegister Zero bpelNng ZeCrOeeesee FI LALT 
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JLabeis jChart NU: IPWSSNU - VSE/POWER } Jmoditied Data pReg. }Calis 
jset Remote Mark in Remote Table ! j#1elds jUsage | 
|Registers at entry: 

I 

4}0 > andication (turn on/off) 
472 - remote id 

}2 - return address 

1 

SK10 }Copy indication in register 12. 
jDivide the remote id py elght (tnis 
bhas the effect that the pyte 
}displacement in the remote table 
jand the remainder are used as an 
findex to address a pit maSkK.) 


i) 

jif bit posting was requested, 

[DEANCH és Wi wad es cS issn eee wae eee aie ce ad 2 

j 

{Otherwise use remainder of division 

$}to address bit maSk. ThiS Dit maSKk 

fis used to turn otf appcopriate bit 

fan cemote table. t 

Branch CTO COMMON CXKlteceecsececacceoe PPLALTL 

b 

j;Use remainder of division to address | 

jo1t maSk. This Dit maSK 1S used to |} 

}turn ON appropriate pit in remote j 

jtable. i 
b 
1 
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}Cnart NO: IPWSSNU - VSE/ POWER Nucleus} 


}Page Fault Appendage 


pRegisters at entry: 
1 

Return address 
Entcy address 


7 
3 
3 Page fault request word 


1 
h 
42 
I 
teage Pault Pre-Processor 
h 


' 

}Calculate base address foc nucieus 
}code. 

! 

jaAddress TCB of the task. 

t 


{fhe status of the failing taSk 1s 


jsaved. 

1 _ 

te Address of next sSequentiat 
\ instruction. 


te Task registers register 13 through 


1 register 9 inciLusive. 

je Condition code. 

I 

iSave page fault request in Cb. 
jindicate wait for page-in. 

I 

jmodify PSW in partition save area to 
}rorce entry into VSE/POWER task 
|selection. 

\ 

ift page fault in progress, zero page 
jfauit register request word. 

4 

{Otherwise, Save current page rauit 
irequest and TCB address. 

) 

tketucn to supervisor. 

1 

}Page Fault Processor 

a 

!Calcuiate base adaress for nucleus 
pcode. 

! 

peost VSE/YOWER master ECB. 

1 

hKPOSt VSK/POWER partition 
}d1spatchapble. 

{ 

sAddress TcCB of the taSk (from save 
jarea). 

I 

jClear page fault request in TCB. 

I 

}Set the taSk dispatcnable. 

1 

{Scan task Selection list for any 
}Oothec outstanding page fault: 

1 


Fi N 
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je Register 13 Loaded with page Lauity 


’ cequest (if any) or zero. 


}e Register 14 Loaded with address of| 


j TCB (if found) or zero. 

' 

ifne page fault request (register 13) 
jand £cB address (register 14) are 
jsavea. 
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}Attention Interface Appendage 


}Registers at entry: 


Us VSE/POWER processed the commana 
4; ithe command does not exist 1n 
VSE/POWER 

3: ‘fhe VSE/POWER Command Processor 
is active 


a 
Mo) 
\e) 
=} 


| 

|Save cegisters 12 through 11 
janclusive. 

;Save putter end address. 
;Caicuiate base address ror nucleus 
jcode. 

1 

jLlf the command code 1S incorrect: 
}* cestore registers 

je set return code (R15=4) and 


b return to Calle li biieicic eis erc eejeed >40 (R14) 


' 

jAddress command processor TCB. 

jit tne command processor is active: 
je Restore registers 

je Set return code (R15=s8) anda 

j return to caller... ccc cc acnccee 
! 

faddress command processor contro. 
joblocK: 

\ 

}set RJE-ID to zero (locai). 

}Cleac command area. 

jiMove command code in command area. 
| 

Scan for operand string and move it 
}to tne operand area (1f any). 

i 

Clear sequence number and CemMainder. 
1 

initialize command processor TCB: 
je Clear register save area 

ie Store address of CCB 

je Set base register 

te Set entry address 

te Set task dispatchapnle. 

1 

}Post VSE/POWER master &CB. 

1 

Post VSE/POWER partition 
jdispatcnaple. 

t 
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VU: Length (minus 1) of command codej4 

1: address of command } 

2: Address of end of input puffer 

14: Normal return adaress 

15: Entry point address of routine 
return register 15 contains: 
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! 

JCPNO (APWSDEL) 
J|CPEA (IPWSuLC) 
| 

pLCLK (LEWSDLC) 
UCR? (LPWSDEC) 
JTCKS (APWSDIC) 
pLCRC (LPWSDLC) 
JECSF (LPWSULC) 
| 

| PAB (LPWSDPA) 
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Labels  4Cnart NU: LTPWSSNU ~ VSB/POWER Nucieus| {modified Data iReg. jealis 
{RJE, BSC Channei knd Appendage i |fielas \Usage |} 
tkegisters at entry: j 
t t 
43: address of CCB i 
138: S&ntry addacess | 
17: &x1t address i 
1 I 

CBE00 }Cneck tor channel end, device end, or}| 
junit check. If not, return to $4 (R7) 
PSUPCLVILSOL oc ew cow e een cece cacce veces Pm | 
j 
jSave cegisters 4, 5, 6, and 7. 

b 

JCalculate base address foc nucleus 
jcode and address line manager Icb. 

\ 

}If L/O completed on RJE,BSC line 
POCANCH ce vcec a ccccecccccavvccccscenee® 
1 

}address NCB and copy address of 
jnext CCW trom CSw. 

}Yueue received input puffer to PNET 
iOrivec puffer queue. 

1 

{Post PNET driver dispatchable 

jand DOANCNceccecececennevvsevessevanseveeD? 
t 

CE40 !}Copy address next CCW from CSw. 
jSet tne Line manager to dispatcnabdle.| 
\ \ 

CE44 jScan the appendage queue Lor the Lastj 
}CCB in the Chain. } 
| t 

CE48 pStore last CCB in chain. i 
i I 

CE80 pPost VSE/POWER master ECB. \ 

\ 
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\ 
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{Post VS#H/POWER partition 

{adaspatchaple 
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jHot Reader Appendage j 


{Registers at entry: 


3: PUB address of the device 
| 8: kKeturn address 
5: s&ntry address 


! 

| 

I 

1 

| 

} 
jSave registers 9 and 10. i 
\ | 
}Scan ceader tasks TCBS for a matching} 
jdevices | 
i \ 
|it tound indicate reader device | 
jend occurred 1 
1 1 
jit found and task 1S inactive - | 
I i 
jSet tasx dispatchable 1 
{Post VSE/POWER master ECB j 
1Post VSHE/POWER partition j 
jaispatchaple 1 
i I 
tRestore registers and return to j 
|supervisor via register 8. j 
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iModitied vata 
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{sVC O Appendage 


}Registers at entry: 


' 

4} O: TIK value 

} 3%: Address of CCB 

1 2: addcess of task entry in PDB 
} 8: Return address 

}15: Entry address 

4 

1 


Save register register 10. 

I 

}Calculate base address for nucleus 
}code. 

\ 


rr wow: ww ii ee 


,;If not console read Operation, prancn} 
74SC2 


[TO ce weer ec erec nec ncesnaneeesceerucesacvcseos 


\ 
pAaddcess message text. 


, ££ JECL PLEL LK ewe ec ccccscccaccuces 7) 5c34 


pRestore register register 1U, return 4 
>)4 (RS) 


{to SUPCLVASOL cence cer escceesesecvesecs 
I 


pit no interception required.cccceae HSE} 


1(adasposition N). 

1 

jit a previous request pending: 

1 

{Restore register 10, return to 
PSUPECLTVASOL sac eccccerecceccerancanasccece 
’ 

}Save cegister 0 through 3 anciusive. 
1 

{Store request (address of CCB). 
}Store requestor identifier (TIK). 
jAddress task control plock and post 
fits ECB. 

}Post VSE/POWER mastec ECB. 

4 

{Set VsE/POWER partition dispatcnable 
I 

{if jop account interface 1s existing 
scan the SIO tabie (1f preSent) in 
jtne accounting tabie for matcning 
jdevice and increment counter. 

I 

}Restoce registers and return to 
}supervisor vila register 6. 
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pCnart NU: LTPwSSNU - VSE/POWER Nucleus} 
isvcC ¥0/91 Appendage | 


}Registers at entry: 


1 

} Os Parameter List (8C8, length and 
1 adaress of account information) 
} 8: Return address 

{15: sentry address 

b 


{save regasters 10 and 1}. 

\ 

tCalculate base aadress of nucieus 
jcode. 

! 

tUnpost ECB 

‘ 

Locate PDB via partition 
|}communication region. 

! 

tstore address of parameter i1ist in 
pPDB. 

' 

JUDtain requeStor*s taSkK 14a [from 
bsystem communication area and store 
fit in PvB. 

t 

tLocate execution reader TCB via PDB. 
t 

jPpost its ECB. 

' 

}Post vSE/POWER Master ECB. 

t 

tPost VSHE/POWER pactition dispatchable 
' 

|Restore registers and return to 
}supervisor (register 4). 
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i jappendage | \ j 1 1 
t jCalculate base address or nucleus ' i 1R19 i 1 
| |code i } 4 i 4 
| }Sset trlag that timer-intecval expired | {CALF (LP WSDe a) j j ) 
1 ! t i i \ 
i {fost VSE/POWER master ECB. i {PAKB (iPwsvoPa) | " " 
] jrost VSE/POWER partition t ! jRU,R1, | LREADY i 
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PROCESS 





t 
| ; 
VSCB rere tense cea cen nn ir 
.e= | 
| lock word | | 
a 
parameters | ern nn ee = >]02 
| ae (a3 
pool 
owner | 
anchor | 
| (fonetion H 
| hese i 
a 
| im 
0s 
| is 
| 


re ee ie te I ES eS EE Cee A SS HS EP RS ST SS SSP SOA SD A STE SAY A SOA 


t NOTES {| MODULE {| LABEL REP | 


I 1 Upon eaeey register 0 (optional) 

{ contains the pool id and a ‘no : 
wait*® byte, register 1 (requ:rea) 
contains the reguested length, and 
register 4 (optional) star of 

| chain or "anchor addr’. 


Test. lock word to see if necessary 
to wait for a Virtual Storage 
Control Block available. 


3 in the 
save afea_ in the Virtual Stucage } 
Control Block. 


Calling regasters are saved 


2 Load reyister 1 wath rounded 128 
byte mu fipie length. (Pacst add 
puffer header length to user 


length-} Place pool type in 
register 2. 


3 Getvis was successful if reg 15 


Test *TCCB® to see if register 4 
contains Chain addr (otherwise 
obtain addr froma TCB) and place in 
reg 1. Chain new element at end of 
the queue. Update the tail ptr of 
tne queue with the addr of the uew 
entry. Update the forward ptr of 
the previous entry with addr of 
new entry. Set forward ptr of new 


bye 2 § to zero and the backward ptr 
to the addr of previous entry. 
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GETVIS 


macro (IPWSRSV) invocat:on 


BOERS Virtual Storaye Control Block 
an 


A. Save callers registers 





Issue Getvis Macro 


It successful return: 
Chain acquired storage at end of 
queue 


Save lenygto ot storage and pool id 
an buffer header 





: cs 
c. Branch for exit processing i 07 
If no wait specified: | ae 
A. Place return code in reg 0 eee ft ieee 
B. Branch for exit processing ooo >[07 on © 
f/{u 


If not already done: 


A. Issue warning asg 19591 


3- Update function code and statistical 
count 








Restore callers registers and release 
the WSC3 


A. wait for storage 
B. Branch to get storage 


Hestore callers registers and release 
the VSCB 


Keturn to cailer via nucleus exitees 
ye 


/ 
v 


NOTES 
Also update the element buffer { 


header with the actual acquared 
length and the pool id. 


z 


: 
: 
; oe 4 





5 If wait has been specified and ao 
space available, then issue (once) 
wessage $1085I. 

6 Clear ECB with zeroes before 


releasing VSCB and restoring 
regasters. 
j dait for virtual storage to pecoae 
available. Try once again to 
obtain storage. 
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{oo] Return to caller via nucleus exit 


EXITees 
> | 


7 
< 
‘“ 


INPOT PROCESS OULPUT 
| | 
VSCB r ve | 
t : fealler regs] 
Sees ene ret emer snore= jsave area | 
| | | | 
| A. Save callers registers | | 
en | 
| | | | | 
parameters | | coteniateataa >{O2| If all elements to be released (r1=0): | 
URGED ears ae H 
a t } A- Address the head pointer in TCB 
aoe | ? cnet B. Do until all elements deleted: 
: 3 | Cc. Get first element in chain 
| : : | D. Release element (Preevis) 
TCB | z : | 
: : £. Update head and cha.n ptr of | 
petagaiad aerial Sao see | queue i 
fheaa chain | w-------i-----, | | 
ptr 3 &--~~— >{03j Unchain single element 
tail chain | i~----------> 
ptr | A. Release single element (Freevis} 
nr 
| neon | 
| {fos} Post ECB (Event Control Block) a VSCB 
Restore callers registers and release | ECB | 
VSCB | | 


oe ee me cee TR TE Eee eee | om 
we 
ee 








J 


NOTES 1 MODULE | LABEL | REP - 


1 Upon entry cegister 1 {required if 
*all* not specified} will contain 
the address of the queue element | 

i 


NOTES | SODULE [| LABEL | EP 








a) If there existed only one | 
elezent - update head 4 tail ptrs 
(BOTH TO ZERO). 
to be released and register 4 ; 
(optional) will contain the start bd) If more than one elerent in 
ueue —- epaate head ptr with the 
orward rt of element to be 
unchained, and the backward ptr of 
second element (to zero) if we are 
dealing with the first elerzent. 


of chain addr. 


wn 
n 
A 
oo ee mere 


apy Srst macro to release the VSCB. 
estore reg <z. 





Calling registers are saved in the 


c) If we are dealing witha 
save area in the VSCB. 


middle element - Seuate previous 
forvard pointer with forward 


ointer of unchaining element and 


| 
i 
| 
| fhe backward pesneet of fol tou sna 
| 
| 
| 


If reg 1 = 0 then *all® has been PREEVIS 
specified. Specify addr to pe 

released in reg 1 and the cequired 

length in reg 0. Issue FREEVIS 

macro 


element with the backward addr o 
unchaining element. 


d} if we are dealing with a last 
element tc_be unchained then 
update tail ptr of queue with 
backward ptr of unchaining element 
and update forward ptr of previous 
element to zero. 


: Save reg 2 1n reg 0. Issue 

2 

| Test "TCCB* to see if reg 4 
contains chain addr (otherwise 


| 
j 
| 
| : 
obtain addr from TCB) | | 
When ali entries have been | 
released, update head and tail ptr 
of queue to indicate empty queve 


3 Test *TCCB® to see if reg 
contains chain addr (otherwise 
Obtaan addr from TCS) 


4 Post ECB ian the VSCB wath x*soO* 
configuration 






rir 
Update head & tail ptr of gxexe & 

forward and backward ptr o 
element as follows for uncnain.ag: 


Oe ee a TT SAS 


rr ee ee pee Se ae PEP SETS CEOS OO CR ee ea 


| 


er cr see SE Sea er SORES SPE ene NED eer ID SETS Ga TE pe 


Issue PREEVIS macro. ae 
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PROCESS 


macro (IPWSUNV) 21nVocation 
Reserve Virtual Storage Control Block 


&. Save callers registers 


rs 


If farst element of queue to be 
unchained (r1=0): 
| A. Get addr of unchaianing queue- 
B. Update head and tail ptrs of queue 
C. Update forward & backward ptrs of 
first element 
D. 
Ee 
| F. 


S 


(x0) 


Get addr of chaining queue 

Update head and tail ptrs of queue 

oper sc forward & backward ptrs 
last element 

head cnain 

ptr 


tail chain 


POO ee cere ne Oo os oresee te ce es ones ee es sod 


pances | 03 oi of element to pve unchained — 
rc 


A. 
B. 


Update nead and tail ptrs of queue 


Update forward & backward ptrs of 
element 


C. Get addr of Chaining queue 
Update head and tail ptrs of queue 


Update forward & backward ptrs of 
last element 


seen rien ean eaioenrnsinmnnnen \/ 





fou] Restore callers cegs and release VSCB 


feturn to caller via nucleus exit 
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register 1 
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NOTES { SODULE {| LABEL 


REP { NOTES | MODULE { LABEL REP if 
1 ween entry reg 0 contains the addr SRSR Update head & tail ptr of queue & 
the head ptr of unchaining foryard and backward pt of element 
queue (required when *addr® para as follows for uachaining: 

not specified), reg 1 contains the 

adar of unchaining element 

(optional) . and reg 4 contains 

addr of head ptr o queue for 

chaining to (optional) 
| 
| 


2 If *"ADDR* has not been specified 
(Reg 1 = 0), then the first 
element of the queue (use *PROM* 
parm) is unchained. eturn in 
register 1 the addr of the 
unCha ined element. 


Update head & tail ptr of queue & 


a) If there existed only one 
element - update head 4 tail ptrs 
(BOTH TO ZERO). 
Db) If more than one element in 
queus = uence head ptr with the 
orward rt of element to be 
unchained, and the backward ptr of 
second element (to zero} If we are 
dealing with the first element. 


c) If we are dealing with a 
middle element - Spasce previous 


| 

1 

| forward pointer wi 
| pointer Of unchaining element and 
| 

| 

{| 

I 

| 

1 

| 

| 

| 


exists in gueue update tail 
pointer of queue with addr of new 
entry. Alsv update the former last 
elements nead ptr with tnis addr. 
Now update forward ptr ot new 
elemeat (to zerv) and the backward 
ptr of new element with the addr 
of previous element. 


t 
t 
{ 
exists in queue update tail | 
pointer of queue with addr of new } 
eatry. Also update the former last 
elements head ptr with thas addr. 
Now update forward ptr of new 
element (to zero) ahd the backward 
ptr of new element with the addr } 
of previous element. 
! 
3 If "ADDR* has been specified {Reg 


SLR 
1), .use this adar for unchaining. 


eorgare and packaar pt vf elerent | h forward 
as follows for unchaining: 
: 4 he backward poiater of followin 
a) If there existed only one element with the backward addr o. 
element — upaste head & tail ptrs unchaining eleaent. 
(BOTH TO ZERO). 
b) If ners Agel gas elogent ap enent To. be wnebs ined haa 
ueue - update hea row. e update ta: Lx oO ueue wi 
orward tr of element to be backward ptr’ of unchain ing element 
uanchained, and the backward ptr of and update forward ptr of prevo1us 
second element (to zero). elernent to zero. 
Update head 4 tail ptr of queue & | | Update head & tail ptr of queue & 
forware aud pack ee pt ee | | rordar’ and back var pt ete ne 
as follows for chaining: e as follows for chaining: e 
Chaining element will Be placed at { Chaining element will be piaced at 
end of queue. tne heaa ptr of end of queue. The head ptr of 
queue 2S in reg4 or if not queue 1S in reg4 or if not 
Specified - get from tcb). Specifie@d - get from tcb). 
t ay ne no coeecnte ie auete ¢ { a} . no reer ees fw queue z 
update head an ai Ont o update head an ar Oint oO 
Pause with addr of nee eleaent | } heue wath addr of ney element 
head = tail ptr). Update forward Thead = tail ptr). Update forward 
and pvackward ptrs of element (both aod backward ptrs of element (both 
to zero). to zero). 
b) If more than one element Dp} If more than one element 
| | 
| | 
i I 


| 


| 
4 
| 
| 
a} iif we are dealing with a last 
! 
| 
| 
| 
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ITPWSSNU —- VSE/POWER Timer Service 
INPUT PROCESS OUTPUT 


; es 


: 























oh 
1 eee Serom Caller | 
} -—/! ! 
| | fe 
kegister 1 | | 
2 ef 
tf ) eeasessosesec aren eee >for] 1£ request from VSE/POWER Task feos >fou | 
1 { Daspatcher, remove all expired PRENCT ae] 
| saan al act ——— from chain and post the related 42 
&>TQE | 3 ! ECB*s. >} }caTe 
a | | (| 
Se See : 
| a a rots | _—_——are | 
TQEPLG emai toatl aceasta oles ames >pO2t If request to cancel a running TQE, jeee >}04 | 
| 3 3 ry t scan TQE chain and remove matChing & —¥/ } 
| H : { cosbetetetertatee TQE. TIE < 
Sy oe oe ge pee eee 
oe | Tine 
| tom p---3 -----~-->] 03] If request to setup new interval: | 
CAT : i-------- A. Remove ail expired TQe"s from chain eee 
| 3 $ and post related ECB®s. { 
| | : po----- -— B. If no further TQS as active or [e+ ">[ou | | 
7 : if the aew interval end is lowert—/| | 
' 3 $ than the first remaining, chain —'| 
caTQ | worcerro- s--- new TQZ on top and issue S£ETIME 
7 macro. i 
i 1 


C. Merge new TYE into TQE Chain by 
expiration time. 


[out Return | 


eS ee a RS NN me Gere on eens \ femmes amnenie ee \/emmeme \/ermemn 





Ue ghee eect Seen tee eee ea ee et 





NOTES {| SQDULE { LABEL 


REF | NOTES | SODULE | LABEL HEP 


The interval timer service ] £ kegister &1 points to the TQE to [fSY9S 
rovides an interface between be’ cancelled. The TQE chain is 

SE/POWER main tasks and the scanned for a matching TOQE. If 

standard DOS/VSE_ timer facilities. found it is removed from chain. 

It will allow aultiple tasks to 

have time intervals concurrently 3 At each request to set up a new S£TISe TS23 


active while Basntern sag only one time interval the current time of 
timer interval through the SETIME 

macro. Each interval is 
represented by a unigue tiser mterval end time less 1/10 second 


different from the current TOD 


queue element (TQE). 


To begin a time intervai the 
VSE/POWER task issues the IPWSSTA 
macro, which (optionally reguests 
TOE-storaye and) formats the TUE 
and then invokes the interval 
timer service routine. 


Ducing the interval, the TQE is 
chained to other active TOE*s. 
ont unterval end times are neld 
in TQE's. 

When the iaterval expires, tne 
TYE is unchained froa the active 
chain and the related ECB is 


value) are deleted froma the TYE 
Chain and the related ECB*s are 
posted. The new time interval is 
converted into TOD clock units. 
The interval ezpargr ics time 1s 
calculated in TOD format and saved 
an the new TQE. The new TQE is 
merged into the FQE chain oy 
expiration tise: the ordering is 
lower in front of hagher interval 
end tirme. If according this 
ordering the new TQE gets top 
position, a SETIME macro is issued 
with the new miniaua interval 
length. 


posted. 


1 whenever a DOS/VSE timer interval SETINE TS65 
expires, tne VSE/POWER Nucleus 
Timer Exit Routine yets control 
and indicates the presence of a 
timer expiration event for 
VSE/POWER Task Dispatching. 

The Task Dispatcher activates the 
Timer Service: 
The current time ot cay ie) 15 
taken and all expired TQk*®S (tnose 
TQE*s with an interval end time 
less 1/10 second different from 
the current TOD value) are deleted 
from the TQE chain and the related | 
ECB*s are posted. A SETIME macro 
is assued with the new ainigun 
interval gt ben from the first | 
remaining TQE. 

t I ' 


pn 


a: 


| 
day (TOD) as taken and all expired 
TQE*s (those TQE*s with an 

i 

' 
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IPWSSNU ~ GET TRACE ENTRY ROUTINE 
INPUT PROCESS OUTPUT 





ie From caller 



























fos] PROVIDS& CALLER WITH NEW ADDRESS 
wy 


A- Update Current free Poiter 





PUNCTLON EXIT 
- Restore Callers Register 


fos] 
i—4 - Release kesource (IPWSKSW) 
{10} Return 


‘ 
TIB —-_-_ ere rer se n= FUNCTLUN ENTRY 
| 3 - Reserve Rescurce IPWSRSR) 
bee m— > ~ Save own return Address 
aa I sort ee rere == i] - Save Callers Register 
o> i : fo2} IF DUSP REQUEST POR PARTLY PILLED foee'S OA 
{ [TrBPTRB r 3 AREA i, sj —— 
iT lviepTee tt : 
{TIBPTRE | 3 - 
: IP ENOUGH SPACE AVAILABLE: 
TIBATRB | a A. Provide Caller with Address of Trace 
TIBATRE : : »- Update new Aadress = 
He : 3 c. cee > [09 | | | 
| TIBCPTE =f | -------- i : iA {| | 
| | | : je] NOT ENOUGH SPACE AVAILABLE: | 
{ Tracearea | coon So-S5 > A. If IDUMP not requested [-+*/3 foe ] ! 
\—-|Prige Area : : 
et | 2 : B. If Subtask busy, issue WAIT on ECB } 
| | : : C. Turn off busy Flag 
| Altern. Area i . : : ' 
——— 7 3 
{ ———____-____+ | z : {{23] INVOKE SUBTASK | 
: : A. Provide Paralist with Start-End 
CAT : : Address 
3 3 Tucn on busy Flay | 
| [caue | =-------- z : . 
| : : IF DUMP REQUEST FOR PARTLY PILLED [eos > [09 | altern. Area 
: : ee 
z i----- [o7] DETERMINE WHICH AREA IS IN USE | 
| : | (Primary/Alternate) 
| : | A- Update Pointers ware {{="] 
H i---~+-------> B- If IDUMP was requested, clear Area 
t first 
| | 
| { 
! 
I 
{ 


| 
| To eon 
I 















(4 

af 

Vv 
 epeiea eee eae eamee er | | 
NOTES | MODULE | LABEL { REP { NOTES { MODULE {| LABEL | REF 1 











2 The length of zero indicates that { 
the partly filled Area is to be 
dumped if IDUMP was requested. 


3 The Caller provides in RO the 
re aired Redordiength. A check is 
aa if there is ehough space wi 
the. current Area 
(Primary/Aliternate}). 


| 6 If just the partly falled Area was 
| 

3A The caller wall get the Address | 
| 

Me ra ae ee age Be On te en OE Io | 


t 
dumped, no updates are necessary. t 


wl 


| A check 1s_ made which Area ais an 
use now, then the Swap to the 2nd 
| Area iS performed. 


J | 
| 
| 
| Cie ff 
| JA The TIBPTR as well as the | | { | 
TIBCPTE are set to point to the 
| the gad Area. | 
waere he can write his Record | 73 The Area is cleared first if 
R1. IDUMP was requested. Othervise 
a wrap around is perforrjed. 
38 The next free Address is stored 
in tne Current Free Pointer in 3 
the T13. 
| [sna 
| ‘4 
a ees |e ee ee 


5 The Subtask as called wi 
IPwW NSTAS TYPEASERVICE, TASK : pump 


SA fhe Parcmlist in the SR3 is 
rovided with the Start and énd 
address of the current Area 

which as to be duapeu,. 


zae new Address 1S aeored ae the 
tetara t save Area so at 
uro the Caller has this Address 


9 Tne Asynchronous Service block as 
released and the callers keyister 
restored. 


| 
| 
j 
| 
: 
' 
j 
| 
' 
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CHART OF: LPWSSOP 








IPeSSoP = SA®ACTINLINE 
INPUT PROCESS OUTPUT 





ob 
eee >From YSE/POWER Nucleus via Task 
/|selection ° 





{rerz | ooo oa 


----- >{Oz] If *save* function requested: 


Save Function 
OFP~3-0 


esse If *load* function requested: 


pret coereecvecacce cre 


Load function 
OP~—#.0 


fou] Termination 
or-5.0 


Invoke Termination module (IPWSSTR) 


an RE SY OT EE CEE | 
nt reenter EPI Oh ROT Pe EIDE CIE ENTE ET RES Se ID SY EI TE ES PEN tare Miran EE er FN CONE 














NOTES | MODULE | LABEL 
1 If any error detected during 


{ REF 


ROTES § MODULE | LABEL } KeF 


5 Instead of iamediate detach of the 
task, the termination aodule 
(IP WSSTR) is invoked to release 
al Storage and gay be control 
blocks and f 





initiation, the termination code 
in the TCB, field TCTT is set to 
stop iamediately. 
: imaliy detach the 
2 The functiun code already set fron 
the command processor aodule 
| (IPd$$C48) during command and | 


task. 


poreseter checking is tested to 
ind either "LOAD*® or *SAVE®. 
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IsITIALIZATION 


IP WSSOP = 
INPUT 




















NOTES 


3 The module IP#$$OT is invoked via 
the IPWSOTP function macro call to 
create a tape control block (TB) 
for output processing. 


a 


4 If a [3b was created succesfully 
the Queue aanagement is invoked to 
obtain a gueue set gota) to 
the class specified within tne 
POFFLOAD command. ; 

If no queue set is elig2zble in 
the claSs chain currently 
searched, the next Class entry as 
addressed and the *get next geue 
set® function 1s re-cailed. 

This process continues until all 
class(es) are searched. If not an 
gueve set available, saving 1s no 
init rated. 


5 The module iPw3S0T is invoked via 
IPWSoTrp function macro call to 
open the tape. (output 
processing) - 
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our Put 


Mainline 

Save device type and set tape task __> 

processing flag t J 

If *LOAD* has been requested ooo 73 [07 | ———} 
| ft} 

Create tape control block (TBB) ae 

A. If TBB could not be created, setfeee 31 

ismediate stop code j 
Obtain next gueue set 


A. Indicate *notning to save", if fooe> 1 
no queve entry is found / 


Open tape for *load*® function 





Write initial tape rark 





Create tape control block (TBB)} 


A. If TBB could not be created, 
+ immediate stop code 


t 

el 
oot ft HT] 
Acquire and initialize tape I/O area 


Invoke tape function module to open the 
input tape. 


Obtain storage tor data buffer 


Retura to Hainlinesss| 
es 


pet 
+7 





eo 

® 

9 

‘\ 
| v 
rere em ee ee eaten me: 
|! 

tt t 
X cepsnaghetnh octane eanenenamemnagmemnten netenamennhemedemanaatnenennee eet | 
a SS LR AE tr CN ER ere ree ete Neem \eme Wee Nem 


§ AODULE | LABEL 


| 


Ge ee 


| BeP 
$ccT 
$OTP 


NOTES 


[| REP 
OPIO 6 One tape mark is then written. i 


SoTP r 
7 The sodule IP#S$$OT is invoked via 

IPWSOTP function macro call to. 
create a TBB for input processing. 


A work area with a length of 2008 
1s initiated to allow reading of 

the maximum data size. 

The virtual and if necessa the 

teal address are stored in the 





SkSwW 


SOTP 
IPW$OTP function macro call to 
open the tape for load purposes 
{input processing). 


A data buffer is reserved to hola 
the data records being passed via 
loading takes place. 








9 The module iIPWSSOT is invoked via 
hi SRSW 





OC EE RY cp 
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iPWS30P - SAV & PUNCTION 
TBH 
—— 
| TBPG |. weweseeeees Ss _ 
caer ee oe fa 
TCB : 
ory 
TCQW 
| Pe 
TCOV l 
TCGP eecaaseces - 
TCIB pec - pisos 
TCTT | --------- tases 


A a ce re a ta Se re Se A A EE GS SAP SS PS SSNS AP Sa SS 


INPUT 


- 
' 
' 


eee mm ow 


' 
t 


PrP on cone cece shes ge ve ses thee sent 08 cee 


Se AS Se A A EE ES TNE SN EEN GO SY CS 


Retest ee 








NOTES 


The queue “y The queue record obtained via——=«]sti“‘(‘é‘(!!”!*C*d PSO! CST obtained via 
queue managerent function GOS is 
ritten on tape, this is in fact 
first queue record within a gueve 
sete 


A data record is made available 
via the data management function 
GET DATA RECORD from a data plock. 


| Jac tatne en, = ee ons ne Bo Be eee eee IEE 
In case of end of logical data 
block, the total biock is written 
on tape similiar to the disk 
function. 
! 
| 


The trailing gueve 
record currently he 
is written on tape. 


Fecord (queue 
by the task) 


after tne quene record has been 
written sucessfully two tape marks 
are written to cloSe the gueve set 
currently being saved. 


The tape is repositioned pehind 
the first tape mark to aliow a new 
queue set to be saved. 


The yueue set being Processes 1s 
o its 


dequeued according 
disposition. 


' 
t 
i) 
' 
' 
v: 


ee ee oe 


PROCESS 


7102] ir end of volume (E0V) on tape 


ja 


ta 


fou If end of data, finish up queve entry 


Ae 


Be 
Cc. be 
ap 





? A. If 


e 
rts. *Sproe Mainline 
—/ 


sk stop 


lete 
plicable 


not 


$ O01} Write queue record on tape 


Data record processing 


A. If end of data, data break or end of 
block, write data block on tape. 


B. If not end of voluae (EOV) nor 


@rite trailing queue record 
Write 2 tape-aarks 
azeue entry from queue, if 


fos} If enf of volume (£0¥) on tape: 
| 


repoSition tape 
write 2nd tape mark 

ene Sree 4 wath 
isposition 


re-queue q 


orig ina 


EE] 


Se EE SS SA FTES VTL AS ND OL ET 
ET 


[ooe”> 03 
4 


| B. Close tape and acquire new tape 





ee SO Tt cae PE ES PS SE ESN 


job boundary: 
“> 


2[oo} If nore queue sets are to be saved foce 


C. Write initial tape mark 


{ 


Exit, return to Bainl nesee] 
e 


[let 
-/ 
v 
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orso 
SDBO 
sQwo 


| REF 
{Swrr 


$GDR 


SuTt 


SeTT 


$CTT 


re eee eee rere emer: 
we 
GQ 
i] 
Uo) 


5 


NOTES 


If the task is on job boundar 
the close tape funCtion wathi 
IPWS$$OT module is invoked. 


If the paee as Actes: on job 

wostaety st” tape 1s repositioned 
to the last queue set being 
processed sucessfully. 


In case a new tape is required to 
continue, the task is forced to do 
so by resetting the termination 
type,an.e the TCTT field of the TCB 


If no stop code is set in the TCB 
nor end of volume indicated in the 
tape control block the ‘get next 
queue 58 set * function is called to 

he next eligible queue set 
to be oetionten. 


If no gueve set is eligible, the. 
next class gaat as addressed, if 
applicable and the *get next gueue 
se function is invoked again. 


f 


OUTPUP 


: 





ee ere eneerrerenee ce 
= | a eee nee 
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i) 
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IPWS$SOF - LOAD FUNCTION 
INPUT PROCESS OUTPUT 








H Read gueue record from tape 


toe 


J 


A. If no valid queve record read coo 
44, intore operator via rgessage [re 





eee 


Oe ee or 08 ce os OF oe bh EL Cees 


TCTT 
TCGP : 


moore tam 


’ 
d 


PIMP INIPIC IRIS SISIEISIS SIC ISIECSIVISieicir rir erry ay) 


Build queue record for disk SRT GARRRIEAL 


A. Get free queue record from free | 
chain 


B. Update queve record 
Cc. Ageige new job nuaber to new queve 
se 


D. Update destination node and 
user/rergote id, if applicable 


foul Read in data block from tape 
[ eee | 


rc 


ae A. If invalid tape, informs operator}eee “>fo9 
via ressage 1 41. i, / 


De-plock the data buffer 
w~------>}06} If neither end of data (BOD nor eee > 
y* end of volume (EOV) ( be [roe’ 


! 
worn nnn > 107) Close current job: . 
- add gueue set to class chain or 
~ delete gueve set and return gueue 
record to free gueue record chain. 


| 
. | 
n-o----------->}08] In case of more input [z= 3[o] 


PECTS Oo Fe Oe ee OE Es OE Oe OO oe FED OF Fe oe 08 BS He OE EF Oe Oe Oe ee OF Be 


PP 28 OF 20 we 00 48 0008 0 0008 OF Oe 0 OP OD EF OD OFS Fe OE Oe He OR ge 9 00 OF 


| 
Perens If end of file (BOF) [r=7 


s cahccemeeiaciesheeaemaemtameetmnethendamnimemmthiimmnenad entien spans in atta eaten caemeaie-coeetc ean sea mca ce an mee eee ee 


PPP Ce OF Oe 00 0c 00H 9008 08 08 Fe 00 908 OF OF 08 0N OF Oe OE OE DE Ot HOOF AE te 0018 OO Rs Oo Be OF 
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IPWSSOP = 





LOA D_ FONCTION 
NOTES 


The tape is read and the record 
being read is checked to find a 
vali ueue record according to 
the POFPLOAD parameter (queue-id). 


In case an invalid record has been 
found the operator is ainforajed via 
message: 


1077I INVALID SPOOL TAPE task,cuu 
and the task 1s forced to stop. 


A free gueue record is requested 
trom tne queue manageaent function 
*Reserve gueue record® and the 
queue record is updated with 
inforajgation obtained from the 
queue record read in from tape. 


The disk manayeaent rock jae: is 
locked during the update the 
new job nusber. 


During a data block cle, a poeta 
block as read from tape and t 
logical data blocks are passed” in 
turn to the data managerent 


Since the tape may have been 
written witn a different DELK size 
tae first block is read with the 
maximua data block size pepnertee 
by VSE/POWER. The reasidual count 
is then used to calculate the 
actual data block size. 

In case an invalid record has been 
found the operator is informed via 
message: 


1Q77L INVALIb SPOOL TAPE task,cuu 
and the task is forced to stop. 


( HODULE {| LABEL 
RQRO 


RQ8O 


SROS 


$RSR 


$RLR 
SRDT 


SGAM 








NOTES 


“S Bach data record is now passed to | | |$PDR passed to 


the *put data record*® rout ise. 
If the record is an extended 
record, the record is 
re-conStructed in its ori 
forrgjat before passing it 
*put data record® routine. 


inal 
o the 


This repeats as long as data 
blocks are read from tape. 


The queue set including queue 
recofds and the data records 
belong iy to it are added to the 
queue file 3 using the function: 
ADD TO QUEU 


If however, meanwhile any 
tergination code is set in 
(except of *E*), the queue 
Secupiea of the queue set 
eeter nes to the free queue 


the fICB 
records 


record 


The tape is skipped behind t 
trailing tape mark, ready ton read 
another new gueue record or to 
find end-of-file condition. 


This process continues when either 
ho termination code or the flush 
lal code was set in the 
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$PDR 


SRSV 


$SAQS 





$SDYS 


rt ee re et rt ce eet ee ae ee ee A eS SN he HOUND i 


a 


oe re oe eg cane eee SE ee ge ag TES a men 
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IPWS$SOF - TERMINATION 
INPOT PROCESS OUTPUT 
eo} 
es “J 
eoe >From Mainline 
c—/ 
T83 
tia oe ee if applic¢abl 
area a icable 
TBCB | wane eee r——------- . RE 


fo} Release tape I/v0 area and data block 


TBPO i mesa Sle BS 
saved: 
{TBSI } | i ‘ _| [vo2a1 eee } 
-->|A Ae Inform operator via message 1QzBi ' 


Fee peer er second 


' 
' 
ve eee oeevecers 


B. Unassign tape unit 


C. Belease tape control block [eo°73 [05 | 


Inform operator about task completion 


[re2ar eee | 


{ 
> 
fr | z] If ‘save* function and no gueue was 





iH 
Gia 
mio 
hHi|< 
1 
1 
t 
' 
! 
{ 
t 
t 
1 
i 
i 
Pee Foe on ne Oe on on 86 08 80 0 O89 Peat 


ee re re an fae 
i=] 
Ww 
a 


Close tape, but ask for continuation 
(vTequest new tape) 


eo 


Exit, reurn to Mainl ineses| 


EO 
° 


| v 


wd 
\ 


_ en te een ee aren eran renee VY tee meen \/ ot en onan eaten CenennEenNN ree 


Tc 





| 













o_o 
NOTES | SODULE |} LAsSL | REP | 


23 The tape unit being assigned at } t |SOLP 
task start time is released 
from the VSE/POWER partition, 


| NOTES 
| 3 The POFPLUAD task tecmination SGAA 
1 





§ BODULE 4} LABEL 


In addition to this, the saodule } k 
IPwWS$OT is invoked £0 close the 

tape function and to release the 

tape from the VSE/POWER partition 


KEP 
SOTP 





wnen the task normally ends. 
message 1s written to the console 
and informs the operator that the 
task has been cospleted. 


1QcAI  OPFPLOADING SUCCESSFULLY 
COMPLETED | | 


| 
| 
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CHART OT: ILPwSSOT 


MAINLINE 


OT-1.0} 





CLOSE ROUTINE TERBINATION 


OT=-4 .0 


OT-5.0 





-|BUILD Ts OPEN Kk OUTINE 
| oT-2.0 OT~3.0 
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IPdSsSOT = MAINLINE 
INPUT 


TCB 


| {rcre | 
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PROCESS 





ter | 


oe, 
lees spron any module called via IPW$$oOTP 
=e | ROere 


Perforrg saving of genral purpose 
registers 9 - 14 


for] 
fo2} If function *CLOSE® requested 


— 


De Sarre CLOSE ROUTINE 
/ oT 4.0 


If function *BUILD T3B8* requested 


< eccese > 
17 


> 
! 
a | 
BUILD TBb 
1 
| 
> 


if function °OPEs* requested 


| /\———. a: ae? | 
< paabahaly OPEN ROUTINE 

| OT 3.0} 

| Sr | 


fus] Link to teraination 


| Ces | 


re ee EEE fet E Se STEED Geen SEIT ERETHNI SERENA Si Sete GS GOSS San Sap aha SS 


oe RE ER A Re LC we ee rN A SG SSR PNP NSS GED \Y/ Serre Sune wr See 


ouTreur 


12/8 
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CR Se A HE eS EY ERE A CY SS: SO A SE BE NE Ge Se SRE SS SESH SSA GRIP STESY BRO GHASS eG- REREE eSNG PRS ND EHS 


< seres> > TERMINATION 
EL OT 5.0 
R 43 tetPon tay hala 
1 | 
1 ‘a kelease additional save area 
ron Exit 
{e+ 
| Return to caller see 
| 
i 
NOTES [| MODULE +} LABEL | REP NOTES { MODULE { LABEL | REP 
4 The caller cegisters 9 - 14 are 1OTOO $SaV 6 The additional created save area oT | sRLe | 
saved into the TCB function save is released 
area. 
; 7 The callers register 9 - : $R2T | 
An additional save area is created $RSW reloaded from the TCH function 
allow saving of the reyisters 9 - save area and control is passed to H 
14 if another function’ is invoked. { t | the caller : 
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IP w$$OT ir BUILD TBB 
INPUT PROCESS OUTPUT 


te 
[Sec From mainline (OT-1.0) 
ae 


Build tape control block b 


ee 





i 


ix] 


cB 


TCPU 


i 


nomi 


If tape address already specified wee 4105 
Aiee] 


Cc 
La 


Prompt operator to get a tape address 


[z] 


Ba 


: 
[2] 


TSP : , 
Assign logical unit to tape address 





TsC3 


—a 
eens v) 


TBCU 


ne ea! as In case of error release ownership 
RAST EL aI os | a 


keturh to mainline 


ty 


TERC 


[ 


Validate tape address and density if 
specified 


a A Ee aes Oe Ee RE SS Ee ES LS SIENA CE NE NES Caer SAO 


ee oper setae nanan ree mater 


| 














4 The tape address issued by the 
operator 1s syntax checked. The 
cape density if specified is 
validated and if valid saved in 
the TBS. 


| ' t i | 


NOTES {| MODULE | LABEL | REF NOTES 4 AODULE } LABEL | REF t 
1 Real storage is reserved to create $RSwW I 5 The tape address is used to find SULP 
a tape control block (T38} related ah wnowned Physical Unit Block 
to the task vhich has initiated (PUB) and assign it to a free 
the function. The TBB is described Logical Unit Block (LUB). 
and CCS3 and coamon CCW is created. : 
. o If no free LUB is available the | SULP 
3 The operator is Brome tes to uTz0 $SWTR PUB is released from the ownersnip 
specify a tape address and may be | { 
tape density if necessary. | 
| | 


| 
of VSE/POWER | 
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IPpwssor = OPEN ROUTINE 
INPUT PROCESS OUTPUT 


| 





zeaps 
Workarea 


8 


BB 


[ruPu i 


Se ey | . 
eas “=> }o2] It write aode [e==° 


| 
| 
1 '-———-$ O14} Check tape label | 
> 
i 
| 
| 


fo3] Process input labelled tape ey fos 


f } Process output labelled tape 


Return to mainline 


a : | 


















NOTES | SODULE LABEL | KEP 
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! 
hn case a workarea is ava ei e data record being read is used } jsuPO 
g 
1é6dti k alabl t SKS The dat d a a 3 
is taken to read the ta and to determine the length of it and { 
| corer for etancare lape a j th te ar? babe ae mot oe Cac cepe } 
othervise a temporary workspace is ut in relation to e tas 
i used. r Y ag | {| ea ding this function. The TBB is | t 
| H updated to inform about record [ t 
pee bn eg ae on cones to aor $cTT peugtte blocking factor, labelled 
oa pois » protection ring, an ape. 
mount information. 
4 The Tare being mounted is label 
The first record deing read is SRDT checked to fifd whether this ia an 
Checked whether this 1s a *VOL1 ' | unlabelled tape or not. } "| 
header record or not. 
es eas tape is marked as | | te aooine the pale Pere ag Sei tioned to $cCTT 
ape. Oa available to be used 
for pe tpat purposes. 
3 If a *VOL1* label was found $RDT 
another record is rea o find a If a labelile ape being rgounte Su 
t d ad to find f i iled tap d TO 
*ADR1° record. If either a valid the operator is infore to have a 
header iabei found or an change to save a maybe protected 
the First aati’ record Ss°reals" eee 
If a density was specified the $WFO 
In case a valid header fae was $SuTO default density in the PUB is 
found, the operator is informed to exchanged with the specified one. j 
verify for a correct tape being j 
mounted. i i \ 
t t 
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IPWSS$OT < CLOSE ROUTINE 
Inpur PROCESS OUTPUT 


| 


e 
[ted on mainline (OT-1.0) 
—/ 


If tape output =| 

P [eee 77 [03 J 

Close tape for input purposes eoe > 
[r==73 [05] 


TBB 


[Bru ! 


| 


eS TOY A EY NE SET GS ET TY ES ES NES SL NTE 


o 
ft 


A OS 


[3] 


Close tape for output purposes 


re 
[2] 


aD case a new tape is to be used reqeest 
2 


5] Return to mainline 


s| 
e 
e 


rg 
Me 


TR CEE ATES EF A LE EY SE RF 
Fe PO Re Se EE OS EO 













NOTES {| MODULE ee ee ee ee LABBL {| REF 


2 The tape is read to find “2 The tape is read to find either a | | |SRDT a SRDT 
trailer label in case a labelled 
tape is being processed or to find 
ile marker if unlabelled tape 


NOTES MODULE { LABEL REF 
| 3 If the ta is used to spool j $CTT 


' 

! 

| output da a from a parti ion the 
I 


— 


tape is neither unloaded nor 
rewound, it is keeped for 


! 
being processed. Ft ee beg jobs to be processed. 
a spool rape affected. the 
If an *EOF1® trailer record is $CTT tape is unloaded. 
found the tape is forced to . 
end~of~file and ready to get 4 The operator is informed via $WTO 
another tape file of a mulitifile message: 
volume. If a mulitifile volume the 
new file is open be using the { TR58I MOUNT TAPE ON cuu FOR 
open tape routine. } H ; jobnarve jobnr task-id 
| If an *f0vt* trailer record is t t $wTO to sount a new scratch tape and to 
found the tape is unloaded and tne | | reply for the tape after being 
subsequent tape is requested for mounted. | 
processing. ara ss eS | { | 
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IPwS$SOT = TERMIWATION 
Input PROCESS OUTPUT 





Be Prom mainline (OT-1.0) 
“\ 
tcTr I Handle various conditions at termination 
8 
Release tape unit 
TCTA Bee —=>fo3} Release TBB 


f NOTES } MODULE § LABEL | REP i NOTES | G@ODULB {| LABBL {| REP | 


1 Ifa ROMPOESEY workspace was owned SRLW < The input tape is peing closed SOLP 
during open it is released now. the the tape is unloaded and the 
LUB is unassigned from the related 














If an execution writer to be ; 
stopped/flushed the disposition is 
changed froa *T* to "D*, 


3 The storage owned by the TSB is SRLW 
released and the address poanter 


in the TCB is set to zero. | 
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IPWSSPA ~ Put Account record 
INPUT 





BG COMREG 


Register 0 | 


AcB aomnnwemn samy EF 
[accr | 
ACDL 


ee rntorete 


ACAC 
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ae ng oe wee > 


--------> 


OF OF Oe em or ee en ee ee es BN Be Ht ee 


Pelee ever aren oceerre 


i 
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es 


{save area 
[R14-k9 
a | 


| 
| 
Reyister 13 | 
| 
| 
| 
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04 
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| for) 
[eee 


| 
fo] Bxit processing: | 
| Sens 7 | 
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PROCESS 





caller 


Punction entry processing: 


A. Save caller’s registers 


B. Terminate VSE/POWER accounting [-=-"3fos } 


BUDEOESs when job accounting is —77 
not active anymore. 


C. Reserve account control block (ACB) t 


If EOP record: . 
- update count-f ield 
(rec, number, key/data length) 
write £oP record 
reset to normal channel progras 


ensure that_always an EOP record can be 
written as last record on the track. 


Calculate total record length and check 
3f record fits on current acke 


If the record does not fit: 


A. If account file is full, notify 
operator 


B. Update residual capacity and 
seek address 





Infora SPOr ators if 460% water gark is 


exceeded. 





drite account record 


A. Update count-field 


B. Set up SAS control field and channel 
program i 


C. Buirld Account record 
D. Weite Account record 
E. Release workspace 


So {08 Release Account control block (ACB) 


/ 


A. Wait if account file is fuil 


if 
B 


A. Set up retura code (Reg. 15) and 
restore caiier's registers 


To callereee} 
reed 
Be 


v 


ey 





OUTPUT 





Register 13 


{program { 


: 
channel | : 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
! 
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IPWS$PA - Put Account record 









1b 


1c 


SA 


NOTES H 


The cailer*s registers are saved 
in the save area addressed by 
register 13. 


The function track byte in the TCy 
of the calling task is set to *L* 
to indicate that put account is 
act ive. 


The task identifier in the TcCB 
examined if the account record 
should actually be written. If 
is still initialization time 
(autostart processing}, or the 
task 1s a ‘save account * task, or 
the task is a _ ‘print status* €ask 
creating a LST queue entry 
control 1s passed back to the 
caller. 


as 


at 


The BG communication region is 
examined if job accounting is 
still active. If not, the 
operator is informed via 
message 

1Q84I° ACCOUNT SUPPOR? ; 
CANCELLED and the entry point 
address of the put account 
routine in the CAT is cleared 

to indicate no accounting 
support. 

The Account control biock (ACB) 
is reserved for the duration o 
the function. 





The account record length is 
examined if an EOF record 
Peseta by a zero record 
ae a 





ngth} shou pe written. If so, 
he’ current record huaber in the 
count field is updated 
(incremented by 13} and the 
key/data length is set to zero. 
The channel program is modified to 
write just the count field. 

4 


On Coapter son ot the I/O the 
coamand and data chain flags are 
set again and the sector value is 
set for the next cycle. 


Tne maxiaua@ track ca airy is 
updated decremented} by the 
amount of bytes necessary to write 
an EOF record. Is is done to 
ensure that always an SOF record 
Can be written aS last record on 
the tracks. 


the original record length, the 
B-pyte Block field Length plus the 
optional standard prefix size, 
applicable. 


A check is made to examine if tne 
new record fits on the current 


track. 


space is left on the 
to write the account 


Not enough 
curreat 
record. 


rac 


Message 
ig3at NO MORZ ACCOUNT PILE 
SPACE cess 

is issued to the operator to 
infora him that the account 
file is full, when the upper 
lagit has been exceeded 
(current track is last track of 
the account file) - Register 4 
is set to zero to indicate the 
account file full condition. 


Tne total record length contains 


MODULE | LABEL 


BXCP PAEFP 
PA120 
GETVCE 
PA20U 








re re re er ent aD Pe ER et GR 


REF 
SSAV 
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53 


7A 


7B 


73 


The residual total capacaty is 
decremented by the (now 
useless) residual track 

capacity of the current track. 
The seek address is updated to 
address the first record on the 
hext track/cylinder. 


If the residual Capacary is less 
than 20% percent of the total 
account file Capacsty and the 
operator has not yet been 
informed, ea 

Af 80% PULL 


1930 MORE T ACCOUST 
FILE ... is issued. 
The high order bit of the 20 


ercent limit is set to 14 to 
pease tae above comparison on the 
*following occasion. 


The current record seek address 
{Gcpan) is moved to the count 
field and the record number is 
increrjgented by one to poise to 
the next account record. 


Workspace is reserved to build 
the account record, whose _ 
Virtual address is stored in 
the ACB and whose real address 
oo stored in the write data 


Tne length of the total account 
preons 1s stored in the block 
ield. 


The Account record is 
constructed from the SAM block 
field, the oprzouss VSE/POWBR 
Standard prefix and the account 
record as passed by the caller. 
The record is built in the 
workarea prior acquired. 


The account controlblock is 
released. 


If the account file is full 
(Reg. 4 contains zero} the | 
account event control block is 
reset, ans the task is put in 
internal wait state- On return 
from this wait state after the 
Account file has been saved, a 
branch is gade to restart 
writing the account record. 


The caller*s registers are 

restored from the save area 
addressed by ag aay 13_ and 
return is made to the caller 


The function track pyte in the iCB 
is reset to indicate that the put 
account function is finished. 

Additionally register 15 is set to 
zero (special requirement for the 
task terminator routine (IPH$STH) -. 


PA160 


| 
| 





I conhereuteeinienchoantimmpansmeensiinentent 


ee 


SGA 


SRSW 
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CHART PD; LPaudSPD 





CO eS RR GEERT 
}) LPWS$PD - VSE/POWER Put Data Record 4 


| . =) 





} Labet } Routine § 
+ —————} 
} PDOO { function Entry 1 
| PDO1 | Data Record Blank Suppression t 
j PDOs } Cneck for Space Availapbie in Buftrer h 
{ PXO2 } Extended Length Record Processing t 
} PD12 } Create Data File Block Record ) 
+ ¥D4O } increment Disk Address Subroutine h 
{ eD70 } Write Block to Disk subroutine i 
} PbDRT } function Exit ‘ 
u 





ee ee eg ee Gee pee Sap oe ee Te 
{ services Usea $ 
:-—_—_—______-_-——___ OH Or nnn nn teh 
{ Service } Macro i 
| #£ask management } LPwWswrc ' 


4 Resource Mahagement } IPwdRLR 


-_ 


" |} LPWSRSR t 
t+ i 
§ Message Service } LIPWSGAM } 
+ OO OO OOOO''OO'OOm_CCOO 
$ Disk / svape Service | IPWSRDQ i 
4 } LewswtD i 
} } Lpwswto j 
1 ) [PwSwTtT i 


} Calied py IPwSPDR b 
4 module | Description 4 


$$$ 


{| IPwWSSLR } Logical Reader t 
|} LPWSSNR } Network Recelver } 
} L£PWSSOP | Offload yueues t 
4 LIewsstR } LaSk Terminator h 
} LeWwS Sx } Execution Writer \ 
a a eer ee a tt i tm cm ns el a 
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sChact peD: IPWSS$PbD —- Lut Vata Record 


jfne first 16 byteS constitute tne \ 
}section descriptor: | 
}*PDCs - release t 

' 1 
jfunction &ntry: t 

bk 1 
jSave registers 14 through 9 inciusive| 
tSet addressapility for vmB. t 

b 1 

{ft end-of-block posted, pranch .....>}PD19 
1 ' 

iff cailer*s data Length > 32K-1 bytes} 
jthen set data length to 32k-1. t 

1 i 

pif cailer*s data Length = 0, ..----.>};PDTS 
' ! 
Data Record Blank Truncation: | 

\ 1 

pif data record iS an internal controly 
trecord (fCCC=x'fr*), skip plank t 

} truncation ee Sees ees Case aces a ween cer | PDUI 
! ' 
Skip truncation of trailing planks int} 
jcrecord if the data is for tne mFCU j 
jcard ceader and is: 

$$ - a write command (x*45*) 

) - a 4LO0ad print puffer command toc 

} burtfers 1I-o. 

i 

(Fruncate traiiting DiankS in DLOCKS Of 
jfour poytes. 

h 

££ tne cailer is the execution 
tweoiterc, and has been cancelled tnen | 
pretucn cle wla® 6 6:6.0. 6506.6 6 0%. 6% 06.6 o6' es ees. | GURT 
1 1 

it tne data record wiil rit into t 
{the data plock record, pranch ...-..>jPui2 
t Hy 

If tne data record 1S not an extended] 
irecord (>=DLBL<-3 bytes) i 
Hthen gO Write DULTECE wee eecs ce ccce ne >| PDIU 
i I 
jextended Length Record Processing: 1 

] | 

jfLf room exists in the present data j 
polLock for data, DEaNCh cecncaeccee ee Af PX02 
b ! 
Otherwise, set end-of-biock in the ! 
{previous data record, and then tink j|PD/0 
}to write the data block and update P40 
}dask L/0 cequest word. | 


— oe = oe ee ao 


indicate first extension record. ' 
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jModiried vata 
jfFielas 


LPwhvsv 


LCG P (LEWSDLEC) 


HECC (LEWSDEC) 


oo we we we ie oe Oe ee ee oe ee i we we ee ie ie ie oe ne 


pLCRL(LPwWHytTC) 
IVRDL (Lew sDUR) 
i 


i 

pLCTI (Le wsDzC) 
[SVK 7 (LPWSDSV) 
joVRGY (i Pwhusv) 
t 

{DRVL(LPWdSDUDK) 
|BLvB(LPWSDPA) 


— or ee we ae ee ee ge Oe oe 


DRG3(LPWSDDR) 


1 


_ewewwerwrewewe se weewewwweweewewer eee ewe eS Te ee ee ee ee ee ee eee ee ee ee eee 
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PAVE 


PD42 


P4O8 


Poo 


PORT 


}Set up data block controi word: 
) - data pilock record length 

} ~ general purpose byte (1) 

} - command code 

i ~ general purpose pyte 2 

1 pyte 3 

i cesidual byte 
\ 


- generai purpose 
- extended record 
count 
} 
tindicate end-of-block and extended 
trecord. 
I 
jmove the data extension to the data 
jolock record. 
\ 
pLink to wceite the data pDiock ana {Pyo/u 
jupdate the disk I/O request word. { Pv4d 
j t 
jit this is the last extension ......>jPAVO 
t t 
jindacate this i8s a middle extension jj, 
yand loop pack to proceSS .w«ece-2e eee >} PADY 
\ i 
jImove general purpose byte 17 to data. } 
{indicate last data record extension. | 
jIndicate extended data record. | 
! ! 
j;Branch to eos we see siete ee cows eee ee ee | PAVUG 
i i 
;Create Data BLocK Record: 
\ 
}set up data block record control word 
|} - general purpose pyte (1) 
jand reSet next-record pointer. 
! 
jContinue set up of data picck record 
pcontcol word: 
} ~ data piock record length 
4 ~ command code 
1 ~ general purpose byte 2 
i 
}move (remaining) data to data block 
jcecord. 
i 
pStorce remaining Capacity 1n current 
joLock. 
| 
{lf at is not a VSE/POWER control 
jcecorcd and not a reader task and it 
12S end-of-data, do not count the ) 
bCEOCOL cece ecw cera wecc canner wecncccscecer | PDLZD 
{Update record counter. j 
' i 
{It data Dreak LECOLd ence cane cc nece ee Af PVLU 
\ 1 
fit end of data reCcocd.... wee en ee ea ee PPPVZLD 
| 1 
}if normal record, Lrestore registers {| 
jand return to caller. t 

i 


—_— = a ew ee ee ie 


-— 2 ee eee eee 


jnmoditied Data 
JFreLlus 


JDRDS (LPWSDDK) 
JURKRL(LPWSvUDR) 
|DRGP (LPWSDDK) 
JDRCC (LPWSDDR) 
{ORG 2(LPWSuvR) 
JDRG3(LPWSDDK) 
JDRG3 (LE WSDDX) 
| 

\ 


JDRGP (LPWSDDR) © 


DRG3(LewedDdDR) 


—e ee we ee ee we ee ee oe a 


\ 
pLCGP (LPWwSDLC) 
{DRG 3 (LPWSDDR) 
|DRGP (LPWSUDK) 
| 


|DRGP (LP WSDDK) 
pUCPR(LPwWSyLC) 
) 
' 
' 
JORKRL(LIPWSDDR) 
JDREC (APWSDDR) 
jORG2(LPWSvvR) 
1 
' 
i 


| 
JUCBE (LEWSDEL) 


YRNR(LPWSDUR) 


— es OE ee a ee Oe oe ge oe ee ew ee oe 


— ee ew wwe we ie 
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sage | 


6 ,RD 
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PD25 


PD3U 


PD40 


PD41 


PD52 
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jHandiing of Speciai Conditions ' 
i i 
Unexpected end of input: 4 
| ! 
{Empty DULLES. coc cece cccccnccccccesver| PURT 
| 1 
}indicate end of plock in previous \ 
jcecord if available | 
1 ' 
Jvata preaks j 
I 4 
tWweoite data block. eee ee eeeee0a0ueaee#asee oe >| PDIV 
bUpdate disk TequeSt WOLF. ccc eceece ee >| PU4U 
Return tO Caller.ccccccccacccecccecee Af PDKT 
‘ 1 
t#nd of data. i 
! i 
}Write data block @eegeeeseeseseeoeeceeeeagtcaeceaee 22) PDI 
pRetucn to Caller... cccecaesceccance| PURT 
i \ 
}No room in current biock: 1 
jIndicate end-of-pilock in previous i 
|record. \ 
write data block @eeseeaeeoeeeeseeeseeaeee#eeeevs#de ->{edIU 
}Update disk requeSt WOKd..ceeeeee eee >| PV4YD 
i \ 
jid#andie Current LeECOLG.ccscosccccasnes?| PDO 
i \ 


ee eee eee eee cee ee i ete 


DRGP (LE WSDDR) 


DRGP (LP WSDuUR) 


\ 


jincrement Disk Address/Get Next track Group Subroutine: 


1 ) 
jincrement disk address sSuproutine. h 
{If disposition field indicates tape j 
ISpoOlLing, CETUCN cc. cece ccecceccaeer} PUDY 
jSet function track indicator to R. j 
j 1 
jSet addressability tor vMB. j 
jit D-riie not on FBA device. cceeee ee Af PD41 
add unit of transfer to current biock} 
jnumpec in TCB (next D-record). 1 
j i 
}Cnange number of plocks in y-record. | 
fit next biock wili fit into plock . } 
Igroup, LCeEtuUrn CO CaLleLeccee ce wea eae rr} PDDY 
pOthecwise, get Next CeECOLG.. ee eeee ee >| PDDZL 
| 1 
1Update seek address record humbder. i 
J\Lf not end of track group.......2.2..>$PD5Y 
\ I 
|Lock DMB. j 
JIrt no queue record available (MRYF=V) 4 
ie Lssue warning message 1Q38L } 
te Unpost ECB in DMB h 
I 1 
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LCPT (LewsDLC) 


TCvDwW (LEWSDEC) 


YREB (LPWSDUC) 


TCDW (LPWSDEC) 


yCEB(LewdDyUC) 


=—— ee ee ee eee ee we ee we oe oe 


—e oe oe oe 
ww 
on 


— weer Be 6 we eee oe ee oe ee oe 


— oe = gr we eo EF eo ow ee wee ee ee ee 8 ee oe ee oF ee we ee we ee ew ee Se @ ew we ew ow ww @ S oe we a Or Se oF ee oe we we 


{jiPwSRSK 
' 
jLewsGaMm 
\ 
1 
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}Chart PD: IPWS$$PD - Put Data Record 


jit it 1S Save account, set cancel 
ycode in TCB and call the terminator. 
ie Onlock DMB 

1 

be Wait for queue record 
i £CB) 

te Lock DmB 

i 

taddress free queue record and read 1t 
janto the auxiliary area. 

,Update next-in-set pointer and 

jwroite current queue record. 

jSet next-in-set pointer to zero and 
jwoite new one. 

\ 

{Update statistical information in DmBj 
je wpecrement numper of availaple i 
j queue records j 
se Calculate maximum queue cecords 1n} 
J use Ik 
' 

sUpdate queue record area: 

je Set first-in-set switch off 

}* Set next~-in-set pointer to Zero 
}¢ Copy track group pointer from 

i auxiliary 

bs 

tUpdate logical Work space in 1tCs: 
fe Queue cecord seek address 

ie Data record seek address 


| 

' 

1 

} 

} (posting or 
| 
| 
t 
1 
1 
| 
\ 
! 
| 
| 
i 
i 
| 
1 
| 
] 
| 
I 
| 
1 
l 
1 
\ 
t 
1 
| tUnlock DMB if not save-account task. 
1 
i 
\ 
l 
) 
1 
| 
i 
| 
| 
1 
1 
\ 
! 
h 
! 
1 
Ah 
) 
1 
1 
1 
! 
l 
| 
| 
! 
t 


oe we wii ie 


jset Lunction track indicator to oO. 
jRetucn to caller. 

write Block To visk/Tape Subroutine 
hee Function track indicator to P. 
a tape spooling in disposition ) 
jtaeld in queue record, write tape ..>|Pvi7 
or not execution processor Ss duteiiedent | BON 
‘re ena of data d scistaiuibenieeeeusenc en ooak 
or double puffer switch. 


— a ee oe Oe ee ee oe oe ee ee oe ee ee oe oe 


1 
i ! 
jWoite biock to disk. i 
1 \ 
{Set function track indicator to Ov. i 
I 1 
{fhe output block area is reset to ' 
jzeros if required. 1 
h \ 
tthe remaining block length is reset. | 
{fhe previous record pointer is reset | 
}to start of block. i 
i \ 
}ketucn to caller. t 


}Modifieda Data 
}Firelds 


IVCQW (LPWSDYUC) 
IVEDS (LPWSDYC) 
JQRNS (LPWdvdVK) 
1 
IWENS (A PW SDK) 
k 
! 
1 
INRVR(LPwSvyc) 
1 
PNRUM (LPWSDUC) 
l 
| 
i 
IORFS(LPwdvYOR) 
IVRNS (LeWwSDUK) 
JORDF (LP WSDUR) 
| 
| 
1 
PXCUW (LPwduLC) 
JECDW (LeWSDLEC) 
\ 
{fCrT(sPwHvtC) 
i 


a) 
Q 


FT (LPWSDEC) 


£CDB(LPWSOLC) 


TCFE (LPWSDLC) 


LPwSvDDR 


|ECBC(LPWSvLC) 
|TCPR (IPWSDTC) 


Calis 


}Usage } 


JLewoR oR 
ieuewee 
ren 
Tewsngs 
ENG 
seas 


LPWERLE 


EPaswtTt 


Le wong 
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CHART PF: sPwSSPF 


Aainline 


PP-1.0 





Initialize Check Free Write Updated 
for Put cir Space in. cI 
account account Pile 





pteaiest 
pr-2.0| Hq PF PF-5.0 PF-6.0 
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IPWS$PF ~ dainline 
INPUT PROCESS. _ OUTPUT 





eee >From Calling Task 





>for} Initialize for Put account 


COMREG | a cm 
[acswa } pie eae ee SE eT __ < patie 4 PPINIT : 
E | PF-2.0 
eeeeaet 
' 





R1,R0 
| eee: | { issue message to cen 


Account 

Record / 

Cae | Acs 

ACB cee menme nen B. If new control interval has to coo” 

Po | acne ‘ bw 
ee é 


A. If DOS/VSE accoun 10g is Canceled, 
ral operator. 


s 











t : 
{ | eee >fo2} Read current control intervale | Ns 
IJAPILE $ ‘ t wake 4 I/O Area 
| : s— . 
eels ete St pares | < eececcee > PPREAD : 
| | —y [- - 
Control I oe enn a ere on eoere= >fo3t Scan control interval for free space to —— papel : 
{interval i— insert account record. bROP | CIDP 
[ SS | 
f/--—_.. | 
< abel a PPINSERT | 
| ; Pr-4.0 { 
ACB 1 
| APSTATUS momenta nn --> 04] If no new control interval to be 
——__—_—__——_} | | constructed: | 
pee t. | | | 
APACP) ss. =-~-~== : - 
inte AO Gr ? : ic foe} | | 
. : fi -/ t 
Bs 5 v 
: : /—- .. 
: : < sotee PPLISIT 
: : | : ; PP-5.0} | | 
: i------- > A. If 80% space on account file 
: | exhausted present sessage: { 
i------—---—--- > Be If new control interval can be 
| { written: 
| 
| | | 
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IPWSSPP ~ Mainline 
NOTES } SODULE j LABEL 1 REF WOTES { AGDOULE {| LABEL i REP 


PPINIT Suto 4 As only one task has exclusive PFAGAIN ($SDPT 
control over the account file 
Orage tasks aoee ene a PUT account 
ceques: will wait for the locked 


i SAVE ACCOUNT task may be started i 
he central operator via the 


RX cebunt command to save and/or 








1 Save caller's registers in 
caller®s TCB 


account record are passed RO 
and R1 to IPWSSPP py “the IPWSEAR 
ro 


| The length and ara cas of the | 
If tne DOS/VSE job-accounting 


erase the content of the account 
file and to clear space to allow 

pinta d rt of the PACCOUNT command 
o continiie. 


interface is cancelled after 
¥SE/BOu ER has been initialized, 
VSE/POWER accounting also is 
teraz inated. 


fre of the following sessages 1s 


oa. SRLR 
ae ACCOUNT SUPPORT CANCELLED 





103AaL ERROR WHILE PROCESSING 
COUNT RECORD iGexx 


3 Phe unit of data transfer between 
VSE/POWER and the FBA device is a 
control interval. A control 
interval say Conpist of one or 
gore PBA D ocks s+ 


If no CIDP Seance: the control 


interva enpty 
Tet q Of PPWSSPF 
{Erol ogue) for detailed 
escription of a control interval. 


If an account cecord fits into an 
sxisting control anterzad (Step 
thiS control interva Sieres be 
ehaated and se aeree back to the 
account file. As one PUT ACCOUNT 
has exotgeiye e control over the 
account no other task may 
use the space on disk in the 
meant ime. 


PPNOTPIT 













ee pe re ee De ES FD 
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IPWS$$PF — Mainline 
INPUT PROCESS OUTPUT 





E 


APEBF 
OS| Issue message and wait for operator 
intervention to start save-account task AFSTATUS 


to clear account file and reactivate put 


account. 
feee > 04 
Rja/i -/ 
¥ IJAPILE 
eR aE EE 
| 


| | 


BI4 - Rg 


—>foe} Write control interval to disk. 





CF eceeee® > PPWRITE 
mos 4 PF-6. of I 





Vv 
o 
[s] 





ee ee 


Restore caller*s registers and return. = 


I 


To Calling Taskeee 


m—_ 
v } 
rd 
1a 
~~] @ 
=x 

> 

a) 








ylet 
af 
eS | 
NOTES § MODULE } LABEL | REF NOTES { SODULE | LABEL | REF i 
6 The updated or newly created | ! | 7 The caller*s registers are ' j }$RET 
control interval is written to the restored from the save area 
account file. addressed by register 13, and 
it return is spade to hia. 
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IPW@S$PP - PFINIT Initialize for Put Account Request 
PROCESS 


INPUT 






i 


J 


Preece cee cece ce 


' 
' 
| 
! 
y 

v: 


Register 1 


: 
ACh | : 
fAPSAFN ] : 


AFPBPC 


outTpuT 


T 


PF-1.0 

pest r | 
If an EOF record has to be written eee >[08 tt | 

aa | | 
: — 

If DOS/VSE Job Accounting interface [eee >fos } 
is cancelled, terminate put-account ir°r, | aCB 
function and issue message to 
central operator. = AFWAP 





Reserve account control block. 





Cneck account record for valid length. 


A. If invalid length 
- issue error rmessage 
- stop task 


Initialize I/O area. 


Check if account record (incl. optional 
standard prefix} plus header plus RDP 


fits into current Cl. 
A. If current CI can accoamodate [se> > 
it: 


Set pointer in account control block to 
next control interval. 


Return 








f NOTES { SODULE | LABEL | REP in ROTES } SODULE | LABEL | REF i 





1 If the length of the account 
record to be written is zero 
(eonene that means that an EOF 
record has_to be wratten to the 
Account file. Th has to be done 
when PEND has been issued to close 
the Account file properly. 


t 

: | 
2 First the "put-account® indicator 
is set into the account—-funct ion 
trace byte in the TCB of the 

calling task to signal the status 

in case of apnoraa 

If "put account® is called at 

VSE/POWER initialization time, or 
if save account is running and 
spools to the punch queue (which 
invokes the logical reader, which 
itself would write unwanted 
account records), the request is 
ignored, and return is aade to the 
cailer. 


If the DOS/YSE Job Accounting 
interface is cancelled due to an 
error that occurred in the 
$JOBACCT module, message 

1Q84I ACCOUNT SUPPORT CANCELLED 
is issued and the VSE/POWER 
account 159 functions are 
terminated. 


end. 





3 The account control blocx as 
locked to exclusively control its 
content and the account file by 
this task. 


4 The length and the address of the 
account record to be written are 

Ba oecd an register 0 and register 
Tespectively. 

These parameters are saved in the 

ACB for later usage. 


4 Pirst tne length of the account 
record is cneCked to see if it 
exceeds the maxinum allowable 
length. 

One account record may not exceed 
tme size of a control interval. If 
the record is t9o0 tone message 
1Q3AI ERROR WHILE PROCESSING 
ACCOUNT RECURD, RC=xxx is issued 
to the central Ope rarcre and the 
task is flajged to stop 
immediately. 


ne ce ee a re ee re ER CS NOI Qe nr EDN A eg EEO 
Be 





/ 


5 The I/0 area is cleared to binary | 
zeros. 


| 
! 


| prrwit 


| 


6 Seweral account records [preceded 
by a sequential-file header, and 
accompanied by a : 
record-description field) may be 

| blocked into a control interval. 
Account records do not. span 
control interval boundaries. If 
the remaining space in a CI cannot 
accommodate an account record, and 
a new CI is constructed; thas 
remaining space will never be used 
for other account records. 

6 A check is ma@e to see if the new 
account record ats 8-byte header 
for block and record length plus a 
record definition field wall fit 
into the possible free space of 
the current Ci-block. ners 
When a SY¥YSID has been specified at 
VSE/POWER generation, the account 

record 1s preceded by a standard 
prefix, containing the system id , 
COR ent id (in Our case 
*sCPwR*}, and some other control 
information such as release and 
version nuaber. 

7 


xncremented by the number of FBA 
blocks required for one control 
interval, to point to the next 
control interval on the account 
file, which then will be used in 
the SrwRITE routine. Return is 
made to the Mainline to bypass the 
read function for the current Cl. 


| 


Cee ee a een aeneenencalieceaaiaa cn andtaael ices bimameamieaomenmmeteta ataeemmmanmmmenmtenniammmetammemmtannimtenatmttoael 


The current FBA-block pointer is 


Cnart vf 
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IPWSSPF - PFREAD Read Current Control Iaterval from account Pile 





INPUT ; PROCESS OUTPUT 
4 
coe SFrom PF-1.0 
“| 
P aeeeeneemmeteaeea? a 04] Initialize locate-control word. | 
: - Read commands will follow. soo 
3 - Nuaber of blocks to pe processed. See et ee 
ACB i. ~ Displacement in dataset. t aS 
arppc——tséd|*sétt == : | oe ‘ (1 
——————|} | : p------->[02} Initialize READ CCW. => fa} Seaee eas 
AFSAFN 1 woseoee. 2 G { - Set data length. i 
wee I : - Set data address. 
AFCIPI eee tatereteteteteaee 
fo3} Read control interval ae ee P= [arPRWFL t 
ag laPRw Pa | 
To PFP-1.0ee0e0e 
e 
pret > 1/0 area 









NOTES 





NOTES } SODULE } LABEL | REF 











{ MODULE | LABEL 





1 The extent-description pluck, j PPREAD 2 The define-extent CCW, locate CC 
locate-control word, CCW chain and aod READ CCW are aiready chained, 
CC8 located in the account-control and point to their control blocks. 
block are used to read the current The data cong set to the READ 
control interval from the CCW is the léngth of one controi 
VSE/POWER account file. anterval. The address points to 

7 the I/O area, containing the 

1 The locate control word is set up control interval. 

with following values: : 

~ number of PBA block to be 3 A DOS/VSE EXCP as issued to read EXCP SWPC 
processed the control interval, and a : 

- relative block nuaber VSE/POWER WAIT as issued to wait 

- indication tnat read follows for I/O completion. 
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IPW$3PP - PPINSERT Insert Account Record 
INPUT 





ACB 
farwar | arama | wa Froa 
L1/0 area | lea 
Register 7 ——-—— fot 
ee et | 
| ey 
mares JL 
prea ec223 tie 


ACB 


Grsrmiris. 1 eeeeeettee 
| 


| 
| 
| 
Register 15 
| 
| 
| 
| 
| 
| 
| 





NOTES 





1 «PFINIT already has verified that 
the account record (including the 
account garels a _ record 
description field (RDF), and a 
sequential file neader, fit into 
the current control interval. 


2 Layout of 
header: 
Byte 0,1: 


the sequential-file 


Block lengths | 
length of data 
lus 8 bytes. 
: Zeros. 
: Record Length: 
lenjth of data 
plus 4 bytes. | 
| 


3 The new account record, addressed 
by register 14, is copied from the 
user area after _the header in the 
control interval. 

When a SYSID nas been specified at 
VSE/POWER generation, the account 
record is preceded py a standard 
prefix containing the system id, 
component id (in our case 
*SCPWR*), and some other control 
inforaation such as release and 
version number. 





{ SODULE | LABEL 


in Current Control Interval 
PROCESS 





























PP-1.0 ‘ | 
Calculate address within control | | I/O Area 
interval to determine where to store the arr 
account record. 
; ; eRe “> HDR 
Build sequential file header. i { 
ee | 
Copy account record after header. ayy | I/O Area 
ee 
If a_new control interval is to be | [ape 
build: 2 
—_-.. —i«+It_____.._» |Data 
A. Build skeleton of ant : eae 
control-interval-description field 
(CLDP) . 
I/O Area 
Update CIDF to contain new 
account-~-record information. A 
Update account-control block to contain 
free space in Ci. 
Build rcecord-descraption field for new | \sipp 
account record. > {CIDP 
To PP-1.0eece 
et ACB 
e 








f 


ee ee Ee EE SE Se ER A NT SSNS EN CNR HE ES A GR EE RS 


| 


NOTES 


It is determined if the current 
control interval has to be updated 
with the new account record, or 

a new control interval has to be 
created. The later happens if the 
new account record does not fit 
into current control interval or 
if an BOP record has to be 
written. 


{ REP } SODULE | LABEL 


PPINSERT 


ad 


ec 


If an existing CI is updated, a | 
CIDP already exists. Else a éipr 
skeleton is constructed. | 


PPINSETI 





The length of the account record 
to be inserted contains its data 
length, a header and an RDP. 


a 


A scan is rpade thru the control 
interval froma the end backwards to 
cane FEC? space if &DPs already 
exist. 


ae ee er cr ear ee: rem ea enres Sree prea. 
a ene er ne ee ee ee PE OY ER C-SI 
ee eee re AE RES UEP SOE SE rE ETENEr Cee tee 
ee RS TU EROS EP TU GTERCSre PUR SA LE a TT 
w 
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Check if New CI dxceeds Limits on Account Pile 




















Issue wAIT to be reactivated by Save | 
account task. 4 
Indicate wWaIT state. 

! 


block. 


Release account control 
Return. 


To PF-1.0ecee 


INPUT PROCESS OUTPUT 
a. 
ACB e 
es >From PF-1.0 | 
faracr —/| . i eeu 
[APBPC we te tn > $04) Check if control interval to be added 
| exceeds 80% space limit of the account ae | 
APECF eo 
A. If not: coe >f05 ACB 

| {2 i= 

AFSTATUS Lee eee eter B. Issue _ sBessage that indicates Account 

i } H fale 80% full, if not already done. 

wa 
| ----- >foz] Check if control interval to be added 
aes Passes SSeee== ~ | fits into free space on account file. 
Ae If yes: eee 72 [05 | | 
Issue *ACCOUNT PILE PULL® message to | 
centrai operator. i | 

| 
! 
| 
t 
| 
t 


| 


NOTES 





1 VWSE&/POWER initialization routines 
have calculated the number of PBA 
blocks, 
the overall space in the account 
file. This value is checked 


which constitute 20% of 


t 

| against the remaining free space | 

on the account file. 

| If the last control interval is | 

| updated, at will be written back 
to the Account file, and no check 

has to be made. Otherwise a check 

| 





is made to determine if now 80% of 
ali control intervals are an use. 


The following message is issued 
the farst tise when the 
remasnahd Free s 

account file is 


204 space value: 


10311 MORE THAN 80% FULL 
ACCOUNT PILE (IJAPILE) 


ace on the 
ess than the 


No additional action required in 
this routine, when the newly 
Created control interval can be 
written to the account file. 


ee nee re eras ne mre eT 
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Pa oot i 
<4! 


a | 
NOTES { MODULE | LABEL | REP i 


The following message is issued SGAS 
to the central operator to infora 
hig to start a save account task, 


| REF 





PPLIAIT 


uel the PACCOUNT coarmand with | 
its Various options: 

ere NO MORES ACCOUNT FILE 
(LJAPILE) SPACE POR ttt,cuu 


The current block number, pointing 
par tiaity. siready outside of the 
ccount file extent, is reset to 
point back to the last used 
control interval. 











Set put-account task to wait 
state, to wait for coapietion of 
the save-account task, which then 
Aer reactivate the put-account 
task. 


The account-control piock is 
released froma thas task. 

Wnen the task regaims control, 
return is made to tne aainline to 
the beginning of the function. 


PPLISIT1 


: : 
| 
7 
| 
| | 


EI ea ain SE ge ES EE CEES 
wi 
= 
i] 
Q 
ee ee ere ee ern NE 
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er control interval is doubled in 
he LOCATE control word to write 


the CI containing the account data 


followed by a CI of same length 


containing all binary zeros to the 

















and WRITE CCW are already chained, 


and point to their control blocks. 
The data length set to the WRITE 
CCw is the length of one control 


interval. The address points to 


IPWSSPF - PPWRITE write Control Inverval to Account Pile 
INPUT PROCESS OUTPUT 
| | 2.,| 
ets, 
| jets >From PF-1.0 
| /\ ACh 
| proton nn OF} Initialize locate control word. | i APABF 
: = WRITE commands will follow. | = —_—_— 
| : = Nuaber of blocks to be processed. t a > {APOBF 
ACB : = Displacement in dataset. } t } ieee { 
| 3 5 > |APeBP 
APBPC Jo feeenem : Ped I= t impr 
it : ecccct ——>{O2| Initialize WRITE CCw. me H __> JAFRDF 
[| APSAFN | -------4 : peo - Set data length. | SSS ef | Oe j 
| 3 t = Set data address. | | { | 
| x $ | | ACb 1 
A Hy 
H 3 jecsfoa) Write control interval. | ax | gAFRWFL t 
| [arcrer cerca ene reas 3 ras > | ; i 
| 7 AFR#FA 
< i. 
area were mentee nee nlock account-control block. 
| 1/o | 4 (a Unlock t i plock | 
(oo es 
| TO PP-1.Uece 
e 
| | fe 
| y/ 
| | ! | 
| nn ee | oe 
{ NOTES { MODULE j LABEL |{ REP if NOTES } SODULE {| LABEL [ REF ! 
The extent-description block, {PFWRITE | } 1 The locate-control word is set up } { H 
LOCATE control word, CCW-chain, with following values: 
and CCB located in the account ~ number of FBA block to t i 
control block are used to write process . | 
the control interval to the - relative block nuaper 
VSE/POWER Account file. ‘ li indication that write cosgmanda I 
ollows 
1 For each newly created control ; \ 
interval, the numper of FBA biocks 2 The define-extent CCW, LOCATE CC#, PFWRITE1 


account file. So with each added 
CI an £OF record is written 
automatically. 

However this 1S only done when two 
or more control intervals fit into 
the Account file. | 

Por updated CIs or if last CI on 
account file is written, the 
LOCATE control word contains only 
information for this CI 


| 
| 
| 
{ ' 


ere re ce SU EE RET EE GER OTE: FUE STE EE IEER SUSU EE OAD NEE Gren ERE ETDS 


| 


the I/0 area containing t 
control interval. 


A DOS/VSE EXCP is issued to write 
the control intervai and a 
VSE/POWER WAIT is issued to wait 
for 1/0 completion. 


e 


EXCP 





The account-control block is 
Bhtocked from the put account 
ask. 


= 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


a ecauatnananiatameant 


Chart PF 431 


Licensed Material - Property or [BM 


432 VSh/POWER PLM Part 2 


Licensed Material ~- Property of IBM 


CHART PL: JLPWSSPL 


coro ee eee ee eee et nen, 








) LPWHSOL - VSE/FOWER Physical List 
f Label } Routine 
} PLOO } Punction Entry 

) PLOB { End of Jop 

} PLAO } Abnormal Condition Routine 

4 PL10 } Printer Command Code Check 

§ PL18 } Initialize CCw’s and bata 

} PL32 | SELPRI Request Handler 

} PL4O | Print Output puffer 

} PL50 } Print Output puffer (douple putfering) 

} ePL70 | #®CB/UCS Processing Routine 


5 a RA aaa Ia IER Aa a aaa eae | 


ji Services Used i 
Cr nv el rr nes 
! Service | Macro i 
-—-—_—____——_—__-_———————vwX—XK—X— nn een, 
| fask Management |} LTewWSsWFC " 
| |} IPWSWFO j 
= a a a a a rn | 
} Storage management | IPwWSRLwW i 
j } LPwSkSW \ 
" ) IPWSRSV \ 
t-—_—___-_—__ Oh - --oOo84wr- ™NNmNNn-”-.0TOV"@"”™0I.=—_=kee=—S—OO— TE 
} message Service } LPWSGAM " 
| } ITPwswtR | 
a a a a a 
Ce ey Pe ee ne ee Pe ee eT ae Mee Ee TENS Page TG Se ORES SR ee ye ae gE pe et Sp ae ra ay eee 
| {interfaces used } 
re ear a ee ceram anteater 
| Module } Macro 1 
{Hi 
) IPWSSNU } IPWSOLI - Storage Management j 
1 LPWSSLR } IPWSGLR rt 
PE aa ee ne oer SERCO NC PN a PE Oe ee eae ee ee 
eT ee re a ee ee eg te ere ee ee en RT ee eT rte ee ee 
} Functions used } 
LL LC Al 
§ module | Macro t 


J 


| LPWSSAS } Lewstas L 
| LPWSSLU 1 IPWSULP i 
} LOWS SOT } ITe&wsOTP | 


eS ee | 
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fLabels jechart PL: IPW$S$PL —- Physical List imodified Data tReg. jCalls 

\ 4 _|Pfieldas jUsage |} 

j a a ae we ee ee ee ee ee ee ee ee ee ee ea a eS SS OOS eS ee eee eee ee ee 
|} PLOS tine first 16 pytes constitute the 


jsection descriptors: 

\ 

}*PLcs release* 

\ 

}On entry the foliowing register 
{contents are relevant: 

| 


section pase register 
address of permanent area 
task control block 


Ls) 
va 


iDPwsvoPa jR10 
j LpwsdTCc )R11 
save area list task | ITPwsoSV }R1V2 
device information | {R1 
byte 0 - numpoer ot buffers | { j 
*O014* one print putfer} 
*O2* two print puffer} 
*e2* two print pbutfer} 
and two data putters | 
pyte 1 - device type | 
pyte 2-3 ~- programmer Logical 
unit number 


ew 


2 Ww Ce 
ee ee ee ef ee 
_— SS eee ee ee es ee 


eS ee ee ew i ss i 


t 
1 
1 
\ 
1 b 
jane pnysical list routine 1S entered } 
jattec the command processor has ry 
janitialized a 1ist task control DLOCK} 
jand printer device intormation ’ 
«passed 1n parameter register 1) t 
fwhenever’a PSTART command 1S given \ 
tror a list task. 1 
b h 
PLUO tine entry parameters in register 1 j 
face saved in register 6. ' 
t $ 
ifhe interface with the Logical writer) 
42S opened tnrough an IPwSOLI cail. ) 
! 1 
bWnen this iS a tape spooling task, i 
}ocanchn to initialize and format tape } 
jcontrol plock. j 
1 ‘ 
jif task 1S 1N StOp State.weeeeeeee eer} PLAY 
! j 
PLU 1 sUtherwise, reserve storage ror the ) 
{printer TCB extension area and Save | 
Jaddress in f£CB. | 
tif no storage 1S available ana task | 
J1S 1M STOP State, DCANCN. cece cece cca rj PLAY 


dewsOul 


rm 


PwsOLP 


L2eWsksV 
PC3H (LPWSvrs) 
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jLapbels j,Chart PL: IPWSSPL - Physical List {Modified bata jReg. }Calis 

| 1 jFreias idsage 4 

| tat wer ne eee nn eee == =-——S ee eS SSS SO SO OSS OS SO OOO OS ws OT ee Owe ewe we ew ew wee wee 
}PLO2 jfhe rtrairst data record 1s requested } 
jfoom the logical writer through an 1 
sLeEWSGLR Cad bee Swe oid Sie eed wwiewiete mls > pPL3V 
i \- 
[Register 7 1S loaded with the record } 
paddcess. If this is Zero, indicating} 
jthat no record was avaliable, the j 
jLPwsGLR cali 1S reissued through a ' 
}Orcanch C0 e's le: e eevee: oie O) 66) 0S. © ele Sle e6el eee Z| PLUZ 
i 1 
iPnysical work Space iS reserved whicnj 
jwill pe initialized with the device- } 
jdependent printer data and pointers | 

fto the printer CCB, CCWs, and data 
ycecords to be printed by this task. 

' 
fenysical work space 1S made 
addressable through register 38. 


\ 
b 
' 
\ 
) 
' I 
I 
\ 
\ 
h 
\ 


>a} 
ww! 


SAPWSRSW 


IPwSDvrw 


Ls) 
a 


{Device dependent information 15S 
sstored. 

}Register 5 1s loaded with the numper 
jot puffers. 

PDA (Physical Data area)-is now 
}creserved through an IPWSRSW call, for] 
fuse as CCB, CCWS and data buffer. h 
I ' 
jfne appropriate PDA size 1S optained | 
}trom the permanent area. b 
i h 
Real address of PDA Space 1S Saved in| 
jcregister 2. j 
\ 1 
jThe virtual and real adaresses of tnej jeBVvi(LewsdPw) 
CCB (first 16 bytes of tne PDA) are 4 JPEBKA(LE RSDP w) 
}Ssaved in the PWS. i i 

IBranch CTO CONTINUC ce eccwcccecceccece AILPLUO 


j 
) b | 

PLO5S ithe second PDA iS reserved tor CCB, | i 
\ 

\ 


PWOL(LewSDPW) 


bo 
U 


dpwiRsw 


BLE (LPWSvPA) 


% 
XN 


R1,R2 drwsRsw 
jcelated CCWS and data pbufters. j 
}Ine virtual and ceal adaresses of tne} 

{CCB (first 16 bytes of the PDA) are | |PBvV2(LPwhuPw) 
}saved in the PwWs. JOBRZ(LEWSDP w) 
\ \ 

PLOO {Now tne first 16 pytesS of the purter 
{Space are set up aS a CUB, 
jandicating: 
| 
$® wait for device end 
be Accept unrecoverable it1/O error 
1¢ Command Chain retry 
je’ Pecanter logical unit number 
te Set ExXCP ceal. 

I 

jfine rceal address of the ficst CcNW, 
jrollow immediately behind the CCB, 
{Loaded in register 6 and stored in 
}tne CCB and in the PWS. 


1 
| 
| 
\ 
{CBC 1{iPWSDEB) 
|CBC1(.PWSDCB) 
)CBC 2 (LPWSvCB) 
| CBLC (LE RS DCB) 
| CBLC (iP WSvCB) 
| 
| CBCA (LP WSDEB) 
|PWCA (LEWSUPH) 
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—_—_ ewe eee ee eee ee eee ee Se 
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\ | 
{Register 6, to be used to address the} 
{CCW wnen Anitiaiizing the CCw chain, | 
jis Loaded with the address of the } 
jtarst CCh. 

I 

jfnis first CCW iS now lnitialized as 
ja NOP CCw, and the CCW data address 

{1s initialized with the reali address 
jof tne end of the Pda. 

\ 

iIf double puffering was specified in | 
|the PSTART Command, brancn to reservej 


jand anitialize the second PDA...... >| PLUS 


\ \ 
|Registerc 5 is now set up with tne { 
jceal address of the end of the puffer) 
ispace, which 1S then stored in the j 
pews. | 
\ t 
\The appropriate PDA size iS optained } 
jfcom the permanent area. | 
1 | 
{Register 5 1S how Set Up with the | 
JVirtual address of tne end of tne 1 
jbufrer space, which 1s then stored in} 
jthe Pws. | 
\ 1 
{fhe address of the first cecord is j 
{Saved in register 6. j 
1 ‘ 
}Register 7 1S set up to contain the jj 
jaddress of the proper printer command} 
jCheck table through a translate and j 
jtest instruction executed on the } 
jdevice type pyte, thus obtaining a | 
jdisplacement in bytes 1n register 3. } 
)Using this value, register 7 1S then | 
jtoaded with the appropriate table } 
jaddress. } 
1 j 
|Now, the record addreSsS iS celoaded jj} 
jan register 3. | 
i 1 
|\Registec 11s loadea with tne ! 
jaddress of the ficst PDA and register] 
106 is ceestablisned to point to the 1 
jfirst CW. | 
! \ 
iGet FCB phase name suffix for PRT1 j 


type PLANTS le scvecorvenanancacccece >\|PLSVU 


L \ 


IGet 3800 model typercoe een ccc acccce ne? PUSLV 


{Branch to CONTINUC ec wee awvacacccesce >| PL 
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{Modified Data 
jFieids 


CWDA(LPWSvCH) 


PWDA(LPWSDPN) 


BLOB (LP WS DPA) 


PUDV (L2WSDEW) 


{Reg. 
sSsage 


' 
1Ro 


a) 
u 


a) 
Ww 


R2,87 


R3,R7 


tu = x 
o = w 
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to bs] 
= Co 
= 


a eee en me me ee ee ee ce ee em re ee em ee Oe ew Oe OO OO OS BOE SS ee OO EH OD OTE 
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{Calls 


ae cme ee ee ee Oe OP ee ee ee ee Rs ee em oe ee ee ee ee ee ee ce oe ee ee ee ee eS en 0 we O&O Oe FS OS Oe OHO ORO OM Oe & Oe 
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i ! |Fieids jUsage | 
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ae cr eee Can SoA 


b 
fat end of job, the work spaces are 
released and return 1S made to the 
jlogical writer to obtain the next 
}job. 
- 
PLOS }Register 11s loaded witn the addcess 
fof tne tirst PDA and the PDA 1S 
jreleased. 
jif a second PDA exists, it 1S 
{released too. 
‘ 
PLOY jtne following device-dependent 
sanforcmation 1S saved 1n register 06: 
b 
fe Numper of buffers being used 
je Device type 
be Programmer logical unit numbec 
I 
}Register 311s loaded with the Pws 
taddcess and the PWS is celeased. 
' 
Register 8 1S set to zero to show 
jthat the PWS is released 
1 i 
,8ranch to CONTI INUCSR ceocwcccecceeccescece >), PLU! 


wee ew Owe ee Oe ww ewe we we ewe Oe ee 2 Oe BO Oe we ww we ww we = we we we we en we ww we on ew we we ew we ww a ew we ee 


LEWSR LW 


% 
- 


LewWdkR Li 


Lo 
= 


SPWSRLW 


C6 Ew ee 
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{Labels 


PLAO 


PLA2 


PLA6 


PLA8 


PLBO 


ee ee ee ee ee ee ee Ee ee ee ne ee ee ee ee Ee Se ee FO ee ee ae ee ee a ee a ee ae 


438 


tChart PL: IPWS$$PL - Physical List 
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jApbnormal Condition Hdandlec 
4 
}fnis routine is entered whenever an 
junrecoverable I/U error has been 
jdetected py DCS/VSE. 
b 
Prepare reply area. Issue message 
12Q67D and wait for reply. 
1 | 
iff reply 1s *°C*, pranch tO.wcececeee >| PLAS 
}if reply is *L* and singie puffering | 
f1s peing used, DLaANCh tOcececcceece >| PLY 
jit ceply is *I* and doupie burtfering | 
tis being used, DraNnCh tOccccacceeee H>|PLD4 
sift reply is.not °R*, pranch to... >| PLAV 
\ ! 
}if a backup count 1s specified, ' 
jorcanch CO ccnecancascescancccvancascococcon ?| PLBO 
1 i 
|Bcanch to count Skips to Chanuel one | 
pnot yet PCAINCSH. wacvacccccavcacccecs >) PLCV 
| \ 
}Set up tor restart humber of pages t 
i+ 1. i 
| 1 
jIf single puffering 1s being used, 1 
jocanch CO cece cen aceranecnceaeseseoooe >| 
1 1 
}CLeac print buffers. Branch to.... >} 
| \ 
tindicate new start. j 
\ ' 
}Broanch to get next record..-eaceeee PA|PLZU 

1 

| 

t 

b 

1 

| 

\ 

I 

\ 

\ 

\ 


-_— oF oF ie =a we of we 


‘ 
pSet termination byte to *S* (Stop). 
}Boanch to termination routine. 

i 
! 
jfest 1f reply 1s numeric (up to six 
jaigits). If not, branch tOccaceeee 
' 
;Convert reply to pinary and set up 
jfor cestart number of pages + 1. 


{Branch to count number of skip to | 
}Cnannel ones not yet printed....-.-. >| PLCV 
' | 
{Add number of skip to Channel ones 1 
jnot yet printed to numbec of pages to} 

igo pack (specified by operator). ! 
}Breanch COS 0:66S 6 6:6 066 66 60a. 6 6:6 60.6 ae 66-8 >| PLAo 
1 

{Page Count Subroutine 

I ' 

}fhis subroutine counts all skip to 
}Channel ones in the print bufter(s), 
jwhicn are not yet printed. 


‘ 
}Calculate last executed CCW in the 
Jactive print puffer. 
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jwodaifiaed Data 
|frelds 


| PWRA(IPWSDP Ww) 


| Pw (LPWSDP HW) 


LCKS(Lewsdic) 


PWVE (LP wsDPw) 


PCLT (LPWSDLC) 


LCKS (LAPWSDEC) 


TCRS (LPWHuTC) 
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}Reg. {calls 
}Usage 4} 
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5,R6 | LPwSGaM 
pLewSwPK 
\ 


LPWddSTR 
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}Labels jChart PL: IPw$$PL - Physical Last {Modiried Data jReg. pCalis i 
' jfFrelds Osage | j 
Fe ee ee ee ee et Pe ee pe SE See rae a Pe er ee ee Bene ee ee eR Oe ee ge, TR fe 1 
PLCZ s(Note: NOP-CCW without chain-fiag t R5,R6 
{stops CCwW-chain). \ 
! 1 
1 


sfhe remaining CCw-chain 1S scanned 
jfor Skip to channel one operaticn ' 
bcode. If SO, DLANCH tOcacaacccseae PPPLEY 
4 1 
jutherwise, address next CCwW in the j 
IChain and Loop thlOUgGN..ceeeeceneee APPLEZ 
b 1 
}add 3 to the skip te Channel cne \ 
pcount. | 

1 


to 
& 
Q 
+ 


' 

address next CCW in Chain and 1 
joranch TCO ccceccesccesevneccesnecaencececse >) PLC2 
1 | 

tit double buffering 1s not peing j 
jused, return 1S made to the caller. >}R14 
! 

jfhe first CCW in the other puffer is 
jaddressed. 


} 
' 
! b 
ithe CCW Chain 1S scanned for skip to 4 
| 
' 
| 


> 
t 
G 
o 


4) 
= 
Q 
a 


tas) 
t 
io 
N 


iChannel ones. If found, the page 

jcount is increased by 1 and the next 

}CCW 1s addressed. 

i 1. 
pRetucn to the Callerecccccccecceees APRIY4 
! b 
jPhase Load Suproutine: 

1 

{Build directory entry to load pnase: 
' 

te Insert phase nape into skeleton 

§ dicectory entry 

i 

}fail an the parametec List tor the 
jfeTCH routine. The toad list is 
jplaced pehind the alrectory entry in 
jthe work area. 

1 

je Store the phase Name address 

fe Stoce the load list pointer 

te Set option switch to indicate no 

4 text loading. 

' 

j}Load phase py issuing SVC 4 

jit the phase 1S not present in the 
}core 1mage Library, or 1f its size 
idoes not fit in the suppiled wock 
jacea ceturn to caller via register 44} 

i (error CXL) ec oeccccncacccnccecccce > ,RV4 
jsave the length of the pnase. t 
iSet the option switch in the para- i 
jmeter list to indicate Loading of 1 
ytext and issue SVC 4. { 
pRetucn to Ca lih Ol ee edb 6S e6 eiercie oars cies > )RW4 


ue] 
t 
t 
Cc 


| LLN AME (Lewd DEF) 

| LLVEADK (APWSDEF 
JLLN Pat (LeWS DEP) 

! 


1RO,RI 


oe eee oe ee oe ee oe 


-— se = & ww 


SVC 4 
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{Labels j4Chart PL: IPWS$$PL - Physical List {Modified vata tReg. jCalis 
' . | Fields WWsage | 


jIinsert Device Dependent FCB Prerix ' 
! \ 
ifhis suproutine inserts tne proper ) 
jpeefix in the FCB phase name when the} 
jtarst four characters of the speci- | 
jtied FCB name are ‘S$$H$S*. 1 
iThe prefixes inserted are: 1 
FCB -- 3800 t 
LFCB2 ~~ PRT? family 1 
}FCB3 -- 3203 " 
bFCB4 -- 5203 t 
4 1 
PLFO {When the generic FCB phase name is t 
\ 
1 
\ 
\ 
} 
4 
! 
\ 
I 
\ 
i 
1 


2 
= 


}specified, plug in proper prefix. 
t 


\ 
iGet Sense Information 
\ 
ifhis subroutine issues a sense IL/vU 
|}command when the printer being used 
joelongs to the PRI1 family. The 
jstandard FCB phase name suffix is 
joptained from the sense information. 
i 

PLSO jit printer 1S not PRT1 type printer, | 
jreturn to cailer @eeeeeeaeeeeneeseenr e2eee2 6 >L,Ra4 
i ' 
sOtherwise, construct sense CCw. 
|Place sense area just behind sense 
#CCW in PDA. 


i R1, R2 
b 
\ 

i 1 
t 
! 
) 


CwCC (LPWS$OCH) 
CWDA (L2WSDCH) 


be] 
~ 


Lewswel 


Q 


$Do £/0 and wait for its completion. 
\ 
tif I/O error occurred, set stop 
jcode in TCB and branch to termination| 
PCOUTIANES. ccccnccnccsecencsereccccasce APPLAY 
! 1 
PLS2 Register 6 1S reloaded with the i 
jaddcess of the first CCw. 1 
The tarst CCW 1S reinitialized asa | 
#NOP-CCW with the real address of the |} 
jend of the PDA. ! 
l 
\ 
! 
\ 
1 


TCEL (LPWSD'TC) 


CWDA (IPWSDCH) 


] 
iConvert FCB name suffix obtained trom 
{the sense information, when printer 

Jas not a 3211. 

} (Note: The standard suffix for the 

$3213 printer is * *). t 
pRetucn to Callereccccwccccccccceoes H{RIV4 
1 | 


PHFS (LPEWSDPw) 
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.jLabels jChart PL: IPWS$$PL - Physical List [Moditied Data jReg. {Calis 

' i jFielas Wsage 4 

} ae a ae oe OD a ee a ee ee eee eee Oe we Ce See eewe2 aes ee newness eee eee ee eer eee ween wees oe ae a a ee ow eee we wae we ow wea 
Get 3800 Model Information 
b 
!fhis subroutine issues a sense {£/0 
jcommand when the printer peling used 
jpelonygs to the 3800 famiiy. A 3800 
jmodel flag is set depending on the 
jobtained sense information. 
b 

PLSIO {If pcanter is not a 380U printer, 
pretucn to Caller cucccccanccccceeee 
' 
fOthecwise, construct sense L/O CCW. 
|Place sense area just behind sense 
}CCW in PDA. 
t 
jbo L/0 and wait for its completion. 


C. 
= 
C. 
G 


{LEW SDC) 
JCWLDA (LPWSuCH) 


R14, R2 


LPWSWEC 


w 
os 
PJ 


tL£f L/O error occurred, set stop 
jcode in TCB and branch to termination} 
PLOUTIUNG sn cecceccncacaewrcasscccccscoe 2\{PLay 
] ] 
PLSIO2 jRegister 6 is reloaded with the j 
faadress of the first CCw. j 
\fhe first CCW is reinitialized asa |} 
{NOP-CCW wath the real address of the j 
t 
i 
h 


TCTT (i PwWsyTc) 


G 
= 
c 
e 


(LPWSdDCh) 
jend of the PDA. 
! 
{it printer is an ISP model of the 

13800, set appropriate flag in printer| 
{ICB extension area. 1 
pRetucn to Caller..ccccccnccccccceees PPRIG 
' ' 


PT FLAG 
(LPwSDTH) 
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jLabels jChart PL: IPWSSPL - Physical List jModified Data jReg. jCaiis 
) }Fields jUsage 
}command Code Check Routine \ 
i i 
PL10 jIhe iogical writer has passed the j 
jprinter command code posted in the t 
jiast task control plock. fTfhis | 
{command code iS examined using the \ 
jtcanslate and test table PLcTr: i 
1 | 
jIf conmand code invalid, branch to 1 i 
PLGNOLS COMMAND. weer eccecceereeseeee PPPLZD | 
\ \ 1 
{it command code is valid for any 1 i 
Jpcinter, branch to continue handling 4 1 
(EOCCOEG 6 o's sbeebs SES SOTA Ce US awee ee, PL PLIT9 | 
jIf valid write command, cence eee ee erp PL | 
) 1 1 
jif command code not only valida tor 1 | ! 
(type of printer, pranch to continue |} j 
$comMand code CheCK eccrcccrcecvccccee >EPLI2Z | 
i 1 ' 
{ff same device as during execution, | | 
}oranch to continue handiing 1 | 
PSCOLM ccc ceeescnvecevanesanscecccevee PPPLIY } 
i 
I 
i 
1 
\ 
| 
\ 
1 
| 
i 
| 
1 
\ 
\ 
| 
1 
i 
b 
i 
i 
1 
| 
1 





i i 
}if not valid for this particulac | 
{pcainter, branch to 1gnOre..cceceeee >| PL2Z5S 
\ | 
PL12 yUtherwise, the proper pranch index 1s} 
jioaded from the device biock (pointed 
}to by register 7) into register 2, 1 
jand pranch into the following branch | 
jtable. | 
' ! 
100: invalid, branch to ignore \ 
' COMDAND sc acon ceecccccccncccaces PLPLLZD 
}U4: Valid, branch to handle | 
t LCECOLd ee ccc cccvesccccnccaccane P|PLIY 
}U8: Branch to empty puffer first.. >|PLIo 
}0C: Branch to perform FCB/UCS Load >} PLIuU 
410: Branch to perform printer i 
i SCTUP ace acencccccccccacccsccce P|PLIZ 
1 | 
PLt6 ja lank 1s made to print PDA.~..--e2- >| PLY 
1 I 
}Broanch to continue record \ 
PMANGLANG. coca cer cc cc ccevcccccsacecce A(PLIB 


ia] 
tb 
- 
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{Labels {fChart PL: LIPWSSPL ~- Physical List jModified Data | Reg. {Calls 
{ j {Fields iUsage | 


| {Initialize CCWs and Buffer | i 
{PL18 {This routine calculates the remaining| | 
| {PDA space and checks if it can | | 
jcontain the data record and two { | 
| (accompanying CCWs. It so, the record| | 
| fjand CCws are moved into the PDA and | | 
| jan IPWSGLR call is issued: to logical | | 
| {writer to get the next data record. | | 
| {The CCW string is started right ij | 
| [behind the CCB at the beginning of | | 
| {the data buffer space and the data | 
{ {records are chained backwards in the | \ 
| {PDA, starting at the end of the PDA. | i 
| {This procedure is followed to | | 
{ Joptimize the use of PDA space, since | | 
{ {the variaple length list records { { 
| [prevent any calculation of a data { 1 
{ {record start address if data records | | 
| fare chained forward normally inthe | | 
| JPDA. af insufficient PDA is | | 
{ javailable, the data buffer is emptied| | 
| {first by writing the data records to | { 
{ {the printer. | | 
| { | | 
J PL18 {if the printer is a 3800 and the Ist | i 
{ ibyte of the record is the TRC byte { i 
| { (OPTCD=J), the appropriate CCW is | | 
| J built. | ] 
| { { | 
| (LE -privterc “2s not a. 3800.6. Secese ees >4,PL19 | 
I {if no TRC processing is requested...>|{PL19 | 
I | i | 
| {Strip off TRC pyte and adjust record | | 
{length { j 
| {Isolate new TRC indicator and if | | 
{ |corresponding CCW is already issued >{PLi19 | 
| I | | 
| j Check if select translate table CCW | i 
| {tits into current butfer. If yes....>{PL18B J 
I | { H 
| {Otherwise, a link is made to empty | i 
| (. DULLES ele see sia s oS iar tevin Setce aes oie aie ve ae2e>fPL40 j 
i { { i 
| PL18B [Set up select translate table CCW andj i 
j {chain NOP-CCW to it...ssenees aes ariae > [PLOY i 
| | | i 
J PL19 {Register 1 is loaded with the address] i 
{ Jof the next CCW to be built. | ] 
| { ! i 
{ {Register 2 is loaded with the addressj| i 
{ fof the end of the available buffer { j 
\ | space. { i 
I | | i 
i {The remaining PDA space is calculated| | 
{ {by subtracting register 1 from { | 
{ {register 2. { | 
| | 1 I 
| {If remaining space. is zero or more, a| j 
| {branch is made to attempt moving of | i 
i i 
{ | 
I { 
| l 
\ { 
{ | 
1 \ 


CWCC (1 PWSDCWH) 


Do 
ws 


6) 
NR 


R1,Rz2 


{CCW and data record........266., oe >4PL20 
I I 
|Otherwise, a link is made to empty | 
Lote PD Rina datas Ss bailey had tena tsa Sree ataeig Dd PLO 


| | 
{Qn return, a pranch is made to build | 
{CCW and move data record to the PDA >|PL22 
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Huy 


{If the record to be moved fits in thej 
{cemaining PDA space, a branch is made} 
{to build CCW and move data record to | 


{the PDA......... weseesve> wwence wens P|PLZ2 


{ { 


jOtherwise, a link is made to empty { 


{the PDAw« ow aw ae. ee @ @y eow.onoeonsnwern a Se >| PL4O 


I i 
|The command code, contained in the 
{high-order byte of register 3, is 
{stored in the new CCW. 

{ 

|The real data address, now pointing 
jto the end of the available data 
|butfer space, is loaded in register 
{2, the record length contained in 
{register 4 is subtracted, and the 
jupdated real data address and data 
{length are stored into the CCW. 

| 

j{Whoen channel one has been crossed 
Jalready, a branch is made to move | 


—— ae oo oe Oe ee ee ee ee 


{data record to printer I/O-buffer.. >|PL23 


\ | 
{Otherwise command code is set to NOP,| 
{also New Page Flag is set. 

| 

{Register. 6 is set to point to the 
{next CCW, which is now made the NOP 
{CCW terminating string, while its 
{data address is made to point to the 
jend of the available data buffer 
{space after moving the current data 
{cecord by branch and link ..... wae 
| 

{Register 5 is made to point to the 
{target address of the current data 
|cecord in the PDA, by subtracting the 
jcecord length, as contained in 
{register 4, from the address of the 
fend of available buffer space. 

{ 

{lf the record length is not more than 
{256 bytes, a branch is made to move 
{the record with a normal MVC 
{instruction, subject of an EXECUTE 
JANStCUction.~....ecesaeeae Pe ar ee 
{ 
{Otherwise, registers 2, 1, and 0 are 
{set. up as from-address, to-length and 
|to-address, respectively, to. be used 
jas the operands of the MVCL 
jinstruction that moves the data 
{record. 

I 

{After moving the record to the PDA, aj 
{branch is made to obtain the next | 


— am oe ee Oe A ee Oe ee ee ee ee ee ee ee ee ee ee ee oe 


{cecord from the logical writer..... >{PL2A 
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{Modified Data 
{Fields 


CWCC (IPWS$DCW) 


to oe i eee ee ee ee Oe ee 


|CWDA (IPW$DCW) 
{CWCT (IPWSDCw) 
| 


— oo a oe 


{CWCC (LPWSDCH) 
| CWRE(IPWSDCu) 
| 
\ 


i 
{CWDA (i PwEDCw) 


R2,R1 
RO 


Licensed Materiai - Property of IBM 


eee ae Mae tte Me eee cere cme Mam Se AND ee GD AO SO SS SS SD me SSS eee aD mete Ae ee cir ee ete Sa SO me ee cn eee cee cm re SO SO CO cam ee OE OS SE SD ee ee ee ee ee Se ee mee ee ee ce ee ee ee ee ee ee ae ee ee ce re re ee eee 


Licensed Material - Property of IBM 


ee ny 


. 
jLabels ‘{Chart PL: IPWS$PL - Physical List iModified Data | Reg. jCails 

{ | jFields {Usage | 

PL24 {Register 4 is decremented by one to | R4 


‘|contain the record length in machine | 
{format and the record is moved using | 
jan EXECUTE instruction. { 
| i 
PL2A {Lf the CCW operation code was a clearj| 
{printer X'87"', a branch is made to i 
‘Jempty the print buffer(s).......... >|PL40 
| I 
{if doubie buffering, branch to wait | 
{for the completion of the last 1/0. >{PL50 
I { 
{(This is necessary because the double| 
{print buffer processing routine does | 
jnot wait for the completion of the i 
{1/0-) \ 
jContinue mainline ........ fete erie weee> | PL26 
| 
{ 


=_ 


PWOT (IPWSDPW) 


l 

| 

{ 

| 

i 

{ 

| 

{ 

| 

I 

{ 

i 

i 

\ 

{ 

| 

H 

| I 

{PL25 {Check if the last processed data 
| jcrecord is the last record in the data| 
j Jbuffer. If not so, or if double j 
{ {buffering is being used, or if the | 
{PDA is empty, branch to........ wees >|PL26 
{ I { 
{Load the CCB address into register 1,j 
| jand execute the channel program via 
{ Isvc Q. 

{ l 

{Request the next record from the 
| {logical Writetsds.swes sce ses Susrace cera. > 
{ I 

{ {Wait for 1/0 completion... 26.266 6% 3 > 
| 

| 

| 

\ 

{ 

I 

{ 

I 

I 

| 

| 

i 

I 

I 

{ 

\ 

{ 

| 

{ 

I 

{ 

{ 

i 

1 

| 

I 

| 

i 

I 

{ 


bo 
_ 


l 
{Branch COs sso e ero ee ee b4 Siacees as 2eewe@ees > 
| 

PL26 {The next data record is requested 
{from the logical writer through an 
{IPWSGLR call..... ee ee ee ee 
( 

PL27 {If a record is available, a branch is| 
{made to process the new record..... >{PL10 
{ | 
{if a zero address was passed, { 
{indicating that no record is j 
javailable, a link is made to print j 
{the PDA. eae. nea @eoeuwewse wwreenwvneseaesaeveowewane >4PL40 
I I 
{if single buffering is being used, j 
{branch to End of Job routine....... >|PLO8 
{ 1 
|Set wait request, and branch to wait | 
jfor the completion of the previous | 
{issued AS) Ow .ois5) als See a'e eas Oa ew Ses weiss >4 PL50 
| { 
{Branch to End of Job routine.w...2.. >| PLO8 
l | 

PL30 {Request the next record from the 


AS] 
mo 
oa 
= 
=o) 
ie) 


9) 
~~ 
ood 


PWOT(IPWSDPW) 


be 6] 
—_ 
p= 


| IPwSGLR 
{logical writer. { 
| i 
{Save record address and length, | 
i 
| 


— te ie ee ee i eee ee ee ee ee ee ee ee ee eee eee i ee i ee ee eee 


|crespectively, in register 3 and 
{cegister 4, and return to caller. 


_ 
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Z 
{Labels [Chart PL: IPWS$PL - Physical List {Modified Data | Reg. (Calls 
| |Fieids {Usage | 


ee ee 


| 

{SETPRT Request Handler 
i 
{This routine is entered whenever a 
|SETPRT request (signalled by a dummy 
{CCW code of 'FD') is encountered for 
Ja 3800 printer. 


’ { 
PL32 {A branch is made to empty the print 
(DULL CL 6.50 iw oo; aso Sse fe eee ee @e@ewevwseznrtewrs2rsest3 @& > 
I 
{If double buffering is being used, a | 
{Wait request is issued by branching jj 


i 
\ 
l 
| 
{ 
\ 
{ 
i 
l 
PL4O | 
l 
{ 
i 
(EOsseSe se see cee ee Ge eae ewes awe: SPL OO | 
| 
i 
| 
| 
| 
l 
{ 
{ 
l 
| 
I 
I 
{ 
| 


PWOT(IPwWSDPw) 


{ I 
{ (This is necessary because the double} 
{print buffer processing routine does | 
jnot wait for the completion of the { 


{ 1/0.) 


( 
PL34 {When the DUMP/TRACE option has been 
|specified in the SETPRT parameter IPwSULP 
‘{list, SYSLST is assigned to the same 
{printer being used. 
{if SYSLST is already assigned, 1 PwSGAM 
{message 1R64I is written. 
I 
{The dump/ftrace flag is turned off. 
| 
PL36 {Storage for the service request block 
{ (SRB) is acquired. 
{ 
{The SRB is formatted: 


{ 
| 
I 
| 
I 
| 
I 
| 
{ 
j |} PTEFLAG2 
{ 
| 
l 
| 
| 
| 

{* SETPRT cequest i 
| 
| 
| 
I 
{ 
{ 
j 
| 
{ 
1 
| 
| 
I 
| 
i 


(IPW$DTE) 
IPWSRSW 


l 
i 
l 
| 
I 
( 
J|SRBREQ 
{ | (IPWSDSR) 
{* Address of SETPRT parameter list {SRBPARM 
\ { 
{The TCB extension area is made | 
jaddressable using register 2 as base. j 
| | 
{The proper programmer logical unit { 
jis inserted in the SETPRT parameter | 
\ 
{ 
{ 


jlist. 


(IPWS$DSR) 


SPPLUSYS 
(SPLIS1T) 


| 
{The actual copy group inaex is 
{inserted in the parameter list. 


| SPPCINDX 
(SPLIST) 
{ 
SPPFLAG1 
(SPLIST) 


4 
| 
{The operator message suppress flag is | 
jset. { 
{ | 
{if setup is requested, branch to... >{PL37 \ 
| I \ 
{ Otherwise, check if the new SETPRT { | 
{cegquest matches the previous request. | | 
{If so, skip setup processing........>{|PL38 | 
{ | | 
{Copy the SETPRT parameter list into | | 
{the TCB extension area. | i 


PTELIST 
(IPWSDTE) 


ee ei eee we ee aoe ie 
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{Labels |Chart PL: IPWS$PL - Physical List {Modified Data | Reg. jCails 

| | | Fields {Usage | 

PL37 {The service request block is passed 
jto asynchronous service for pro- 
{cessing by means of the IPWSIAS 
J|TYPE=SERVICE macro instruction. 
{ 
{Turn ott flags for FCB verification, 
{mack form, and offset stacking. 

| 

PL38 j{furn off setup required flag 
i 
{The service request block is reieased 
jand returned to the storage pool. 
| 


I 
l 
I 
{ 
t 
| {PTEFLAG2 
| 
l 
{ 
l 
l 
l 
{ 
{When the dump/trace option was { 
| 
| 
( 
| 
1 
l 
t 
i 
l 
I 
| 
\ 
{ 
\ 


{| PTEFLAG1 


\ 

| 

| 

1 

{ 

| 

i 

\ 

I { 
i l 
\ | 
i \ 
| I 
\ / 
j |specified, SYSLST is unassigned by | 
| {invoking the appropriate function. | 
| I i 
| {Branch to CONCINUCL ... saws cwseseses 2|PL2Z6 | 
| i | 
{ {PEint Routine | 
{ | | 
{ {This routine handles the actual { 
{printing of list records, as well as | 
| fall resulting normal and error I/0 | 
{ J|conditions. | 
| { | 
{PL40 {On entry, register 5, supposed to i 
{ {point to the end of the free butfer | 
| |space, is compared to the virtual end| | 
| {of the data space address in the PWS. | | 
| { { 
j {If equal, indicating an empty block, | | 
J jimmediate return is made to the { | 
{ {caller. | | 
i { i { 
{ {If double buffering is being used, | { 
j branch COs swawncceccwesanassensccease 2|PL50 | 
| { | 
| fOtherwise, register 1 is loaded with j 
| jthe virtual CCB address as stored in { 
| {the PWS, to serve as the parameter { 
| {cregister for the EXCP (SVC 0), which | 
j Jis now issued. 1 
{ l i 
{PL41 {On return, an IPWSWFC call is issued | 
{ - {to have the list task wait for I/O i 
j |completion. | 
{ | | 
| {The CCB is checked for unrecoverable | 
H {I/O error. i 
| {If so, branch to ask operator for | | 
{ (PLOPer ACTLONs se steuwscsccecewewcce PO PPEAD { 
{ { i 
| {The CCB is checked for unit exceptiony i 
| {(channei 12 overflow), and ignored i { 
j Jerrors. | | 
{ { | | 
| {if so, a branch is made to restart | j 
{ {1/0 to the printer at the point of i j 
j {CCW Chain interruption... .....2.220. >| PLY4 | 
| | \ 
j {If no channel 9 overflow is indicated| | 
| {in the CCB either, a branch is made jf i 
| ite bypass I/0 restart. ..cewscseseee >| PL48 j 


iPwhWFC 


oo 2 ee ee eae i i 
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tapers {Chart PL: IPW$$PL - Physical List {Modified Data | Reg. jCaiis 

| | |Fields {Usage | 

{ eee ree ee ence we ee mee weer sees se mee cme carne ee wh coe ee wee ete ae ae a we ee re re ces we me me me ee oe ee ree ee ere a ee ee wn we ee wee re me we we ee a ee ee a eee ee we ee oe ee ee ae ee a ae a a ee ee 
 {PL4ag {Otherwise, the CCW chain interruption] CBCA (LPWSDCB) 


jaddress is made CCW start address in |{ 
{the CCB, and a branch is made to the | 
{subroutine entry to restart the I/O | 

jat the point of interruption....... >| PL40 
{ \ 
{The CCW start address in the CCB, CBCA(IPWSDCB) 
{which might have been changed on 
{processing a channel 9 or 12 
Joverflow, is now reset using the 
jaddress saved in the PWS, and 
jregister 6 is set to point to the 
{first CCW again. 

\ 

{The data address in the first CCW is 
jreset.to the real address of the end 
fof the data buffer space. 

{ 

{Register 5 is reset to the virtual 
faddress of. the end of the data buffer 
{space. 

I 

{A branch is now made back to the 
jcaller. 


my 
ts 
= 
@ 


CWDA(IPWSDCH) 


{Double Print Buffer Routine 
i 
{Registers 1 and 2 are loaded with the 
jvirctual and real CCB addresses 
{respectively. 
| 
{if this is the first time poet tes 
fbranch to.......-.. ee ee ee ee ea > 
| 
{Register 1 is loaded with the CCB 
faddress of the active buffer. 
{If the CCB is posted, branch to.... > 
| 
{Otherwise, issue LPWSWFC request and 
{wait for completion of previous 1/0. 
{ 
|The CCB is checked for unrecoverable 
{I/O error. 
{If so, branch to ask operator for 
{proper action...... eG ainja lores She teranstar ays 3 
{ 
{The CCB is checked for unit exception 
{(channel 12 overflow), and ignored 
{errors. 
{ 
jlf so, a branch is made to restart 
{I/O to the printer at the point of 
[CCW chaiD LNterr Uptl OD e..s o6a's Sw 4,08 
I 
{If channel 9 overfiow is indicated in| 
{the CCB, a branch is made to bypass | 
{I/O restart......... ae ere weaeeee >| PL5S8B 
I | 
PL54 {Otherwise, the CCW chain interruption | 
jaddress is made CCw start address in | 
Jthe CCB. | 
{An SVC 0 is issued. i 
{Branch to wait for I/O completion... >|PL51 
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PL52 


LPwSwEC 


TU 
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iLabels {Chart PL: IPW$$PL - Physical List {Modified Data i Reg. {Casls 

| i |Fields iUsage | 
| en 
{PL58 {Registers 1 and 2 are loaded with the| {k1,Rz 


| . {virtual and real addresses of the | 
jother print buffers respectively. j 
{ { 
PL60 |If this is not a wait only reguest .>j{PL61 
| Otherwise set virtual address of j 
jactive buffer to zero to indicate | 
{first time processing { 
{ | 
{Load registers 1 and 2 with the { 
|virtual and reaJ. addresses of first {| 
jbuffer | 
| 1 
{Turn off. wait one ees ERS? SVCO | 
IPLOCESSING -nsaseawenaecasencomecsas >I 
| { 
{Registers 1 and 2 are stored in the {| 
{PWS to address the active print | 
jbuffer. i 
| 
| 
i 
{ 
| 
{ 
| 
l 
I 
{ 
i 
\ 


PWVE(IPWSDPW) 


R1,R2 


PWOT(IPWSDPH) 


—_ 
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PWYE(1PwSDPw) 


I 
{Register 2 is loaded with the real 

jaddress of the first CCW in the PDA, CBDA (IPWSDCB) 
{which is stored in the CCB and in the PWCA (i PWSDPw) 
{PWS. 
| 


{Register 1 contains the virtual 


{ 

{ 

\ 

i 

1 

! 

| 

\ 

| 

\ 

{ 

| 

{ 

i 

i 

| 

( 

{ 

| 

\ 

\ 

{ 

j jaddress of the CCB as stored in the 
| jactive print bufter and serves as 
j [parameter register for the EXCP 
| |(SVC 0), which is now issued. 

| l 

j {Registers 1. and 2 are loaded with tne] 
H {virtual and real addresses of the | 
| javailable print buffer. i 
l 

{ 

( 

| 

I 

i 

{ 

| 

{ 

{ 

{ 

| 

! 

{ 

{ 

1 

{ 

1 

{ 

{ 

i 

| 

l 

I 

1 

l 

\ 

| 

L 


td 
mn 
Oo 
tO 


R1,R2 


{ | 
{The addresses of the real and virtualj 
jend of the buffer space are stored in| 
{the PWS. i 


AS) 
tc 
fon) 
oO 


PWDA(IPwSDPw) 
PWDV (IPWSDPw) 


| 

{Register 6 is set to point to the 
[first CCW again. 

{The first CCW is initialized as a 
|{NOP-CCW and the associated data area 
jaddress is initialized with the real 
{address of the end of the PDA. 

| 

{A branch is made back to the caller. 
{ 


CWDA(IPwW$DCw) 


fo 
ial 
~ 
oO 


{Check if printer being used is a eee 
[type printer. If not, branch to... PL80 
[Check if a FCB name is specified. If 
j{not, take DOS/VSEF default FCB name. 
{The default FCB names are: 

| 

{3211  -- $$BFCB 

43202 -- $$BFCB3 

{5203 -- $$BFCB5 

{3203/4 -- $$BFCBOO 

{3289-E -- $$BFCB10 


FO Oe ee a A Ae SS eS Se ND ee SS ON mem ate cm av San cmt OS me me ee nce cm ce cos wt ae ce rar em ree me mete we me me ee wre ae me a ee mee ee ae ce met a ee wa me ee me cee ce ce ee a rs ee ee we ree ee ome ee ee, 
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Cc 
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NDHGFCB 
(LPW$DNR) 
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Labels |Chart PL: IPW$$PL - Physical List |Modified Data |Reg. {Cails 
i | |Fields {Usage | 


- 
| 


NDHGFCB 


JPL76 {Insert standard FCB prefix, when a | { 
(IPW$ DNR) {R14 


{generic FCB name is specified...... >{ PLFO 

{ | 

{lf the FCB to be loaded is the same | 

{as the one on the printer, branch ..>j|PL80 

j|Save the new FCB name and reset the | 

jcurrent forms id to force the mount | 

{forms message to be isssued. | 

| | 

{If the print buffer is not empty ...>{PL77 

\ \ 

{Setup a dummy I/O (write no-space) to| 
_[ensure that the printer is ready, andj 

[chain it into the CCW, ....2...0.22.>|{PL9I4 

I { 

{Empty the print buffer(s)........-- >| PL4O 

{If two print buffers are used, brancn| 

{to wait for the completion of the | 

blast: 1/0ss.5 42% ree ae eee ited ee. >|PL50 

{ \ 

{The general workarea of the printer 

{TCB extension area is used to build 

{the LFCB parameter list. 

j* Convert logical unit number from 

CCB into LFCB parameter list. 
e Insert FCB phase name. 


ae ee ee oe 


PTEFCBN 
LWFi (ITPWSDTC) 


R5,R14 


Ze) 
i 
~ 
~ 


PWOT (IPWSDPw) 


is) 
~~ 
£ 


mo mo 
tN © 
. 
bs) 
= 


| 
| 
I 
I 
| i 
{ l 
{ I 
{Storage for the service request block| IPw$RSW 
i (SRB) is acquired and formatted. \ 
Je LFCB request | 
{* Aadress of LFCB parameter list | 
l« i 
l 4 
l 
I 
| 
| 
l 


Address of phase name 


SRBREQ(1PWSDSR) 
SRBPARM 
(IPWSDSR) 

{Call asynchronous service to process IPwsias 
{the request. 
{The service request block is released 
{and returned to the storage pool. 
{ 
{1£ load FCB was successful, { 
|branch to UCS proceSSing......e200- >| PL8O 
{Otherwise branch to0........2220220e- >|PL26 
I { 
{Check if UCS load is requested. If | 
[not, branch to get next record..... >| PL26 
| | 
[Check if the printer being used is a | 
{UCS type printer. If not, branch... >|PL26 
{If the UCS buffer is already loaded, | 
{done by a previous job, branch to.. >|PL26 
{ | 
[Empty the print buffer (sc) ..-.....2- >| PL4O 
{If double buffering is being used, | 
{branch to wait for completion of the j{ 
(Rest 1/0dd edavtuei ee etos< dena eser SIELOO 
{Reserve temporary workspace to load j| 
{the UCS buffer. (workspace size = | 
{DBLK size). | 
{Branch to load UCS buffer into work- | 
[SPACEn. ws acwwvererecccsewscsccs, weees >|PLLO 

| 

j 

l 


{IPwWSRLwW 


a) 
—_ 
.o 7) 


ICTT (LPWHDTC) 


? 
tC 
fee) 
oOo 
=o] 
any 


As) 
tr 
jee) 
= 
=) 
_ 


om 
om 
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PwOT (IPWSDPw) 


as) 
re 
foe) 
Ww 
no 
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IPwdRSW 


bo 
=_ 
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{ 
{Check if the length of the just 

jloaded UCS buffer corresponds with 

{the length expected by the appro- | 
{priate printer. If not, branch to.. >| PL88 
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{Labels |Chart PL: IPW$$PL - Physical List iModified Data i Reg. j{Casls 
| i {Fields iUsage | 
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{Save new UCS phase name and asso- 
{ciated options. 

| 
{Tell operator to mount proper print- 
{train and wait for his reply. 

| 
{When he answers STOP, FLUSH or 

{FLUSH HOLD, branch to...,.. a ee 
I 
{Construct CCW chain’ for UCS burter 
{loading: 


i LTPwsGAM 
ji PWSWFO 


PL89 


| 

\ 

{ 

| 

| 

| 

| 

| 

{ 

{ 

| 

| 

\ 
Build ailow/block datacheck CCW | 
depending what is specified | 
Build fold/unfold CCW { 
Build UCS buffer load CCW and move | 
UCS buffer from work area to print | 
buffer. | 
{ 

{ 

{ 

\ 

| 

| 

I 

{ 

I 

| 

{ 

| 


ce 


PL87D Release temporary workspace. IPWSRLW 


Branch to get next data record..... >|PL26 


4 


PL88 {inform operator that a UCS error 
| occurred. 
| 
{Set immediate-stop code in TCB and 
Jbranch to.........--., aig tale whose stata ae eves (2 
I 

PL89 {Reset current UCS name and branch PTEUCSN 
[POscatiwesds seus ehde ae vas ee eG neue ees! oe PE LeED (LP wSDTE) 


et mee ee ee a en en ae ite re ee re ne ee wa re ee ee ee rm tte re ee ee em ee en we we a re ee ee ne ee ee a we a a ee 


FWSGAM 


TCTT(LTPws DTC) 
PL26 
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IP#SPOW 
INPUT 


VSE/POWER LOader 


GNCb 


ge en ne ce Cer ae ne te ee RE RD He SRE SNe 


en ne 


| 


| NOTES ; SODULS | LABEL | REF t 





Tae Loader routine 1s in front or 
the generation taple. The source 
code’ is in the POWER macro. The 
paase Name 1S given by the user. 
here can be aS many Of these 
hases in the CIL as there are 
ifferent versions of VSE/POWER 
needed py the user. 


| 


The EXTRACT macro uses a work area F 
which 12 part of tne generat.on 


taple (GNC) 


of iBM 


PRUCESS OUTPUT 





VSE EXEC statement processor 


Issue VSE EXTRACT (SV¥C98) to retrieve. 
information about the partition in which 
VS2/POWER is executed. 


Check real/pfix and virtual saze ot 
partition. 


A. if partition buundaries are. 
acceptable load initialization 
phase IPW$$IP into virtual 
storage. 


Cc 
we 


Utherwise load I[Pw$SIP pehind generation 
tapnle 


O04] Pass Control to anitialization 


processor. 


[eccecee > 
i, / 


[3] 





IPWSSIP 


{initialization processor} 


teat ter Ort Em One ERC ERD CEA GIS She” DGS Dg GPRS GD aE SAAS GME. ar AN ED | 


_ 





NOTES 


Tne partition boundaries are not 
acceptable if the virtual ; 
parest ion Size (ALLOC-ALLOCk) 1s 
oo small to get the 
spatializatiohb processor loaded 
(10K bytes). 


Now IPW$311 displays an 
information message to the central 
operator and terminates 
anitialization. 


) SUDULE | LABEL 


} RSP 





t 
LOAD IPWSPORG 


XTRACT ai leat 


| 
| 


Base register for IPH#$$IP is set load 
up and @ branca is made to the 


entry point. 
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c SP Py pe rare ay We ee oN ee ee Se re ee, eM eg et epee Gate os ST Sy Sale OG eR EE ag a Ee ae PE PE PS Ee NOE ete Tee 
| IPWS$PP - VSE/POWER Physical Punch | 



































| Lacsel 4 Routine | 
SSeS _ SAC ec a Ta a I a 
{ PPOO { Function Entry i 
{ PP10 i Punch Command Code Check | 
{ PP30 4 Initialize CCw's and Data | 
| = -2- i End of Job (Queue entry) 1 
{ PP60 { Punch Output Buffer i 
{ PP8O { I/O Error Handler i 
oe Sr ee eS a 4 
| Services Used A 
t Sree ene ee ee ee a ee 
| Service. { Macro i 
i SS ed 
{ Task Management { LPWSWEC i 
t Se eee ed 
| Storage Management { IPwSRLW | 
i | IPWSRSW i 
-——___-___-—____— $e t 
{ Message Service { IPWSGAM i 
( j IPWSWTR i 
Narre sie casita ae enn ise asic lant a EE EE TE Ee | 
i Sg cha GN ee ee gg Seg ee OY EO A ST I ee ey OP a pe a peAe SG en Se ag hy OG gs Gee eS ie ag ST oe eI rg 71 
j Interfaces used { 
SS eS ee 
{ Module | Macro. i 
}-------—---—-------__---+_---____+--- -____----__ -----_- - —-- 4 
1 IPWSSNU. { IPWSOLI -. Storage Management j 
{ IPWSSLR | IPwSGLR \ 
SS eR ee REN ee ASAE, Cancer lan Usenet SRS Ie cee Se re ee ee Re ee eT ee SRST OE EEE 











c Sa Teds tet hE oN Sy PG A ar eae ee See i LPT age OT BIE ae go Oe Fy ee hy gee gee eg ee RS ar aa | 
{ Functions used. | 
eae area a a aac ae acs ame SS ee 4 
| Module | Macro | 
——- 4-H 

IPWS$SOT 4 LPEWSOTP | 





| 
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Labels [Chart PP: IPW$$PP - Physical Punch j|Modified Data j|Reg. {Calls 
| | {Fields {Usage 


—_— 


{PPCS {The first 16 bytes constitute the 
{section descriptor: 
{'PPCS release! 
l 
{On entry the following register 
{contents are relevant: 
9: section base register 
address of permanent area 
Task control block 
save area punch task 
device type and logical unit 
number of punch. 


| LPWSDPA {R10 
{IPWeDTC {R11 
J IPWSDSV {R13 


<-> at od 
= Wm © 
ee ae oe 66 
_ 
bs] 
-_ 


l 
( 
l 
{ 
| 
| 
| 


| 
| 
{ 
{ 
I 
| 
{ 
| 
| 
l 
| 
{ 
I 
\ 
| | 
PPOO |The physical punch routine is entered| 
jafter the command processor has | 
Jinitialized a punch task control { 
[block and punch device information | 
{ (passed in parameter register 1) { 
iwhenever a PSTART command is given | 
{for a punch task. | 
{The entry parameters in register 1 ij 
Jare saved in register 6. { 
| | 
PPOQ2 |The interface with the logical writer| IPwS$OLL 
{is opened through an IPWS$OLI call. { 
{Check if input medium is a tape, j 
jcather than queue. If so, branch | 
fhOiie aetod ce eee) Ss Siete es aetna a ees Sahota 
i 
| 
i 
i 
i 
| 
{ 
f 
l 


IPWSOTE 
Jcontrol biock.. 
| 

PPOY {The first data record is requested 
{from the logical writer through an 
{LPWSGLR cail. 
| 
{On return from the logical writer, 
{register 0 should contain the address| 
{of the first data record passed, and | 
{register 1 its length. | 
{Register 4 is now loaded with the | 
|Icecord length. | 
(Register 5 is loaded with the record | 
jaddress. if this is zero, indicating| 
J[that no record was available, the | 
{IPWS$GLR call is reissued through a | 
{branch.....2.-. Stati wie wo. 38a eee, eis ante Wie aera Pe POY 
| I 
{Physical work space is reserved | 
{through an LPWSRSW call, to store the| 
jdevice-dependent punch data and, | 
|possibliy, the addresses of punch CCB, | 


IPWSGLR 


by 
OV 


to bd 
- = 


=e) 
wo 


LPwdRSw 


iCCWws and data records to be punched | 
|by this punch task. | 
{ \ 
{Physical work space is made { 
jJaddressable through register 8. | 
\ \ 
[Device dependent information is | 
| stored. | 


PWDI(1PWSDPW) 
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| 
| 
| 
{ 
{ 
| 
| 
| 
I 
| 
| 
{ 
| 
| 
i 
j 
{ 
{ 
I 
\ 
| 
| 
{ 
| 
| 
l 
| 
i 
| {Otherwise, request creation of tape 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
\ 
I 
| 
| 
| 
| 
| 
\ 
| 
| 
I 
| 
| 
{ 
| 
l 
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Labels jChart PP: IPWS$PP - Physical Punch 
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{Register 7 is set up to contain the 
jaddress of the proper printer command 
icheck table through a translate and 
{test instruction executed on the 
{device type byte. This gives a 
{displacement value in register 2,-. 
(which, multiplied by the table entry 
{length, will yield the proper 
{displacement in bytes in register 3. 
{Using this value, register 7 is then 
Jloaded with the appropriate table 
jaddress. 


—— oe oe we oe Ge Oe ee ee ee 


{PDA (Physical Data Area) space is now| 
{reserved through an IPW$RSW call, forj 
fuse as CCB, CCWs and data buffer. 
{The. appropriate PDA size is. obtained 
jfrom the permanent area. 

I 
{Real address of PDA is saved in 
|register 2. 

| 
{Virtual address of PDA is stored in 
{PwS. 
{ 
{Record length is loaded in register 
{ 3. 
i . 
{Real address of end of PDA 

jis loaded in register 5, and stored 
jin PWS. 

{ 
{Now the first 16 bytes of the buffer 
{space are set up as a CCB, 
jindicating: 


{ 

1 

{ 

1 

l 

| 

| 

{ 

| 

| 

{ 

| 

i 

{ 

{ 

| 

i 

| 

\ 

i 

| 

Wait for device end 1 
Accept unrecoverable I/O error | 
Command chain retry | 
Punch logical unit number | 
EXCP real. \ 
I 

| 

I 

| 

I 

i 

I 

| 

| 

| 

\ 

I 

{ 

{ 

| 

! 

| 

| 

| 


e®@eee @ 


{The real address of the first CCW, to 
{foilow immediately behind the CCB, is 
jloaded in register 2 and stored in 
{the CCB,.as well as in the PWS. 

{ 
{Register 6, to be used to address the 
ICCW when initializing the CCW chain, 
jis loaded with the address ot the 
{first CCW. 

i 
iThis first CCW is now initialized as 
ja NOP CCW, and the CCW data address 
jis initialized with the real address 
jof the end of the PDA. 

{ 
{Register 5 is now set up with the 
{virtual address of the end of the 

| PDA, which is then stored in the PWS. 
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{Fields 


BLBF(IPW$DPA) 


PBV1(IPw>DPu) 


PWDA (i PWSDPw) 
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I 
|CBC1(IPWSDCB) 
iCBC1(IPw$DCB) 
{CBC2(IPWSDCB) 
{CBLC(IPWSDCB) 
| CBLC (LPWSDCB) 
| 
i 


i 
| CBCA(1Pw$DCB) 
| PWCA(LPWS$DPW) 


— 


CwWDA (LPWSDCWH) 
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= 
{Labels |Chart PP: IPWS$$PP - Physical Punch jModified Data | Reg. {Calis 
| | |Fields {Usage | 
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{Command Code Check Routine 
I 
{The logical writer has passed the 
{punch command code posted in the 
{punch task control block. 

| 


— ie mee Se ie oe ee oe Oe ee ee ee ee ee ee Be ee ee ee oe oe Oe ee ee ee ee ee ee ee ee ee ie ee ee ee ee ee ee ee oe ee oe oe ee oe ee 


PP10 {If command code is X'FF', indicating 
jinternal VSE/POWER control record, 
{branch to ignore command...... aire PP4® 


{if command is X*x9' and device is 
{15240P, command code is changed to 
{X*X1!. 
l 
PP11 {This command code is examjned using aj 
{translate and test table. { 
I { 
{Ili command code is invalid,. branch to| 
jignore C0nMandst4.4.5a8Gs0d-dee Bare sie >| PP48 
{If not dummy command (x'00'), branch | 
PEO -CODELNU C6 aejee cco se: sin cee aie sees oie >|PP12 
(if it is, pick up punch and feed | 
{command out of-.table, and branch... >|PP30 
{ I 
PP12 {Otherwise, load the proper branch 
jindex from device block (pointed to 
{by register 7) into register 2, and 
{branch into the following branch 
{table 


— =m tim eas Sop ee 


— eo oo 


| 
| 
| 
l 
| 
1 
| 
| 
| 
\ 
| 
| 
| 
\ 
| 
1 
| 
\ 
\ 
1 
i 
i 
| 
| 
| 
| 
\ 
| 
| | 
PP14 O: Invalid, branch to ignore command>{PP48 | 
4: Valid, branch to handle record... >{PP20 | 
8 | 
| 

\ 

| 

\ 

1 

| 

\ 

| 

| 

{ 

{ 

| 

{ 

| 

| 

| 

| 

| 

| 

| 

| 

| 

{ 

| 

| 

| 

| 

{ 

| 

| 

| 


2560 print, branch to indicate i 
that the PDA has to be emptied... >|PP16 


— a ee oe 


PP 16 {The switch to indicate that the PDA j 
{has to be emptied is set on in the i 
[TCB. The record length is set to 1. | 
\ { 
{if separator cards are requested, the| 
{default stacker must be selected. The| 
|device type is checked and a branch j 
{made to the appropriate routine. { 


PPEB (i PW$DTC) 


PP20 {Check if separator cards are { 
{cequested. If not, branch to...... >| PP30 
{Check the device type: ! 
{If 2560, branch tow... ewes esewecees >| PPZ6 
{TE TW442N2, branch tOswaeanacasewesee >| PP2Z4 
{if 5425, branch to..... wsecsasceues P|PP28 
| | 

jOtherwise, it is 3525, 2520, or 2540. 
{Check whether it is a write card; if | 
(SO, BEANCH CO ses .cc.c ia w eames eee ses >| PP30 
{Turn off bits O and 1 of che: command { 
|code. { 
{Turn on bit 1 of one command code | 
{and branch t0.......2.06.- ea ecoe (a aaa >| PP30 
| | 

PP24 {Turn off bit 1 of the command code, | 
fJand branch toO...esesesaees Sheree fone ate >{|PP30 


TCCC(IPWSDTC) 


TCCC (LPw$DTC) 
TCCC(IPwWeLDTC) 


{ 
PP26 {Check whether it is a load print | 
j{butfer or write a card. Branch .... >j|PP30 
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Labels {Chart PP: iPwS$$PP - Physical Punch {Modified [ata i Reg. {Casis 
| | {Fields iUsage | 
PP28 {Tucn on bit O of the command code. | TCCC (iPWSDTC) 


\ i 
{Check for stacker select command. If| 
fnot, DraNnch CO... nce sasewcccsewecsns >|PP30 
l gas I 
{Tucn off bit 2 and 3 of stacker | 
{select command, but turn on bit O and| 
{1 (stacker select 4) tor a punch de- | 
{vice other than a 5425; turn on also | 
{bit 3 (stacker select 5).. | 
\ 
jInitialize CCWs and Buffer 
{ 
PP30 {This routine calculates the remaining] 
{data buffer space and checks if it is| 
Jenough to contain the data record and| 
{two accompanying CCWs. If this is { 
jtcue, record and CCW are moved into j| 
{the PDA and an IPWSGLR call is issued| 
{to logical writer to get the next | 
{data record. The CCW string is 
[started right behind the CCB at the 
{beginning of the data bufter space, 
jand the data records are. chained 
{backwards in the PDA, starting at the| 
fend of the PDA. This procedure is { 
|followed to optimize the use of PDA | 
{Space, Since the variable length | { 
{punch records prevent any calculation| 
jof a data record start address if | 
{data records are chained forward | 
jnormally in the PDA. If insufficient] 


{ 
| 
\ 
| 
{ 
| TCCC (APWSDTC) 
{ 

| 

l 

I 

I 

\ 

\ 

| 

I 

i 

| 

I 

| 

{ 

| 

\ 

\ 

| 

| 

\ 

| 

I 

| 

{ 

| 

l 

| |PDA space is available, the PLA is 
1 

i 

l 

i 

| 

i 

| 

l 

{ 

| 

i 

| 

i 

| 

| 

| 

l 

| 

| 

\ 

\ 

| 

{ 

\ 

{ 

| 

| 

{ 

I 

\ 

u 


—=— oem 


| 
{emptied first by writing the data 1 
{records to the punch. i 
{ . | 
{Register 1 is loaded with the address| 
Jof the next CCW to be built. { 
{Register 2 is loaded with the address{ 
fof the end of the available butfer l 
(Space. 
|The remaining puffer space is 
{caiculated by subtracting register 1 
{from register 2. 
{ 
{Lf remaining space iS zero or more, aj 
{branch is made to attempt moving of | 
{|CCw and data record..........222224 >|PP34 
{ | 
{|Otherwise, a link is made to empty ij 
{the B.D A wavs coh eta td wo cece oo cee eiwi el 3 Se eece tse le >| PP60 
| | 
{On return, a branch is made to build | 
{CCW and move data record to the | 
{PD Bie ieee 6:06 me ode! noe el 0S 0a! 0c ale 0 Sie eae >| PP38 
| | 
PP34 {If the record to be moved fits in the| 
{cemaining PDA space a branch is made | 
{to build CCw and move data record to | 
{the PDA......005. ee ee anecewnncese >|PP38 
\ | 
j{Otherwise, a link is made to empty | 
EHS DD haces cede tw te ae eae ie woe eauee: OPPO 
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DO 
_ 


bo 
K 


br. 
iN 
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Labels [Chart PP: IPw$$PP - Physical Punch [Modified Data | Reg. jCails 
| | |Fields {Usage 


_— 


{PP38 |The command code, contained in the 
{high order byte of register 3, is 
istored in the new CCW. 

\ 
{The real data address, now pointing 
{to the end of the available data 
{buffer space, is loaded in register 
{2, the record length contained in 
jcegister 4 is subtracted, and the 
{updated real data address is stored 
{back into the CCW. 


CWCC (IPW$DCw) 


=o] 
NR 


CWDA(IPWSDCW) 
| 

{The CCW flags are initialized to CWFL(IPWSDCW) 
{indicate command chaining and 
{suppress incorrect length indication. {| 
{ | { 

{The record length and general purpose] |CWRE(IPWSDCW) 
{byte are saved in the CCuw. | {CWCT (LTPWSDCW) 


— oe ae ee ee ee oe = oe ee oe 


{ { 

{Register 6 is set to point to the j (CWDS (LPWSDCHh) 

Jnext CCW, which is now made the NOP | {CWDA(IPWS DCW) 

{CCW terminating the CCW string, while| i 

{its data address is made to point at | 

{the end of the available data buffer j 

{space after moving the current data j 

|record. | 

| { 

{Register 5 is made to point to the { 

{target address of the current data | 

|cecord in the PDA, by subtracting thej| 

{record length, as contained in | 

{register 4, from the address of the | 

jend of available buffer space. i 

{ i 
{ 
d 
{ 
4 
| 
{ 
\ 


2) 
fon) 


=e) 
Ww 


{if the record length is not more than 
1256 bytes, a branch is made to nove 
{the record with a normal MVC 
jinstruction, subject of an EXECUTE 
jinstruction.... Cie eae Sa aaa ee ww oe ee 


* 
=e) 
= 


| 
| 
I 
| 
I 
j 
| 
| 
| 
{ 
| 
| 
{ 
d 
i 
{ 
{ 
{ 
{Otherwise, registers 2, 1, and O are { 
{set up as from-address, to-length andj | 
{to-address, respectively, to be used | | 
| 

| 

1 

{ 

| 

I 

{ 

I 

i 

| 

l 

j 

l 

| 

\ 

i 

i 

{ 

| 

i 


bo bo 
OK 


jas the operands of the MVCL i 

jinstruction that moves the data | 

{record. | 

{ { 
{Aiter moving the record to the PDA, a| 
{branch is made to obtain the next { 
{record from the logical writer..... >{PP46 
| \ 

PP4Yy [Register 4 is decremented by 1 to | 

{contain the record length in machine {| 

(format and the record is moved using {| 

jan EXECUTE instruction. 

! | 

{A test is made to see whether the PDA] 

{has to be emptied. If not, branch to| 

{get the next record....... secaaacee >|PP4HB 

| | 

fOtherwise, the Switch in the TCB is | 

{reset to X'00', and a link is made to] 

jempty the bDlLOCK. 1... 22s caccee wansacce >| PP60 


7 é 
— oa oe ee Be ee ee i ee ee oe te ee ee ei ee ee eee ee ee ee oe eee ee ee ee ee ee ee ee ee oe ee ee ee 


to 
‘= 


ao) 
as) 
p= 
oO 


PPEB(IPw$DTC) 


— ae eee ae ee ee ae ee ee ee ie 
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Tt A P 
{Labels {Chart PP: IPWSS$PP - Physical Punch {Modified Data | Reg. jCaiis 
\ l [Fields {Usage | 


PP48 {fhe next data record is requested 
{from the logical writer through an 
J{IPWSGLR call. 

l 
{On return, the record length.is saved 


{ LPWSGLR 
| 
{ 
{ 
| 

Jagain in register 4. { 
\ 
| 
| 
| 
| 


es) 
A oad 


oo 
tw 


{The address of the record passed by 


ge ee ee ee oe ea ee i a oo ee Oe oe ee ee ee Be ee oe oe oe 


jlogical writer is loaded in register 
{3. If a zero address was passed, 


ys] 
ey 
- 


{indicating that no record availiable, 

Ja link is made to punch the 

{buffer sews, e@wsszsseaeweta2aa2ee@2@an e232. oO BBR SE aoe.aewnsne >{PP60 
l { 

{On return, the physical data area andj 
{the physical work space are released {| 
jand return is made to the logical j 
[writer.... ewan. 20 220 enreenseaneaeea weeense >{PPOY 
l i 
JOtherwise, a branch is made to i 
[process the NeW LeECOLd.... 2222 ne eee >| PP10 


IPWSRLW 


| 

{ 

| 

( 

{ 

{ 

| 

{ 

{ 

| 

\ 

l 

\ 

I 

{ 

\ 

I 

{ 

{ 

l 

| 

{ 

{ 

{ { 

| {This routine handles the actual 

| |punching of punch records. 

| i 

{EP60 {On entry, register 5, supposed to 
| {point to the end of the free bufier 

| ispace, 1S compared to the virtual end 
{ jof data space address in the PWS. 

{ 4 

| {If equal, indicating an empty block, 
| {immediate return is made to the 

| [caller. 

I { 

| jOtherwise, register 1 is loaded with 
{ {the virtual CCB address as stored in 
{ {the PWS, to serve as the parameter |. 
| [cegister for the EXCP (SVC 0), which 
{ jis now issued. 

{ I 

j {On return, an IPW$wFC cail is issued 
{ {to have the punch task wait for I/0 
{ jcompletion. 

{ l 

| {Test for unrecoverable I/0 error. 

{ PLE SOy: DOAN CH sists iseisie wee ee Sree os waa ale 
| | 

{ {If not ignored errors, branch to... >| PP 64 
{ I I 
{PP62 jOtherwise, branch to restart from the| 

{ {broken CCW and restart I1/0......+.. >| PP60 


bo 
-_ 
<I> 


=] 
= 


IPWSWEC 


_— ee oe Oe oe oe Oe ee ee ee ee oe ee ee ee ee ee Oe ee oe ee ee oe ee ee 
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Labels [Chart PP: IPWS$$PP - Physical Punch {Modiried Data 4 Reg. {Calls 
{ j {Fields {Usage | 


Zs 
{ 


eee ee de de ed ee 


I 

PP64 {The CCW start address in the CCB is 
{now reset using the address saved in 
{the PWS, and register 6 is set to 
{point to the first CCW again. 
I 
{The data address in the first CCW is 
|Jreset to the real address of the end 
fof the data buffer space. 
I 
{Register 5 is reset to the virtual 


{ | CBCA (i PWSDCB) 
| 
{ 
I 
| 
| 
| 
{ 
| 
| 
jaddress of the end of the data buffer| 
| 
i 
i 
| 
d 
| 
| 
| 
| 


{ 
i 
| 
i 
|CWDA(IPWSDCW) 
| 


|space. 
| 
{A branch is now made back to the 
{caller. 


I 

{1/0 Error Handler 
| : 
PWRA(IPWSDPW) LPWSGAM 


IPWSWTR 


{ 

{ 

{ 

l 

I 

{ 

| 

| 

I 

I 

l 

| 

I 

{ 

{ 

\ 

{ 

{ 

{PP80 jissue message 1061D and wait. for 
\ {reply. 

{ \ | 

| {If reply is 'C', branch to...... wee DEPP8SB 
| {If reply is 'I', branch to......... >|PP62 
{ {lf cepiy is not 'R', branch from... >| PP80 
| I | 
I iGet virtual address of failing CCW. {| 
i 

l 

i 

\ 

{ 

i 

| 

I 

\ 

I 

| 

{ 

i 

| 

| 

{ 

I 

\ 

| 

i 

{ 

| 

I 

| 

l 

| 


——_— a ee ee ee ee ee 


PWML(iPWSDPW) 


{ { 
PP82 {Count data transfers not yet executed] 

jin CCw string. { 

i { 
PP84Y {If not NOP-CCwW bump CCw pointer, then| 

{branch to.....2-.., sues ead 3 awawaeaee D|PP8B2 

| \ 

{lf end of data condition, then branch] 

{ to. @2ewewewnreaaerteweaeane e822 o 8 2a eo 2eewer,aeagevewe2aews @ >4 PP 86 

| { 

{If no.card movement, then branch to >|PP86 

l l 

{Add one to counter. { 

{ i 
| PP86 {If not 2540 device, then branch to. >{PP87 

\ | 

JZ£ punch check add one: to count, { 

fotherwise branch to.... er re ee >{PP387 
| { | 
PP87 {Set up for restart the number of i 

{cards not punched. | 

{Branch toO.....-- newness adiseews sees ica oLPP6u 

| | 
PP88 {Set termination byte to 'U! | 

{(anrecoverable I/O error). Branch to| 

{termination routine. i 


IPwoSTR 
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CHART PR: IPWSSPR 


2 A a it a Oe 
{ IPWSS$PR - VSE/POWER Physical Reader i 
SSS ee ee 
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| Label 4 Routine \ 
F eee arrears SS eed 
{ PRCS { Entry Processing { 
j PRO8 { Initialization of physciai data area (PDA) i 
{ PR20 { Read Data Block Routine i 
{ PR30 { Deblocking Routine | 
{ PR60 | EOF/EOJ Processing 
} PR7O { Exit Processing | 
rs eee Caen ee ae Wee Oe a ean Se a ee 4 
c ; Fy an ee SP ge! Ee ee See Ae eer ge py ey ee ep er eg Ay Sa ee een re q 
{| Services Used | 
t SSS Se i aaa | 
{| Service { Macro | 
t a a cm Ce aaa RT | 
{| Task Management i IPws WFC i 
| { ITPwSWFi i 
ac aR aa Sa aS aa | 
{ Storage Management {| IPwSRLW ij 
{ | IPWSRSW { 
(Se Se ee ee 
| Message Service j IPwSGAM i 
a a a a a 
| Interfaces used i 
a a a a = a RRR ARR 4 

| Module | Macro | 
t Se ee ee 
{ IPWSSLR {| IPWSPLR - Put Logical. Record i 
| { IPWSOLI - Open Logical Intertace | 
| | IPwS$CLI - Close Logical interface i 
Dia a th Se a a he ee ee 
| Called By | 
SS ee ar Se ee ee ee ea 

{ Module | Description i 
eee See St el 
{ IPwSSCS { PSTART command processor | 
a a ett a hd a eS 
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PRO2 


PRO3 


PROY 


464 


iChart PR: IPWS$PR - Physical Reader 
{ 


{The first 16 bytes constitute the 
{section descriptor: 

\ 

|'PRCS release! 

{ 

{On entry, the tollowing register 
|contents are relevant: 


1: Byte 0 - number of buffers (01 
or 02) 

1: Byte 1 - device type card reader 
Bytes 2 and 3 - programmer 
logical unit card reader 

2: Byte 1 - device type 3540 reader 
Bytes 2 and 3 - programmer 
logical unit 3540 reader 


9: Physical reader base address 
10: Permanent area address 

11: TCB reader task 

13: Save area reader task. 


I 

{The entry parameters in register 1 
jare saved in register 6. 

|The entry parameters in register z 
{are saved in register 7. 

| 

{The logical reader interface is 
Jopened through an IPWSOLI call. 

I 

{Reserve work space for the reader PWS| 
{ (physical work space), to save device| 
jdependent data for a card reader. { 
{ 

{Addressability of PWS is set through 
{cegister 8. 

\ 

{If the reader task has not been 
{started with a.connected 3540 
jdiskette reader, (alternate diskette j| 
[PpLroOceSS), DrAaNCh COme seen ewe nsec aess >| PROS5 
\ i 
{Reserve work space for a 3540 PWS | 
| (physical work space), to save device| 
{dependent data,.for a 3540 diskette. | 

| 

{Save the virt address of the PWS in 
{the TCB. 

| 

[Save tae real address of the PWS in 
{the PWS. 

I 

{Save the 3540 PSTART parameters in 
{the PWS. 

l 

{Indicate in the TCB that a 3540 PWS 
jis present and that a alternate 
{diskette process has to be pertrormed 
| (LWER=X'01'). 
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{Modified Data 
jFields 


{IPWSDPA 
{IPWSDTC 
[IPWSDSV 
l 


TC3W (1PWSHDTC) 


PERA (1PWbDPwW) 


PEDI (IPwSDPw) 


LWER (IPWSDTC) 


a ee ee ee ee ee oe ee oe eee oe ee ee ee ee ee 


| Reg. 
[Usage 


to 
-_ 


es) 
Nw 


to 
i?) 


{R10 
{R11 


ms 
-~ 
Ww 


es] 
OV 


es) 
~~] 


es) 
[ee] 


Property of iBM 


jCalls 
dl 


iPw$OLI 


IPWSRSW 


LPwSRSW 
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- 
{Labels 


PROT 


PRO8 


ne en eee ee 


{Chart PR: IPWS$PR - Physical Reader 


{Device dependent data is saved in 
{PwWSs. 


{The device type is translated into a 
{displacement (in number of entries) 
jin the DVB (Device Control Block 
{Table) and multiplied by the entry 
{length to get the proper. byte 
{displacement in register 7. 

i 

{The record length ror the specified 
jcard reader is then moved from the 
|proper DVB to the PWS. 

{. 
{Register 6 is loaded with number of 

j buffers. 

1 

{PDA (Physical Data Area) Space is 
{reserved for card reader CCB, related 
{CCWs and data buifers. 

| 

{The PDA size is loaded from the 
{permanent area. 

| 

{The virtual and real address of the 
{CCB (first 16 bytes of PDA) is saved 
fin PWS, and a branch is made to 
fjinitialize the first buffer........ >, 
I 

|The. second PDA is reserved for CCB, 
{related CCWs, and data buffers. 

{ 

|The second PDA is loaded from the 
{permanent area. 

I 

{The virtual and real address of the 
{CCB (first 16 bytes of PDA) is saved 
jin PWS. 


Buffer Space Initialization: 


The first 16 bytes of the buffer work 
Space are nowW initialized as a card 
reader CCB: 


Wait for device end 

Command retry option. 

Programmer logical unit from PWS. 
EXCP real. 

Real address of first CCW is 
stored in CCB. 


eeeee 


oe eee ee ee a eee ee ee ee ee eee eee oe oe eee ee Oe ee ee oe ee ee oe ee 


—_— ee oe oe oe oe oe ee oe Be ee oe 


{The number of CCWs to be generated is{ 
jnmow calculated in register 5, taking | 
{into account remaining buffer space, | 
{record length, and CCW length. { 
{ \ 
{The number of CCWs to be generated is| 
jnow multiplied with the CCW length toj 
jobtain the displacement of the last {| 
{CCW from the beginning of the PDA. | 
\ I 
{This displacement is saved in PwsS. | 


{Modified Data 
{Fields 


| PWDI(IPWSDPw) 
{ 
l 
| PWDT (IPWSDPw) 
{| DVDT(LPW$$PR) 
{ 


PWRL(IPWSDPW) 


PBV1(IPWSDPH) 
PBR1(iPWSDPw) 


—_— oe ee Oe ee ee ee ee eee ei 


{ PVB2(IPWSDPW) 
| PVR2(IPwW$DPw) 
| 


IPWS$DCB 


—_ we = oe me 


| CBC1(IPWDCB) 
j|CBC2(1LPwSDCB) 
| CBLC (IPwsDCB) 
|CBLC (iPWSDCB) 
| CBCA (I PW$ DCB) 


PWLC(ITPWSDPW) 


{ Reg. {Calls 
iUsage j 
I 
| 
| 
i 
{ 
\ 
| 
{ 
R7 { 
{ 
1 
| 
i 
| 
R6 j 
i 
{ 
{IPWSR 
i 
| 
( 
i 
{ 
4 
{ 
| 
| 
i 
i 
{IPWSR 
l 
I 
l 
| 
i 
i 
| 
{ 
i 
{ 
| 
l 
d 
{ 
{ 
\ 
\ 
l 
{ 
] 
| 
\ 
{ 
R5 1 
\ 
| 
| 
| F 
{ 
| 
| 
| 
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[The CCW string is set up: 


| 
| 
{A CCW image is moved from the DVB | 
fentry to the PDA. | 
{ | 
iThe real data buffer address | 
Icontained in register 6 is stored in | 
{the CCW. { 
i | 
iRegister 4 is incremented with the | 
{data buffer length. { 
I { 
{Register 3 is incremented with the | 
(CCW length. | 
I { 
{The next CCW is set up. | 
{The last CCW is unchained. | 
{ | 
{lf double buffering was specified in | 
{PSTART command, branch to reserve and| 
{initialize the second PDA.......+«.. >|PRO7T 
\ 

{The tirst buffer pointers are 

jloaded in register 1 and register 2, 
fan SVC 0.is issued, and a branch is 
{made to wait for I/0 completion.... > 
i 


Ac) 
8] 
i) 
LS) 


ee ee ee ee ee ee ee 


I 
{The first buffer pointers are loaded 
{in registers 1 and 2. 

{ 
{1f double buffering was specified, j 
[branch to test for active buffer... >|{PR21 
JOtherwise, issue an SVC O for the { 
{first and only buffer, and branch to | 


bo 
@ 
is) 
Qu 
oO 
fe) 
ct 
@ 
ow 
k~ 
° 
OQ 
ae 
_— ee oe oe ee ee oe oe 


{wait for I/C completion......... waa PEPRZZ 


I ! 

Jit first buffer is not active, branchj| 

Jto make At ACTIVE... wren wnee nce waee PLPR2ZZ 
{Otherwise, registers 1 and 2 are 
{loaded with second buffer pointers. 
| 

{Make buffer pointed to by registers 
{1 and 2 active by saving registers 1 
fand 2 in PWS. 

{ 

{Wait for I/O completion of active 

| buffer. 

{Registers 0, 2, 3, and 6 are 
jinitialized for the deblock routine: 


— 


Virtual address first data buffer 
Real address first CCW 

keal address CCW last executed 
Real address last CCW in string 


Oh eS 


{lf single buffering, braach to get 
(record Length... sess ascassnsvceces 
{lf unit exception occurred, branch to 
{get record length.... eietéaxe Slee 2 See ate oo 
{Otherwise, issue an SVC 0 for the 
{inactive buffer. 


ee i ee ee ee ee ee ee oe oe 


PR28 
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IPwWSDCW 


CWDA (iPW$DCH) 


CWFL(iPWSDCW) 


PBV1(IPWSDP A) 
PBR1(IPWSDPh) 


PBV1(iPw%DPw) 
PBR1(iPWSDPW) 


PWDB(IPWS$DPU) 


PWVE(IPWSDPW) 


—__— ee oe oe Oe oe oe oe ie ee ee ek ee ee ee ee ee ee ee ee oo ee 


|PBV2(IPWSDPW) 
| PBR2(IPWSDPW) 
1 

| PWVE(IPWSDPW) 
| PWRE(IPWS DPW) 


PWDB(1PWSDPW) 


{CBSD(IPws DCB) 


fe te ee ee ee ie ee oe ee 


a de fo oe oe a oe ee ee ei ie ee te ee ee ieee i eee ee ee ee ee ee ee ee ee ee ee oe ee ee ee ee oe ee ee 
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{ i | Fields {Usage | 


[PR28 {Get record length in register 1, and 
jenter the deblock routine (PR30) at 
PU Bs ous ees a aanane We Sete oda See 


PWRL(LPWSCDPw) 


I 
| i 
{ { 
l \ 
l | 
| { { 
{PR30 {Register 0 (virtual address data ij 
| {crecord) and register 1 (record | 
| {length) are restored from task save | 
| jarea on return from logical reader. | 
{ { { 
| {Virtual address data record (register| 
| 10) and real address associated CCw { 
{ {(cegister 2) are incremented. 
| | ( 
{PR4O {(This entry point is taken whenever af 
{ {new data block has been read in.) { 
| l i 
| {Depending on various conditions, a | 
| [record is passed to the logical | 
| {reader or other action is taken. j 
| { I 
| {If the record was not the last one { 
{ {read, branch to pass to the iogical {| 
| [PEA MCT weno ace Se Sw, www eel ole ieite watesie, > | 
\ I l 
{ jIf last CCW executed was the last CCW 
{ jin the string, branch to read next | 
| J block..... aa cise ae fete be Me aa ite eS wee > PT PRZ0 
| {if unit exception is detected, branchj 
| {to indicate unit exception......... > |PR4Z 
( I | 
| iif ignored error, branch to read the | 
| Jnext block....... ai erd ab ete. Svesiosa"ace-Siaterw > [FPRZO 
I l | 
| (Otherwise, pass the last record.... >{PR50 
| l 1 
{PR42 {iz unit exception and device not i 
{ 12560, branch to indicate unit { 
| {exception to logical reader........ >|PR45 
| | | 
i {lf device 2560, issue an IPwSPLR | IPwoPLR 
| {call to pass last record and issue 2 | 
| {dummy reads to empty the card path. { 
\ | { 
| {Reset DEVICE END switch. | TCG2(LPwSDTC) 
i { | 
{PR45 { (Entered if unit exception has been {| 
| [| detected.) j 
| { { 
| {Register 1 (record length) is set to | 
{ {0 to signal unit exception to the | 
| { 


{logical reader. 
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| | | Fields {Usage | 

| ia mcs ha ca a a a a a IE <0 ee pe ee ee ee re re ee ee ee ee ee ee ee ee ee om ee ee a a De we ee See ew -— ewe we 
[PR50 {Control is passed to the logical : 
jreader through an IPWSPLR call. 

| 5 

{The return code posted in register 1 
{by the logical reader is tested, and 
Jon normal (nonzero) return the next 
{cecord is passed to the logical 
jreader.......- Se ee a eyd Se ele sai tates > 


° 
I 


bo 
= 


PR30 
EOF/EQS Exit 


This routine is entered in case of: 


Junexpected unit exception, or 
{unit exception on EOJ. 
I 

PR60 {Device dependent parameters in PWS 
{ (device type and programmer logical 
junit) are saved in register 6. 
| 
{Register 7 is set to binary zero to 
{indicate that the reader task has 
{been started without a connected 3540 
j{diskette. { 
{ { 
{if the task has not been started with{| 
Ja connected 3540 diskette, branch to | 
|crelease the work areaS........2-2222. >|PRO2Z 
| 
jOtherwise, save the device dependent 
Jparameters (device type and 
{programmer logical unit), which were 
jsaved in the PWS for the diskette 
{device, in register 7. 


bs] 
fon) 


bo 
~ 


l 
i 
{ 
\ 
{ 
{ 
l 
| 
| 
| 
i 
| 
I 
{ 
l 
| 
| 
i 
i 
l 
| 
| 


Ls) 
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I 
PR62 {The PDA(s) is (are) released. IPwSRLW 


{ 
{ 
l 
| 
i 
\ 
\ 
{ I 
{Register 1 is loaded with Pws j 
| 
1 
| 
I 
| 
| 
| 


to 
= 


LPWSRLW 
Jaddress, and PWS is released. 
| 
{According to different conditions, 
{branches are made to the appropriate 
{coutine. 

1 
{If unit exception occurred, but not 
jat EOJ, branch to indicate unexpected | 
Junit CxCeption....esswwseerceesecese >| PRBS 
\ i 
{it device readied in the meantime, | 
{branch to....... tsie\ eve wie. ete, oie a ere wees >|PRT7O 
l { 

PR64 {The physical rdr PWS is released and | 
{indicated. R8 is set to zero. { 
{ | 
{Check If 3540 PWS present, if not...>|PR66 
jOtherwise the PWS will be released | 
jand indicated. TCB field set to zero. | 
| | 

PR66 {Lf unit exception and EQJ, message | 
{70341 is issued. | 
{Otherwise check for device end...... >| 


IPWSRLW 


LIPWSRLW 
TC3W 


IPWSGAM 
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i | ; ij Fields [Usage j | 

 oatetheteientesnestenteabetanteteteter a as Sai ces mca suw sa e/a ce mn cer is’ rescission Ss ea a, ia nena cus Sass! Sess ca mn tes sb cs (a(n mm ns ca a i se cin ate Sad "aga. me sy 

{PR70 {The logical reader interface is LiPwS$CLi 
{closed. 


I 

{If device readied in the meantime, 
PDE ANCH “CO sic %s 6 soos 00s ee eiae id aa She oe 
\ 

{An IPWSWFI cali iS issued to wait for 
ja possible card reader inaterrupt. 

i 

{On card reader interrupt, indicate a 
{new job stream in the card reader. 

l 

{If no STOP condition has been posted 
fin the TCB, a branch is made to open 
jthe interface again................ 
I 

{Using register 12 as a work register, | 
{the address of the task terminator is| 
{stored in the TCB, register 9 is 
{loaded with the terminator base 
jaddress, and a branch is made to 
Jterminate the task. 

l 

| (This entry is taken in case of an 
{unexpected unit exception.) 

1 

{If device readied in the meantime, 
{branch {2 © Ee Ee @e#eesewstwsess wes8seeewevst > 
I 

{Message 1Q35A is issued. 

{lf device readied in the meantime, 
(branch tO.wnsawsseseares i eee nals 
{Wait for card reader interrupt. 

l 

{On card reader interrupt, if a STOP 
{condition has been posted in the 
~|TCB, a branch is made to detach the 
[CaS Kio Scatwwy aS e Siveeevdve Seva vb ter aie Si awea ms ofacte's 
{ 

{Otherwise, branch to initialize work | 
{space again..... ieee wid aie Geer Sbieneew. = > TP ROS 
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04} Entry Processing 


Set up nodal aessage record (NAR) 


fe Process Pnet Display. 


If print status has not been 
cancelled. 


Inform operator tnat print status report 
is incoaplete. 


07) Exit Processing 
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OUTPUT 











PS workarea 


Reserve and initialize work area 


If CTLSPOOL and queve display 

- open I/F to log. reader ‘ 

- pass anitial record to logical 
reader 

- build dataset header record 

~ pass record to Logical reader 
- update gueue recofd 


Set up CCB and CCW in workarea if 
status report should go to line 
printer : . 

- advance to next page on printer 


Obtain SYSLOG device type 


If not Pdisplay PHET Command. 


Etim] 


Pen 
<{ eeecee > 


c—/ 





Proce PNET Display. | 
e ane =P PSi1.2 
co. 05 
4 [ 


Process Queue Display. 


1.1 


Ee 07 
7I 


Advance to poze. page if_ output of 
report was destine for loca 
printer. 


/——".. 
< eeesee > 
/ Process Queue Dasp ears | 
| } = ! 


If output of report was spooled to 
dask as LST queue entry: : 

- indicate end of report 

~- close logical interface. 


Unassign programaer logical unit, if 
applicable. 


Post processing coaplete, if an BCB 


was supplied by requestor. 
Release workarea and detach task. | 


i 
Return to VSB/POWER task selectioneee 
e 
VBet 
+f 


ety esr nN rs ee 
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IPW$SPS - Print Status 


NOTES { MODULE } LABEL | REF NOTES § HODULE | LABEL { REF 













wa Workspace is acquired and SESW ; $OLP 
initialized; : If the status report has been SGAH 
~ storage deseriptor : cancelled by the operator by means 
- the argument list, built py of Fhe PCANCEL command, ressage 
the comwmaid processor is copied W6I STATUS REPORT ChuC&LED BY 
into tne workarea OPERATOR is iussed. 
1B If the FE ARE status report is SOLI If the output is of the print 
: supposed to be spooled to disk status reper’ is spooled to. 
a ST queue entry. the disk as LSP queve entry which 
interfa to the logical reader is the case when a CTLSBOOL is 
is opened. issued b ? CFOss partition 
: a user, thi ogical reader is 
1B A sk to channel one is issued SPLE informed to add the qpeue entry 
in order to adwance to the next being built to the LST queue. 
page. It also causes that the ; : 
ogical reader allocates a new finally the logical interface 
gugue entry for the LST entry is closed. 
@ing built. P . 
: If a prograarger logical unit 
1B The queue record, built by the was aSsSigned to the printer 
pog ical reader, 1S set up with destined for the output of the 
folloving values: SOpOEe it is now unassigned, 
- uobnarge upless the logical unit is 
a ST ygueue ad SYSLST. 
- stac ing hnurgber of pages (1) . 
~ device type (dumry) The workarea is released and 
2st the storage is returned to the 
Additionally the SPL (spool VSE/POWER storage pool. 
paraaeter list) is set up wath . 
Snformaation from the LST queue The task is removed from the 
entry: task selection list. 
- jobname and nuaber 
4c If the output of the print | 
status report is destined for a 
printer, which has been already 
assigned to py the PDISPLAY 
Ccogrgand processor a CC8 and 
write-CCW is set up in the work 
area. 
A sk ip to channel one is issued 
an order to advance to the next 
page on the printer. 
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Arge list 


The reader , 
xmit queue 1S scanned an 
queue set which is elagiel 
extracted and displayed. 


PS workarea 


PSWCPTR 
PSWCLLC 
















PSWDJOB 
PswDJW 
PSWDFLG 
PSWDBIN 
PSWDDEC 
PSWDGJL 
PSWDGIN 
PSWDTOID 
PSWDTNS 
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NOTES 


punch 


list , 
and 


a a an ee 


and (on 


eac 
e is 


The disk management block is 


reserved for 
the queue scanning. 


he duration of 


The first in set queue record 
queue | 


is read an the auxiliar 
record area located in 
manhagemeat block (DMS). 


he disk 


The queue record jast read in 


is examined if 
to the displayed. 
The argument 
prepared by the PDISPLA 


is jobname and number 
class . 
RJE user id 


target node name. 


ist has been 


Y 


i 
Coakanu processor. Argument can | 
e: 
local or remote destination | 


ee ee 


-----3[03] 
04 


PROCESS 


Caller 


of en 


A. If class chain is empty. 


B. Reserve disk management block. 


C.}Convert relative disk address to 
apsolute address 


D. Read in first-in-set queue record. 


E-fInspect queue record 
FP.jDasplay Queue set Saree ene 
: PS-1.1.1 


G. Address next queue set in class 
if more exists. 


chain, 


Hd. Release disk sana 
and enter task se 


= 


} MODULE {| LABEL 





it is elagible 
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Set td pointer to class list and nusber 
ries to be processed. 


Process each entry in the class table, 
unless the status report is cancelled. 


If more entries are to be processed ase 02 
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WBROUT 
WHRTIPE 

WARFLAG 
NARA SG 
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ement biock (DSB) 
ection. 


Return to Callereee 
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Le EE Ge a ME Se AE 


NOTES } SODULE | LABEL jf REF 
Queue sets belong ing to a class j i 

are chained via the *QCQm® 

field. This field contains the 

absolute disk address of the 

next gueve set in chain. Por 

the last qveuc set, this field 


contains Dinary zeros. 

The disk managerent block is $RLE 
released. 

Task selection is forced to $uFD 


give other task with a Bayaet 
priority than tnis ome an 
waiting for the DMs, the chance 
to get the disk sanagenent 
block. 
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IPW$SPS ~ Display Queue set 


ISPOT 


Queue record 





Property of iBM 


PROCESS 


-~ set Ss 


number of card 
copies still t 


[zts- 
eee Caller 
7 


om 
for} Display header line, if required 


Set up first display line 


cone, | A. Jopnarge, jobnumper, 
dasposi€ ion class an 
id. 


B. If queue set being processed: 
as. dispositi 

- set up system id of system 
processing queue se 


Locate writer ye TCB and calculate 
o be 


written. 





———=—> C. "from® remote aid and if applicable 
} *"to® remote id. 


reamieneietataned aes D. Nuaber of copies and forms id, if 


3800 printer 


fe Prepare second display line. 


r 

t 

yh 

EPH rates | 
tion 

ges, number of 


ist or pun gueue set. 
BE. Number of cards/pages. 


Weite first display line. 


A. Set up flash id and burst 
information, af applicable. 


B. Calculate total nuaper of copies, if 


C. set up compcation table name, if 
destined for remote. 


fos] Write second display lane, if 
applicable. 





f ROTES | SODULE } LABEL | REP I 


2B 


2B 





Relevant information of the queue 
set being read in are displayed in 
the first and if applicaple a 
second aisplay line. In detail, 
that is: 

- jopname and nurber 

priority, disposition and class 
hugbder oO carder redes 

nuaber of copies {LST|PUN only} 
foras-id (LST|PUN only) 

from / to remote id 

target systen 

compaction table nare 

flaSh id, burst info and cupy 
groupings (3800 printer only . 


A header is printed on top of each 
ance dispray. 

he header 1S already set up in 
the display area. 


AN *** js set as disposition to 
indicate that the queue set is 
just being processed. 


If the queue set is being . 
hysical writer 


rocessed By ap 
asK (LST=PUN), the TCB of that 
task as located, because it 


contains in the account 
workarea the gost valid, stail 
to do, nuaber of copies as well 
as number of payes or cards, 
respectively. 


! 
| 


ae 


: 
| 
| 
| 
| 
| 





| 
| | 


Bxit, return to | 
e 


2D 


2D 


a 


4c 


pe 


NOTES 


In the case a physical writer 
task has been stopped prior 
wath the restart option, the 
remaining, still to do, number 
of copies is taken. 


If the queue set 1s a LST entry 
and the output is destined for 
a 3800 printer, the copy value 
is preceeded by an '**, to 
indicate that it represents a 
transmission count rather than 
the total nuaber of copies. 
Note: the total number of : 
copies 1S displayed in the znd 
display line. 


The first display line is written 
using the *4SG*® Subroutane, | 
additionally a fiag is set which 
preveats that the header line is 
issued again. 


The flash as well as _the burst 
id are only displayed if 
present. 


If the queue set 1s a LST entry 

and the output is destined for 
a remote terminal and a 
compaction table nase was 
specified, the name is 

¢rspiayes in the 2nd dasplay 
ine. 
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WSRASG 


PSHFLAG1 


1 PS workarea 


ae 


a | 


|} SODGLE | LABEL 


1 
| 








Cnart PS 





| 
| 
| 
| 
| 
| 
| 
| 
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IPpw$$PS - Process PNET Display 
IsPurT PROCESS ourpur 








' 
| 
! 


Set up pointers to MDT. 


Is not the own Node to ne displayed.jeee jd 


pee #900 0 8° o8 
7 
' 
‘ 
' 
' 
i 
v 
° 
Ss 


ton 00 00 0000 90 00 cone se eeny 
§ 
| free 08 0 cece cee once Seeger 
L.. 20 Fe 80 Or £0 Oe 0968 0908 OF FE Fe OF ey ee oF: 
SS PT TE TD CI E-S LT Se SS PAE SE YC I I TS A NTS AS ET 


ono A. Get address of own entry. 





oe? Is not a ecified Node to be 
103) displayed. 


A. Get address of this EZntry. 


S nateaiaaae If are all Nodes to be displayed. 





PS Workarea | 
ArgeLast fh 3 bee serene A. Is it not a bink Type 
: connection. 
PSWPFLG1 aaeeaki: 
PSWDPPTR eS eee Display the HDT Entry 
Cossm.Area | /—. 
F < eeeeee > 
PSWPLG2 eeo-------- —/ |————_——__ 
[pswrtc2 } ~~ f Display NDT Batry 
LS Py | S-4.2.1 
F==/3 [oe] 
: Address next Entry 18 NDT eee > 
Pi cow 
i----- } A. If end of Table | and no Entry 
found, issue ages 
1RB7L” sorninG “0 ISPLAY 


Exit, return to Callereee 
e 
ye 


NOTES § MODULE | LABEL { REP 








NOTES | SODULE {| LABEL { AEP 








2 elegerte PSWPFLG1 contains: 4 Flagbyte PSWPFLG1 contains: 1 
x"80* if the own Node has to ne all Nodes are to be | 
displayed. displayed. 
3 Flagpyte PSWPPLG? contains: | aA Teed NDTF1 contains: 
specified Node has to be the Node is a Link 
displayed. | Connect ion. 
3a Address already BeoEsd in 7a SGA 
Argumentlist by C | | 
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IPW$$PS - Display NDT Entry 














INPUT PROCESS OUTPUT 
{One Entry in the NOT ee aessage Outputarea 
e 
eoe >From Caller 
—,/ 
Display header line, if required an set 
up First display lane 
[uptwa | rr ae Move Nodename from NDT into Message DPNODID 
Areae 
ia 


B. Bove Constant *LINK* into ROUTE 
Field 


WDTPR ~-------- 


Satta tenlenteteate C. If Prime Route not invalid. 


D. Move Constant *INVALID into 
ROUTET Pield 





tree £. sory sane of Routel Node into ROUTE1 


Pie 


O04} Validate Route2 Pield. 


A. If Alternate Route not invalid. 


Pee O Oe 00 eH er He 08 an 0880500 898 FO Oe 9 OE Oe OF OF Ee ORO) PE Oe REED Od Ee oD On HF 88 Od ee 


ROUTE2 Pield. 





| 
Validate Route? Pield. 
ee eee > A. If it is no Lank Connection. , 
> 


t 
| Be Hove Constant *INVALID into 
| 


| 


A. If no Applid specified. feee >[06 1 
i_,/} — 


peeene 


le Validate Applid Field. 
I 


C. Move Name of Alternate Route into [DpRour2 ! 
ROUTE2 Pield. Se ae yaa ae I 


B. Move Applid out of NDT into 
asg.Area. 


NDTAP wernt ann ern ne >{07] Get Authorization for thas Node and move 
i 





2] 


fost If originator of Coamand was not eee > 
i— + Central Op. 


J 


/ 


| 
| 





| c 
Bhaed = A 

| 7 $ 09} Move PASSWORD out of Ndt into Asg.Area. | > {DPPSAD 
: {10} Write first display line. | 

PSLIN : 


PSINV 


PSAUNET | 
! 
| 


wd 


ot 


“7 





PSAU JOB 


| 


[rorr? Pee 
| eases 
=== 5 Move BUPPER SIZE from NDT ne [pppsize | 
| ar) pesca 
| 
en | 
| | 
| 
| Exit, return to Callerees] | | 
} 
| | 
| t | 
| 








first and scents a second 
display Line. a get ail, that is: 
- Name of the Nod 

- Name of the ROUTE Node 

~ Name of the kOUTE2 Node 

~ Authorization 

- Buffer Size 

~ Application Ia 

~- Password (if originator was 

Local Op.) 


1 A header is pranted on top of the 
display. 
The neader is already set up an | 


invalid. 
NDTSR contains x*U0* if invalid. 


> riapeyte NDTAF indicates which 
authorization is generated for 
this Node.It can be =: 

x*PO*® Systea Authorization. 
x*508 Net Authorization. 
x*10* Job Authorization. 
x*00* Nojob Anthorization. 


| NOTES ; | MUDULE | LABEL j REP fl NOTES | AODULE | LABEL | KEP I 
Relevant information of the NDT } 3A wag yorre contains x*8O* if it ! I 
first (at are displayed in the / | |: a *LINK*. | 
if 
| 











the display area. 10 The sey Mab ead See | will be used to 


to write the Display Line. 


ee ee re ee ee 


3c NDTPR contains x*00* if 
| 








a nn ee lt 
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CHART RQ: _ _IPWSSRO 

Gp re eS Ore oe ae ak es he ee te an a al ig tg Pade ne woe oe a oe Ce ee eS oe A Be ee OE be a oe Pe ee vee 
{| IPWS$RQ - Reserve Queue Record | 
t eS ee ee 
{| Label | Routine | 
F a, i a Ra a a OR | 
{ RQOO | Function Entry | 
{ RQO4 { Test for Record Space | 
| RQ20 { Reserve Queue Record i 
| RQ4O { Function Exit { 
eee ee! aR Se NO es Od cy On RO ENN RTA ae Se Ee en ee Pe, ae Se OES 
Gone Cee CR oS ta ee ey ae et a ee ee ee a a ey ee Sat Ide ee oN ee aS Age Se eis he ped ae Oe aan | 
{ Services Used | 
, re SS ee ee eel 
{ Service { Macro i 

ee. Sa Sci Sa a aE 4 
{ Task Management | IPWSWFC { 
SS eee eee ee eee ad 
| Resource Management | IPwdRLR \ 
{ | IPWSRSR i 
Sam AAO aa aE 
{ Storage. Management { IPWSRSW | 
SS = SS ee ee 
| Message Service | LEWSGAM / 
t Samoan a ee ee eed 
| Disk / Tape Service { ILPwSCTT i 
{ | IPWSRDC i 
{ { IPwShWTOQ i 
\ | IPWSWTT i 
t aR RRRERERERE SEREnnaE — Se Ee ee ee 
{ Timer Service { IPwSRDC i 
L ct aie ise ea 6 le egies nas Ss ees ci eee pa cpa stl i la i i et a olen tia 
Coe ee a Sire pee ee en Pe ee we SP a a eg I eS Se eT ee gy neta Se a fe tay et oe gle tt Se Oe yal 
{ Called by { 
F wakiaae ee a ea aE AC a REI | 
| Module | Description | 
See eS ee er 
| IPWSSLR {| Logical Reader. | 
{ IPWSSNR | Network Receiver | 
‘| IPWSSOF { Offload Queues | 
| IPWSS$xXW { Execution Writer i 
| EERE pea RN I EL LTT PONS EE Me Le Note rae eRe mere a ee Ee a a eee a eS EL LE ee eee 
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Se en 


Labels |jChart RQ: IPWS$RQ - Reserve Queue Record |Modified Data {| Reg. jCalls 
I { {Fields [Usage 4 


i 


Ce ee ee ee 


{ 
RQSD {The first 16 bytes constitute the 
{section descriptor: 
{ 
i"ROQCS release! 
{ 
RQOO {Function Entry 
{ 
{Save caller registers 14 through 9 
{inclusive. 
{Set function track byte to 'R'. 


I 
{Reserve queue record space (if not 


IPWSDSV 


| i { i 

i | { i 

I | i | 

I l | d 

{ \ | 1 

I I i 1 

{ | i | 

| { l 

{ | | { 

{ | i i 

i | I \ 

t | i | 

{ javailable). | i {| TPWSRSW 
| {Save addresses. | (TCQA (I PWSDTC) | " 

| | \ {| TCQV(IPW$DTC) { { 

§ROQO2 [lf no tape spooling, branch to......>|RQO04 | ] | 

| | | 1 i | 

{ jSet first-in-set switch | J QRFS (I Pwd DQR) | | 

1 { I I i { 

j {Write initial tapemark. | | { {LPwsCTT 
{ | { { j | 

{ {Write the record to tape (queue | { jIPwSwtt 
i {record area). | | | 

| | Bxit we@eseanaeaeweaesnaaeae@eweqegaesee3u4auawerwrtwsens eeaeaeeeoeeteaen > j RQ 4 4 | j | 

{ { — I | i | 

fRQO04 [Set addressability disk management { { j i 

j |biock (DMB). i {RO j 

j [Lock DMB. | { { {IPwSRSR 
I | | i i { 

| {Examine Free List Pointer in Master Record | j i 

I | | | 1 | 

{RQOS {if no queue record avaiiable: | { j | 

j | | | | l 

i {Issue message 10381 NO DASD SPACE | | { jLPWSGAM 
{ {AVAILABLE | | 4 | 

i | I 1 | ] 

{RQ10 {Unpost ECB in DMB. j {QCEB(LPWSDQC) j | 

i { { I i { 

{ {If save account task insert cancel | { i j 

{ {code ‘cf and call terminator routine {| {TCTT(LIPWSDTC) i { 

| { | { i \ 

{ROQV2 {Unlock DMB. | i i J} IPWSRLR 
{ I i | 4 | 

| {Wait for posting of ECB in DMB. | { | {iPwSwWwFC 
i { | | i { 

| {Lock DMB. j H j jl PwdRSR 
| \ | { | I 

{ {Examine free list pointer. If zero, | | | | 

{ | DEADCH. 40° DOCLlV soe wa Ga:5 menenscsccece>? | ROD | i i 

Wns we te ae ne a em ee ee a ee ee | 
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ee a ne re me we ee ee ee ee we we wee me we wee re ew we we ws we ee ae ee we ee ee ww we we we we ee me we ee we ee ee oe ae we ae ee re oe ee ee ee ee ee we ee ee ee a ee ee ie ee 


Labels jChart RQ: IPWS$RQ - Reserve Queue Record 


ce cece nee wee ee re ae re ee ee ee ee ee am em ee ee ee ee wee ree ee ee ar nee me ee ee ee ee we ee we we ee ewe we ee eee we ae ee wee we ee ee ee ee ee ae we wee ee we re ee ne eee re ee ie ee ee we ee ee ee a 


Read first free queue record from set| 

| 

{ii queue-record traps are active and | 
{the record is not fiagged as a free | 
{record, force a program check.......>|RQSD 
{ 

{Update first 
jnext record. 
\ 

{Update queue 
{ 

{set first-in-set switch 

[set next-in-set pointer zero 

{set forward chain pointer zero 

{set previous chain pointer to queue 
{record itself 

1 

{Set own system-id 

\ 

{Write record back to file 

{ 

{Get current time 

{Set as current start and stop time 
I 

{Update record counters in DMB 

| (statistical informaticn). 


free queue record to 


record field: 


*« Decrement number of queue records 
available 
Maximum number of records in use. 
Number of tracks (1 for CKD or 
unit of transfer for FEM) 


— oe oe oe oe 
€ @ 


RQ4QO {Function Exit 
l 

{If it is not save-account task do not} 
JuNLOCK DMB»... cw acca ma crwsseccseaseser {ROY 
{Unlock DMB. | 
{Set function track indicator to O | 
{({open for output). 

{Restore registers and return to 
jcailer. 


— a eo ae ee ee ee ee ee ee ee ee oe ee ee eee ee Oe oe Oe ae oe ee ae oe oe 


RQ4Y 


a atm me re cee ee ee ee ee ee nee re nee me me ere an ee ee cw ee ce ee mee ee nee ne wee we ee ee ee ee ee ee we ee ee ee ae ae ee ce ee es ee ee ee cae eee ee ee ee ee ee ae ee ee we ee i ee oe ee, 


{Moditied Data 
{Fields 


{QCQW(1PWSDOC) 
{ 


I 
i 
l 
i 
|MROF (i Pw DQC) 
i 
{ 
| 
i 


| ORFS (IPW$DQR) 
| ORNS (LPw$DQR) 
{ QROP(IPWSDQR) 
| ORON(IPwW$DOQR) 
l 
| 
{QRSY (IPWSDOR) 
| 
I 
| 
{ QRST(IPWSDQR) 
| QRET (iPwW»DQR) 
| 


NRQF (LPWSDQC) 


NRQOM(IPWSDQC) 
QRNT(iPWSDQR) 


TCTF (1 PWSDTC) 


- & 2 oe Oe ee Oe Oo oe oe Oe 8 ee oe oe oe oe 


Reg. {Calls 
Usage | 

| 

! 

{LIPwosR 

i 

\ 

i 

| 

| 

| 

| 

| 

t 

H 

i 

| 

i 

( 

! 

| 

4 

{ 

{ IPWSW 

i 

| LPWSR 

i 

il 

| 

| 

i 

{ 

i 

| 

| 

| 

i 

| 

i 

1 

| 

J IPwWSR 

| 

| 
R14-R9 | 

| 
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IPwWSSRY 
Pile-Recovery 
ae 


RY-1.0 


| | 
jQueue-file [account “fate l 
‘coaes recovery 
I RY-1.1] RY-1.22 
Batry | Pormat : 
processing | account file 
| RY-1.1.1{ i RY-1.2.1 
_ | ed 
Repair 


class chains 


| 
be 
| 
2 
| | R¥-1.1.2 
| 

| 

build 

free chain 


i 


aY-1.1.3| 


i 


Exit 
processing 





RY-1.14.4 


| 


Update 
disk address 


-————— 








RY¥-1.7.5 
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File-Recovery Processing 
INPUT PROCESS ouTPpuT 






From Caller 





A branch 2 ep atey I 
point (x* 
Sndycates oe 






for} Lf queve-file recovery is requested: 


foccvcee > 
ny / : 
Queue file recovery 


| RY-1-1} 


If account-file recovery is requested: 


[ecseaee > 


bGconere” branch 





to eGhtry po 
(x bint indicates 
account-f i1 


recovery 
















account file recovery 
RY-1.2 





Queue-file-recovery processing 
INPUT PROCESS OUTPUT 





Dat 














© 
ee | 
device anfo lees Frogs Mainline i 
focen’ —/ 
eee joa} Eatry processing } 
jQcuH { 2 
ay-1.4.3| 
aux queue rec] +c---7------- —; | > | 
eee > |OzitRepairc class 
ees) 3 esd chedas eee 
3 RY¥-1.1.2 
master recor: Peto e a master record 
MRUC : sauc 
| tase capita | b----- 03 baat free | SRNR AEAEEAEED { 
{ciass taple 7 eae chain MRR | 
isscr tI RY-1.1.3 eae ene { 
ssctT yes NROQP 
| Caner e eee ne 
NOH 
ou} fexat process ang _—_—__oooo 
Class tapie 
| | RY-1.1. =4}| —__ 
{ | Return to callereese 
e 
reras 
og 
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Recovery program entry processing 
INPUT 


TCs : | 
Teyv 


Regaster 0 
i | 
oes 
last 


i 
| 
| 
| 
as : | 
sysid 1 | : 
sysid < Lean me mnnm=> 13 
| 
| 


a a a en ee ren rc ee 


NOTES 


1 The cailer®*s registeis are saved 
in our own save area, addressed by 
register 13. ; 

Register 0 contains the adaress 

of a parameter list containing the 
one~pyte S¥SIDs of the systeasS 
Which abnormally terminated the { 
last tame. : : 

This has peen recognized eitner by 
the timer task or at 

inataalLaization tine. 


The function-track byte in the 
task contcol plock is set to *¥* 
to indicate ygueue-file recovery in 
progress. 


a at generar Schepers SNS RS RSS eas me 


i tc retecimrcll 


PROCESS 


§ MODULE | LAB&L 







Mainline 


save caller's registers 


Reserve work space for queue record 


Inform operator that queue-file recovery 
is 1n progress 


Clear class table 


| Queue record <4 | 
H ae | 
Return to Mainlineeee 
3 DAB 
= | SECT ETE | 
-/ raed jclass-taple} 
Vv ? 


aa 2 
















j{ REF NOTES | SODO0LB | LABEL 3} REF 
RYO0O0O0 | SSAV 1 2 If.no queue space is currently lea 
neld by the tasx, work space is 
reserved and the real / virtual 
addresses are saved in the TCB 
3 The operator is inforaed that $coan 


qieeete recovery is being done. 
essa 


ge 
| We QUEUE FILS HECOVERY IN | 
| PROGRESS 
In a shared-spooling environment, 
the message is extended by the 
SYSIDs of the system for which f 
it recovery is being perforred 
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Repair class-chain 
























INPUT PROCESS OUTPUT 
| 4Cb (Q-file) fel 
ew, ; 
| pe cent - ee Mainline 
information _—, : 
| alt 
| pees Ff one ee enn nae >[04) Address znd gueue record faj— 
MCHI [s]}—> hh 
. class tabie 
aCDT ose | [22] read queue record eee > ______?} |} 
- 4 sscT 
= > SSID 
Scadaten‘6 } If last queue record 
g iste | foo- ono -e 
[tea : fo3] If queue record is an *x® state, reset 
bperasetur £13 3 flag and rewrite gueuve record 
; i 3 
: If not first-in-set gueuve record coe” [oo } 
| [p= "309 ] 
: mot >105{ If autostart entry or incomplete eee >fo9 | 
:| : queue sets, delete entire set / 
2 3 t 
| s----->}06| Check next and previous qgueue-set 
: 3 ‘—3 pointers 
: 3 A. cead in queue record addressed by { 
$ : next-in-Chain pointer and check if 
3 | F4 previous-in-chain from this quene 
3 3 record poonte to queue recor 
: 3 currently processed 
z] : B. read in queue record addressed by | 
a : previous~in-class chain pointer and 
2 : check if next~in-class chain points 
.. : to gueue record currentiy protessed | 
: : eS ace >}O7{ If first or last queue set in class 
S 7 07} construct Glass-table entry : = H 
2 08} Save current job nugper, when nuaber is => ta 
aetna —s fou] higher than olf one ° = fal | 
:{5}—> [os] Update disk ad@ress to address next 
SsSeses So | queue record i 
as 
< eveesee > i 
c—/ 
| Update disk address | ! 
RY-1.13.5 
yu} Branch back to wee Sfo2 } | 
a sac hea | | 
F | 
if 7a} Update current job nuasaber |> fa] | | 
! 
| Return to Mainlaneeee | | 
2 
| [7 | 
-/ 
| a | | 
| ! 
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Repair class-chain 


| NOTES { MODULE {| LABEL | REF tf  wores . § MODULE | LABEL | REP | 


Tne seconi queue record in the 
fale is addressed. 

This 1s done by using the lower 

2 3mite of the extent and Spec if ing 
kec=2 for C~K-D oc setting the 
Ectetare block nugber to One for 


The seek address has following 
format: : 

SBBCCBHR for C-K-D or 

MOKBRReHR for FBA 


The first queue record on the 
queue file is reserved for 
internal purposes 


The queue record is read in the 
area addressed by "TCOV® 


queue cecord identifier *p* 


Shared or non-shared) all queue 
records which are marked aS being 
in execution state ( 

non-Shared), or only the yueue 
records which are being processed 
by system(s) aonormally terrainated 
last time as andicated in the 
Bereeeterl ast passed py the 
caller, are reset. 


| 
| 


1 

_, 
3 Depending on the mode (either 
3 


The execution flag is reset and 
the gueue record is re-#ritten 


| 





shdimienatammtamemnenat 





$RDQ 


j 





WOTES 


Eb queue records which are not 
first-in-set queue records. 


An incomplete gueue set is 
recognized wheh the previous 

ueue-set pointer addresses the 

irst-in-set gueue record itself. 
The first-in-Set queue record and 
all gueue Lpsarst that are chained 
to it are flagged as tree queue 
records. 


The queue records are then written 
back to the queue tile, so that 
they can be later put in the free 
chain. 


The next and previous queue set 

poshters (forward and backward) 
checked to insure that t e 

e Sas chain is not broken. so, 

the chain is repaired if bossibie. 


If not possible (next or previous 
queue-set pointer addresses a free 
queue record or a hon~f irst-in-set 
queue record) aes 

Our QUEUE file cA IN ERROR is 
issued and VSE/POWER is terainated 


The absolute disk address is 
converted to a relative 
ueue-record number and put into 
he class table. 


The ‘live® flag and ioe t 304 that 
at least one entry is in the the 
ei oe a eee Ts Se ee is set 


i 


i 


SODULE | LABEL 


RY 100 


RY 130 





Mm 


Chart RY 


REP | 





$RDQ 
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Build free chain 
INPUT 











488 


MCB (Q-file} 


Extent | 
inforration 









aux. y-rec 


master record 


| 
: —_— 





e0 eo cece oe cond 


NUTES 


he second gueve record in the 

lle is addressed... 

his is done by using tne lower. 
imits of the extent and specifing 
ec=2 for C-K-D or setting the 
Eerat are block number to one for 


Tt 
f 
T 
1 
R 
c 


The seek address has following 
format: 
MBBCCHHR for C-K-D or 
MOBBRERRR for FBA 


The first queue record on the 
queue file is reserved for 
internal purposes 


The free-queue-record disk address 
is set to zero and tne number of 
queue records as well as the 
humber of tree gueue records are 
set to zero as initial value 


Tne yueue record, addressed py 
seek bucket "TCQW*® is read in. 


If the just-read queue record 1s I 
the last one (queue id = *D*) and 
there is sti a free gqueve record 
in the auxilsary-queue~record area 
in the OMB, the end of free Chain 
indicator is set and the queue 
record 1s written pack as iast 
free gueue record. 





Queue cecord identifier *bD* 
The total numbec of queue records 
is increased by 1 


When the queue record is marked as | 
a free one , the free-queue-record 
count is increased by One and the 
record is added as last entry ium 
the free-gueue-record chain. 
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PRUCESS 


Mainline 


update 
is tota 


ueue record counter 
1 number gueue records 
nuaber of free queue records 


u—3 


< eocsee > 
——/ 


read queue record 


ate disk address 
Spa RY-1.1.5 


Branch back to 


Address znd queue record 


Set initial values 


If last queve record 


if free queue record put into free chain 


Update disk address to address next 
queue record 





scan Class table to locate any 
incoaplete class entry 


If shared spooling 


Licensed Material 


ieee: 


/ 








mewn, 


Am Acman 


a 


prer.ee 00 0290 Or Pe OF OF ee en es 00 88 oF On OF 


| 
i 


} 
=, 02 


—,/ 


>B) 


A. Update SYSID bucket and usecount 
Be. Reset NAT slot if SYSID affected. 


Return to Mainlineese 
e 

a 

- /f 


| 


< 





PS on ape ce 


| MODULE | LADEL 


RY300 


RY310 


REP 


$aTQ 


SRDQ 


SaHTQ 





NOTES 


This is done by chaining the | 
previous free queue record, which 
is saved in the . 
auxiliary-queue-record area in the 
DNS, to the new one 


Then the previous free queue 
record is written back. Pinally 
the new free queue record is saved 
in the auxiliary—-queue-record 
area. 


The class table is now scanned to 
Aocaye any incomplete class chain 
(this is the case when a pointer 
exists to the first queue set, but 
no last queue-set pointer or vice 
versa). eo 
If this condition occurs and the 
gueuve file error trap option is 
Set by user, message 

10241 QUEOE PILE CHAIN ERROR is 
issued and VSE/POWER is terminated 
Otherwase, tion was not set, all 
queue records belonging to the 
incomplete class chain are 
removed, thereby deleting the 
class. however he queue records 
are not available anymore 


if shared spooling, the usecount 
as decremented by one and tne 
SY¥S-ID, 1f specified is removed 
from the connected SYS*s table. 
The Node Attach Table (NAT rae the 


DMS is searched to reset a 
entries related to the SYSID tor 
which recovery is to be made. 


| 
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Recovery program exit processing 
INPUT PROCESS output 








[2 From Mainline 
—/ 


Sse = Lay Release workspace for queve record 


00 ce Bom 


A. Inforg operator that gueue-file 
Sere mee meena recovery’ is successful ly coapleted 


_— 


| : ES Eee foz} Restore caller®’s register. 
>Queue record | | | 


Return to Hainlaneese 
ari 


TAR | 
TCB 


[save area = H 
, a | 


| | 





NOTES | MODULE | LASEL | REF 









NOTES 





} MODULE {| LABEL 





1 The queue space , if present, as RY900 [SRLW A The operator is anformed that SGAN 
releasea and returned to the ueue~f ile recovery is 
storage pool. doapleted . peared 
; ; . 10B8I QUEDZ PILE &8COVERY 
Toe function track byte in the { COMPLETED is issued. 
task control block is reset to ® ® 
to andicate successful coaplet ion 2 [he caller®s reyister are restored SRET 


of queve-file recovery. | | froa rec Ease afea, addressed by | | 
| | register . | 
t 
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Update disk adress . 
INPUT PROCESS , OUTLUT 





| REG 1 i I=! 
ett, 
| po—— | coe SPror Caller 
| ‘>disk request | ; | t 
word grrcco> It PBA device, update current block | | j 
: | number t 
MBBCCHHAR | : 
| or core tecr=. 7 . ee eee 
MOBBRRAR | : 3-----> 102] If C-K-D, update seek address: 
: : { ase request 
: wor 
| ncB | } Seaeatnenet Setettateste? d A. Increase current record nuaber by 7s 2 
: : one i ——______s 
[acor | SSeS = toate | | 
¢ reco? B. If new record nuaber is higher than 
¢ : t Maximum Cecord number per track, set [77 
Stow rm sone) record number to one ahd increase 
7 : | current track nuaber py one 
| 3-----t----- > C. If new track nusber is higher than ei ( 
| : { nuaber of tracks/cyiinder, set track 
bern mm meme > number to one and increase cylinder 
| nhuaber by one 
Return to callereee 
e 
=| | 
| -/ i 
t v | 
' 





NOTES |} ‘MODULE | LASEL } REP NOTES § SODULE { LABEL f REF 
i 4 i dis nh the queve file resades on a 
adresses coiated™ oe eoieae 4 H Peer ‘ toa device, the current block 
ar A ie carcene nese queue "rei a.’ | number, as stored in the disk 
to address the next ygueue record. epee 4 words a4 increased oy cole 
[ i is stor ack in 
formate: soeee ee pa en | i the ivek’ request word: \ 
MBBCCHHR for C-K-D | | 
MOUBBRBRAR for PRA | | 1 \| | 
a re 
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Account-file-recovery processing 
INPUT 


ACB 


eS ae ne SS SE A TO EE SSE SYS eR SE RS EPO FP: SEUSS SE sy TS YH SS 
EL A EE YS NS NS HY ET ST SE SSN SR a 


Soe SG ee rE eee i ne 





facor } ore en wee ee ee om, 
t—__________4 


Property of IBM 


PROCESS 


c 


ee >Froa sainline 


d 


}01] Save caller*s registers 


— ; ‘ 
racist | If account file resades on C-K-D device: | 


, feed 
< eeeese > 
eco7nmn" 





Format account file 
RY=1.2.1| 


Pree Oo ee eve ence oe ce es ee on ne sees es tem 


-----> [03], If account file resides on FBA device: 
A. Set up locate word to address first 
CI plock 


B. Scan account file to locate 
last-written CI plock 


c. Calculate new residual file capacity <--[a} 
~ save free space of current Cl t 
block in ACB 
- save curr block nuaber 


foal Restore caller's registers. 
[es | | 

















eee 








fal<-- TCB 
=2 i [save area } 
SACEMeEES 





ACB (PBA) 





| 





Storage 
escr. 





| 


Extent 
information 


APWSPSPA 


device into 


ET ENT IED 
ie) 
Q 
o 
| eee saorememrwiencerrer 


ny 


Se A NS So SE SS er GE GAIUS 





Channel 
progras 








=| Locate word 
{ extent 


description 
ock 





Capacity 
AFACF 
APACF 


i 


curr address 
AFSIC 





(prem co caret gry Se yi UE Aa SUIT GEESE SaRO-GH SE TENE UTEP ESSE ET GHEE SGI "EP SUNS SE aSSSR 


A 


input-area 
Ci-block 


ne ee HR ER EE Ee EE SS SS SS SE SS A ee See SSP ES Ga SN a SAGPUSMEBE™ gre eae SOP 


[ 


ee nn | 





NOTES {| SODULE {| LABEL | REF NOTES § MODULE {| LABEL | REF 
38 The account file is read Exce AP52U0 
_dhen account-file recovery is sequentially and each CI block 
invokea the account file is. read in is examined if at is 
scanued to locate the last~-written the KOPF CI | 
account record if C-K-D, or the . 
| last-written CI if FBA ; 38 If not, the next CI block is wAILT { i 
| Peepect syclt« The residual file addressed in the locate word } t 
! and track/CI capacity are { | t and the CI block is read in t 
| recaiculated and stored in the : . : . ! 
ACB. Additionally, the disk | 3c The residual capacity is AF600 | | 
adiress is saved in the ACB. calculated and saved in the ! j 
; ACB. Additionally the tree | } | 
1 The caller*s registers are saved APOOO SSAV space _in the current Ci plock 
in a save area, addressed by as well as the CI biock nurgper | I 
register 13. are saved in the ACB. { 
| 3 Tne sOP-CI plock is searched. Thais 4 The caller*s register are restored AFYS5O S$ReT 
is done from the be ing jay of the from the save area addressed by 
extent (lower limit}. If found, register 
| the relative blocknuaper is used 
to address the last written and 
| used CI blocke 
{ 3A The channel program in the ACB AP500 
| is prepared to fread in the 
first CI block. The locate word 
as set up with following 
values; . 
- inhibit write 
- indacate read only 
{ - CI block number = 0 } 








491 


Chart RY 


Pormat account file (C-K-D) 
IgPuT 


ACB 


Storage 
descr. 





ao 

















esceres sees ‘ “—\ 
H 
{ 
Vow 


ee : poate ane 
ACHI Seecemoocesee ely | 
ni-- 
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OUTPUT 


PROCESS 


Caller 







ACB 


Storage 
descr. 


Scan account file to locate 80F record 
on the beginning of track 


A. build channel prograa 
B. read first record on track till BOF 
record is found 
Pind last record on track 


A. yepogit ion head after EOP track was 
foun 


Be 
C. 


calculate residual capacity 


find last-written record and. 
calculate residual track capacity 


[33] 


Brase SOP record and update disk address > fa} 
in ACB . 





























The Sy ig inet channel program is 
restore 


| 
NOTES | MODULE {| LABEL { REP NOTES { MODULE | LABEL | REF 
JA The standard channel proyraa, { AF100 | 2a When the EOP track was found : | H 
set up_at VSE/POWER | and the file is not oapey {that 
initialization time and placed as when the first trac 
in the ACS, 18 modifieu to read contains EOF record), the seek | 
the count field of the first address is Eaposs toned (one 
account record of each tracn. it track backwards) to address the 
The original channel prograg 1s ii previous track 
| saved previously. | | ; : . ; } 
- seek CCW 2B The residual file capacity is { 
t - 1c or Set sector calculated py subtracting the 
- read data number of tracks in use froa 
~ read count the total number of tracks. 
- read sector (if RPS is ote: the free space on the 
supported} st track in use as not I 
{ considered .) : 
{ VA The seek address of the first Now the channel progras is i 
record on the track is modified in order to read the 
inatialized with the count field and tae sector 
Lower-limit value and rec=0 1s value, if applicable of the 
Set. first record on the track. 
1B The first record on each track eXCP AP120 SwPrc | 2c Each record on the last track BXxcP AP4OO sarc 
is read in and examined if it im use is read without data 
as the £OF record. If aot, the transfer and exagined to 
seek bucket is updated, unless determine if it is the 
end-of-extent is reached, to EOF-record. When the £0F record 
address the first record on the is hit, the. residual track 
next TEGCKs Then the recora is capacity is calculated. 
read in. 
{ zc GETVCE 
3 pe | 
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CHART SA:__IPWSSSA 

RR Sa SRR NC RE al aS I a aaa oT | 
| TPWSSSA - VSE/POWER Save Account | 
PR POUL aE AGREES Gece Sea ee a ee er 
{ Label {| Routine fl 
SS SS 
} SAQO | Function Entry | 
| SALR { Spooi Account File to Punch Queue { 
| SADL | Delete Account File | 
| SATP {| Save Account File to Tape | 
{ SADA {| Save Account File to Disk i 
| SACL | Function Exit i 
| SAGT { Read Account Record d 
} SAPL | Pass Account Record to Punch Queue. | 
fo a Le cs a Ss a a ne ee ee mE 
is a eg ey Re es Se NE RN ee ee Ee Ng ne ee RE PRG Og eee ieee ec iare: | 
| Services Used i 
t ee SR ee ee 4 
| Service { Macro i 
SS ee a I IR a a I | 
‘| Task Management { IPWSDET { 
\ { ZTPWSWFC | 
i—— +} OH 
{4 Resource Management {| IPwsSRLR i 
| | IPWSRSR | 
It SS ee ee ee ea ee 
| Storage Management |} IPwaRLv { 
| j IPWSRLW i 
| | IPWSRSV | 
{ {| IPWSRSW | 
t SS ee ee ee eed 
{ Message Service { IPWSGAM i 
Se ip lp i a ap at eS ems i i web i i i Spi a eh ibe a aa eS em pp aaa rt gt Rl ch cia 
r Pe eg Oe ee ee ie Ee ae CY Pe org heen aE Te pale ee GO = eee Re a eg 8 Pee ee Ege gg ae eee 
| Interfaces used | 
SS ee ee ee Sa SSS ee 
{ Module { Macro i 

a ae ee ee a A A a tm 
{ IPWS$LW { IPWSPLR j 
| IPWSSNU { LIPWSCLI A 
( IPwSS$NU { IPwSOLL j 
Wee a Gn a en ae pi ce et tp ly lc oa pl lige ass pgs pe ener atic inte A 
ha a aa aa ER SS eG ge Oe Le Poe ee ee eg Ge TE ee ee ae ee ren te Ee ae LP eee —~I 
{ Functions used i 
Sr oan eee ——<——— Sd 
{ Module {| Macro | 
eet = Ss ——- SSS 
{ IPWSSAS {| IPWSIAS | 
| IPWS$GA. {| IPWSCAF i 
{ IPWSSGA | IPWSGAR | 
] IPWSSGA { LEWSOAF | 
{ IPwSSLU | IPWSULP { 
Ce ——+1__ ____ __ __ ___—__ —___ 
i Sin ee Ne Bag a eee Fe a pe ee en ee he ee Cat ne ge ge = Son Se SS a ee a | 
{ Called by l 
t Se en Sr re eee ena me ee res es 4 
| Module {| Description 
eS SS Se SSS ee ee 
| ITPWS$CJ { Command Processor (PACCOUNT) | 
A ae ee poh eS a J 
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IChart SA: IPWSS$SA - Save Account 


{The tirst 16 bytes constitute the: 
{section description: 

{ 

{' SACS release! 


{On entry, the following register 

jcontents are relevant: 

| 

1: Device type and LUB unit output 
file 


The following registers are used by 
IPWESSA; 


8: Account file CCB address 

9: SACS base register 

10: Address of VSE/POWER permanent 
area 

11: Address of TCB 

12: Asynchronous address register 

13: Address of task save area 

14: Link register 

15: Base register 


{ 
{ 
l 
I 
{ 
l 
| 
| 
I 
{ 
l 
I 
| 
{ 
I 
I 


| The entry parameter register 11S 
{Saved in register 5. 
{ 
{A buiter is reserved to contain the 
{DTFPH for tape or disk output when 
|necessary. 
\ 
{if the Save Device specified is DEIL,a{ 
{branch is made to erase the account jf 
PERT Ck a is ek aah. s Se ee eae oe aeowwe@egseaeweaoe >{SADL 
| 
{The account fiie is opened in GET 
imode. 
l 
{The address ot message 1Q78I is 
{loaded in register 4. 
{ 
|The address of.close exit SC16 is 
{loaded in link register 14. 
{ 
{If open failure, branch......4.2222- >4{SA04 
{ | 
{Link to read an account record..... >{SAGT 
| | 
{If the file is not empty (zero { 
{condition code on return signals end {| 
Lot -tiley ,- branche vos 2 ssndsias see See. | SA0S 
{ i 
[Otherwise, the address of message { 
{1Q83I is toaded in register 4, the i 
jladdress of close exit SC1z is loaded | 
{in link register 14. | 

I 

| 

| 


eo ee ee oe oe 8 ee ee ee ee ee ee OE oe 


_ 


o_O oe oe ew ee oe oe 


\ 
{Cancel open tape is indicated in the 
{TCB. 
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{Modified Data 


Fields 


IPWSDPA 


IPwSDTC 


TCT T(IPWSDTC) 


_— ee we me ee mae ei eee eee ee 


nat come sm ine sean ee ae ee a me me ee ae me we ee ane ee re ee me we ee me ee ee re rm ee me en ee ee re ee ee te ee re te ee ae we we ee ce ee ee ee ee we ee ae we a a a oe 


bo 
Ww © 


4R10 


{R11 
{R12 
{R13 
[R14 
(R15 


bo 
Mm 


= 8) 
+ 


= o) 
_ 
f 


my 
wR 


bd 
+ 


al 
—_ 
P= 


jCaiis | 
| 


IPwdRSW 


IPWSCAF 


Nae ye om eee eee ee a ee 
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c 
I 


— ae a ee oe oe oe oe Oe ee ee oe ee ee ee ee ee ee ee ee eee ie i i 


a wee ee me em me te ere me me ee em me ann we sw eae a en ee ee me nea we we ns ws ae ee ee ee a ee ee a ee ee ee ee ee ee ee 


Labels 


WN 
~ 
oO 
co 


wn 
be 
Et 
po) 


to 
my 
Oo 
£ 


Cc 
es] 
io) 
co 


{Chart SA: IPWS$SA - Account Save 


{If device is not a tape, exit ...... 
I 

|Otherwise, the LUB index in register 
{5 is stored in a dummy CCB, and 
jbranch to unaSsgn tape 2.2.22 seeeeee 
l 


{If the account file has to be written] 


{to tape, a branch iS made .....2..2.22.2>{SATP 
| | 
{if it has to be saved on disk, a { 
{branch is made ........ bse base eee ge; e's wo LOADA 


{ 

{Otherwise, the account tile is 
{spooled via the iogical reader to 
{punch queue. 

I 

{This routine spools the account file 
{via the logical reader to the punch 
| queue. 


{Register 5 is loaded with the address 


fof the IPWS$SA output area. 

| 

{The logical reader interface is 
{opened. 

{ 

{Register 3, to be used as a first 
{time Switch, is initialized to one. 
I 

| Branch £0 er ween @e@ @a @eaes ese @eeereeertFeeseaewewe 
l 

{(Note: First record is already 
|present. Read in SAOQO routine.) 

{ 

{A iink is made to read an account 

| BOCOL Gs c.6aetern os ae es ewe ed ie PSs Mi Ske Gite tee 
| 

{If EOF is detected (account record 
{length zero in register 0), a branch 
jis made to close the logical reader 
[PNECL LACE ss eswewin aS soe 0, XG ise kee os oe as 
{ 

{This routine updates account record 
{length (register 0) and address 

{ (register 1) pointers to ignore the 
{DASD record control field part, and 
{passes the updated pointers back in 
{register 6 (true record length) and 
|cegister 7 (true virtual record 
{address). 

| 

{Account record length is copied to 
{register 6. 

{Account record address is copied to 
{register 7. 

{ 

{Using register 1 as a work register, 
19 1S subtracted from the record 
{length in total, to obtain internal 
{(machine instruction format) length. 


— 


—_—_———L—— oa a a Oe ee Oe ee ee ee 


>| LRO8 


> 


— ee ee ee ee eee eee i i 


SAGT 


LR28 


|Moditied Data 
j Fields 


— = oe me me oe ee oe Oe te eo oe oe ao eee ee 


Lo) 
(onl 


IPwsO 


bo 
w 


=) 
N 


b>] 
Ov 


po] 
~ 


mm 
oo 


Chart SA 
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oe, RY eee ee ee ee eee) ge eg ang ey Petey et ne ee ge ae pea ge gy ets oF a 

{Labels |jChart SA: IPWS$SA - Account Save j|Modified Data { Reg. {Cails | 

| iF | Fields iUsage {| j 

[a re a ag ee eee eg ee eT Sey Pen ee ee et Ge RT a ee e a ee oe eee oa { 
{The account record address is R7 


jincremented by 8 to point past the 
{DASD control field. 

{ 

{The record ID is moved to the output 
jarea. 

{ 

|The card sequence field is 
{initialized to (packed decimal) zero. 
{The data length-1 (70 bytes) is 
{ioaded in register 1 (machine 
{length) . 

| 

{If more than one card is required to | 
{contain the current account record a | 
{branch 1S made to... cc ws ce nnaeces tee SP PLR LZ 
l { 

|If only. one card is required to 

[contain the current account record: 


bo 
io) 
4 
oO 


Ww 
tO 
io) 
a) 


ee 
=) 
-_ 


> 
OQ 
to 
oS 


{ 
e The I/O area is blanked out. 


= 
Q 
ps] 
i) 


i 
i 
| 
| 
- The account record, pointed to by | 
register 7, is moved to the I[/C | 
area, pointed to by register 5, { 
using the record length in j 
register 6. { 

I 

| 


2] 
oa 


* Record length is. set to zero 
and made negative to signal end of{ 
account record. | 

| 
Branch to ....2. save aatece lols Sw aa aes a e222? | LR20 
\ 
LR12 {This routine processes anh account | 
{record that does not fit in one card.| 
| 
{The internal (machine instruction 
{format) length of the 71-bytes 
jaccount data field that will fit on 
{the current card is loaded in 
{register 1. 
| 
{if the residual account data size is 
{greater than 71 bytes, a branch is 
{made to move 71 bytes of account 


bo] 
= 


yo) 
~ 


{Otherwise, register 1 is reset to the 
factual residual account data size. 
| 

LR16 |The I/O area is blanked, except the 
{first and the last three bytes 
| (cecord identifier plus sequence 
jnumber). 
I 
{Using the data length in register 1, 
jaccount data is moved to the I/0 
jarea. 
i 
{Account data pointer register 7 is 
Jincremented by the length of the dataj| 
{field just moved to point to the data| 
{to be moved next. I 


> 
Q 
oa] 
0 


{DATA 


_— Oe ee oe ee ee ee eee ee 
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i 
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| 
| 
| 
| 
| 
I 
| 
| 
! 
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( 
| 
) 
! 
| 
| 
{ 
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I 
t 
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t 
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! 
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! 
( 
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|Labels 


a ee re me ae ce ee ee eee ree ee me ee cee wre ce eee wee re ee ee re ee mee ee re eee ee wee ee cee ee re ee ee ce we re ee wee we ree ee ee eee ee we we ne ee ee ae ae we ee ee we ee we ee ee ee re ee ee ee ee ee ee ee ee ee 


LR20 


ee 
is] 
nN 
- 


a ar ce cee mem ee wae ee cer mee eere mt te cm m mene m e we wome me eee eae ee em ee we ee ee ee ee ae ee ee ee ree cee ee we ee ee sere ee ee ne oe ee ee me ae ee ee ce ee ee ee ee ee ee ee ee ee 


{Chart SA: IPWS$$SA - Account Save 


iResidual data length in register 6 isj 
{decremented by the length of the dataj 
{just moved. { 
{ j 
{Branch if not first spool record... >{LR24 
| | 
{Otherwise, provide Logical reader | 
{with dummy read command (2nd hopper, | 
{MFCU. 5425). | 
| { 
{Set register 1 to one aS Mininun { 
{record length. | 
| | 
jA link is made to pass this dummy { 
JLECOLG. casa cwccesses whaisite wears) os severe >{SAP4 
{ | 
{ (The address of the output card image] 
jis loaded in register O by the | 
{subroutine SAPL.) j 
| | 
{On return, the dummy read command is | 
{cleared. | 
{ | 
{The address of the queue record is | 
{loaded in register 2. | 
{ | 
{The address of the DMB is loaded in | 
{register 4. {| 
| 
{ 
i 
i 
| 
| 
| 
| 
i 
| 
| 
\ 
{ 
| 
| 
| 
i 
| 
{ 
| 


{The queue record is Changed: 


Job name PACCOUNT is moved to the 
queue record. 


Record identifier is set to Punch. 


Class indicator is set to Punch. 


Priority to set to 1. 


Disposition is set to HOLD. 


The aefauit number of separator 
cards is moved to the queue 
record. 


oe ee de ee ee ee ee ee 


{Handle data set header record ......> 
| ; 
[A Link is made to pass the first and | 
{following card image records to the | 
[logical reader.......... bss aie s'eeiena:. > SAPL 
| ] 
{If current account record has been | 
{spooled completely, a branch is made | 
{to read the next account record.... >{LRO4 
i | 
[Otherwise, a branch is made to | 
{prepare the next card for the current| 
PACCOUNT LECOLd..wwwsccwscccccesacnce >|FLRIZ 


LRDSHR 


{Modified Data 
{Fields 


TCCC (ITPWSDTC) 


TCCC (IPWS$DTC) 


QRNM(LPWSDQR) 


——— me a om ee oe oe ee Oo Se OS oe oe Oe Oe Oe oe ae Oe oe ee Oe ee oe oe ee oe Oe oe oe oe 


| QRQI (IPWSDQR) 
Peron e an 
ener 
igeenebaspen) 


{ 
OR SP (IPWSDQR) 


I 
i 
| 
l 
l 
| 
| 
l 
{ 
{ 
i 
| 
| 
i 
| 
l 
i 


Ls) 
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Pa 
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iLabels {Chart SA: IPWSS$SA - Save Account {Modified Data i Reg. jCasis | 


| | {Fields lUsage | 


[LR28 {This is the normal exit address (end 
jof account file) for logical reader 
{spooling. 

{ 

|The address of message 10791 is 
{loaded in register 4. 

i 

{The output area is blanked out. 

{ 

{'/&* is moved to the output area. 

{ 

{Card count in gueue record is updated 
[with one for this EOJ card, using j 
{register 3 as work register. | 

{ \ 

{A link is made to. pass the EOJ record| 

[to the logical reader...4.....2220 >{SAPL 
l { 
{Register 1 is set to zero to simulate] 
{EOF condition of the physical reader. | 

I | 

{A link is made to pass the EOF | 
|condition to the logical reader.... >{SAP1 
i { 
{The logical reader interface is 

(closed. 

{ 
{Normal exit is taken...... ei eiere ee. 
| 

SADL {This routine is entered when the 
jaccount file is to be erased. 
| 

{The DMB and ACB are reserved. 

{ 

{A LPWSCAF ERASE is issued to erase 

‘Jjthe account file. 

l 

{The DMB and ACB are released. 

| ; 

{The address of message 1Q80I is 

{loaded in register 4. 


=o) 
Ww 


b>] 
_ 


or 
Nw 


iPW$CLi 


scds 


ee ee oe oe oe ee ee ee ee ee a ee ee oe ee 6 ee ee ee oe Re oe ee ee oe Be 
— oe ee ee io ee eo ee 


IPW$RSK| 
\ 
IPWS$CAF| 
i 
1 
LEWSRLK| 


ee te ee ee oe ee i oe ee ee ee ee oe oe oe ee oe ee oe oe 


oo 
= 


SC 16 


SATP {This routine is entered if the 

jaccount file is to be saved on tape. 
{ 
{The DTF buffer is initialized with 
jthe originally generated tape DIF 
| (ceuseability). 

l 
|The DTFPH is prepared for tape 


_ 
_—e = oe oe ee ee ee oe ee ie eee oe, ee ee oe ee dee ee de Oe 


— oe ee ie eee oe eee 


— oe ei eee ea 


| —_— a ow me & ww B Oo Be we ee we ee Oe oe oe oe fee ae ee 


Joutput: 

is Accept unrecoverable I/O error is PHCM 
{ set ON, 

- No-rewind option is set OFF, PHCS 
2 Rewind-unload option is set ON. PHCS, 
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c . 

jLabels |Chart SA: 1PwS$SA - Save Account |Modified [ata | Reg. {Calis | 
{ , {Fields ‘Usage 4 

{if no. file name has been specified in| 
{the PACCOUNT command, and therefore 
|no file name has been posted in the 
{TCB by the command processor, branch 
{to process unlabeled tape...... eb) ie 
{ 
|Otherwise, copy the file name into 
{the copied DTFPH in the DIF buffer. 
| 
{Branch to bypass eee DTF to 

| NOLABEL. wae ews eoevvaasveeeee2wn eo @ @enpn@aee2.e € > 
| 
TPO4Y {|The DTF type indicator (byte 20) is 
{set to NOLABEL. 

{ 
|The NOLABEL option is switched ON. 
i 
TPO08 {The device-dependent information, 
|passed py the command processor in 
{cegister 1 and saved in register 5, 
jis now processed. 

I 
{The format of this information is as 
{follows: 

{ 
{Byte 0: Density 


I 
{ 
| 
| 
{ PHNM 
| 
| 
I 
I 
i 
| 
| 
{ 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
{ 
{Byte 1: Device tyre | 
\ 
I 
| 
| 
| 
| 
| 
{ 
\ 
| 
| 
{ 
{ 
I 
| 
| 
| 
| 
l 
| 
| 
| 
\ 
| 
| 
{ 


PHTT 


PHCS 


{Bytes 2-3: LUB index 
{ 
{The density byte is stored in the 
| TCB. 

{ 
{If no density has been specified 

| (density byte contents zero), branch 

{to bypass updating the PUB entry... > 
| 
{Otherwise, register 2 is loaded with 
{the address of the PUB entry of the 

{tape device concerned. 

| 
{With register 2 as address register, 

{the PUB is now updated to reflect the 
[tape density keyed in by the operator 
1 


TCSADY (1Pw$DTC) 


= om we Oe oe oe oe oe om Oe oe 8 om ee om oe ee ee ee ee Oo oe we ee ee ee ee ee 8 SB Ss oe Se Bw ee EO oe ee em oe Oe oe EE em ee ee Oe 
oe eee eee eee eae 


{Standard mode is reset. PUBJCFLG 
l 

{Standard mode is updated according to 

ispecitied density. PUBJCFLG 
{ ; 

{The specified density is moved to the PUBOPTN 
| PUB. 

| 

{Set mode command is initialized. PUBOPTN 


A eee sane + ei avatar oe "etm e.g pec Vet Gm lems mM ena, See cm ei fp ome eo a ee i ee ee ee ee 
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| 
Labels |Chart SA: IPWS$$SA - Save Account iModified Lata i Reg. {Calis 4 
{ | | Fields jUsage } 


{TP12 {The LUB index (programmer logical { 

junit number) is moved to the CCB. | 
l | 
|The tape DTF is opened, invoking | 
IVSE/POWER Asynchronous Service..... >|SAOPEN 
I | 
{If unrecoverable I/O error is posted | 
{in the TCB (by Terminator routine { 
J|LPWSSTR), Or Open was not success- >j{TP14 
(ful, branch to......-. 66a See wise cute > | 
| | 
{When not standard labeled tape | 
|processing, branch to.........2.25. >| TP16 
f { 
{Otherwise, test if file labeled | 
Jinformation has been found and storedj| 
fin the DIF. If so, bypass task ] 
[cancel CONdLitCiON. wea wcsswewaseccccee >|TP16 
| { 
TP14 {Store task cancel condition in TCB. 
I 
JLoad the address of whessage 10601 
jinto register 4. 
{ 
{Branch to abnormal task 
Jtecminatlon...sesscvesavrcens @eaesasezsse22. > 


TCTT (IPW$DTC) 


Sco4 


1 
| 
| 
{ 
| 
| 
| 
i 
TP 16 {The tape DTF open indicator is set on| 
] { 
{Register 5, to be used as an output | 
{block counter, is set to zero. { 
\ | 
| Branch......2.2--- wee es er sense ces P| 
\ | 
|Note: First record is already i 
Ipresent. Read in SAOO routine.) { 

| 

| 

| 

| 


TP 24 


TP21 {A link is made to read an account 

[| Cecord.wwwae. eo sv eowews wewvwrseeaseeweasedeswiseaeveseeteae > 
| 
{On EOF account file (record iength in| 
{cegister 0 zero), branch...cs.02220- >(TPZ8 
| I 
TP24 {Otherwise, the block count is 
{incremented by one, and 
{stored in the DTFPH. 

I 

{Account rcecord length which was saved{ 
jin register 6 is copied into the tape| 
{write CCW. | 
| | 
{Account record address which was | 
{saved in register 7 is copied into | 
{the tape write CCW. | 


SAGT 


ox bo] 
wm © 
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TP28 


SADA 
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{Chart SA: IPWSS$SA - Save Account 


|The account record is written to 
jtape, with suppression of incorrect 
jlength. 

I 

[A ITPWSWFC VSE/POWER wait macro is 
{issued to wait for I/O completion. 
i 


{if no unit exception (EOV) on tape is| 
J{detected, a branch is made to process| 


jthe next account record....... Sievere cs 


i 
}On EOV: 


FEOV switch is set on. 
EOF Switch is set off. 
A link is made to SAOPEN routine 
to invoke VSE/POWER Asynchronous 


oe @¢ @ 


zaeoewn2aaan ee zce 


The alternate tape is opened. If 


Open not sSucceSSful 2.1.22 e2cewe ce >| TPI4 


The block count is reset to zero. 
The next account record is 
PLOCESSEA ws wa wc ceca cc ccwc es wce 


Nn 
@ 
nh 
< 
h- 
Qa 
@O 
ct 
ie) 
ue} 
n 
1°) 
Q 
0) 
n 
n 
td 
Oo 
< 


{This is the normal (EOF) exit for 
{tape processing. 

| 

{The address of message 19791 is 
|loaded in register 4. 

l 

{A branch is made to exit.......... = 
I 

|] This routine iS entered if the 
jaccount file is to be saved on DASD. 


|The address of the ACB is loaded in 
{register 5. 

l 

{The DIF buffer is initialized with 
{the DASD DTFPH (reuSeabiiity). 

{ 

{The following fields in the DASD 
{channel program are now relocated, 
{using register 1 as a work register: 


Seek argument in seek CCH, 
Search argument in search CCW, 
Sector value argument in set 
sector CCW, 

Reset set sector command X'23! 
Sector value plus 1 argument in 
read sector CCW, 

Search CCW address in TIC CCW, 


count key data CCW. 


ae ee ee ee oe 
e ¢ 


Count field address in first write 


> |TP21 


l 
i 
l 
l 
l 
| 
l 
l 
i 


l 
i 


>{TP21 


{Modified Data 
jFields 


— oo oe ee oe ee ee ee ee i oe 


|PH4S 
|PHIS 


—_—— oe oe oe oe ee oi eee eee ie 


{Usage i 


ps) 
foe) 


to 
_ 


iPwsw 


=) 
oO 
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{Chart SA: IPWSSSA - Save Account 


{The DASD device type is copied fron | 
{the ACB to the DTFPH. | 
I \ 
{Tae tile name tor the DASD file is | 
{copied from the TCB, where it has / 
{been posted by the command processor, | 
{to the DTFPH: | 
| | 
{The DIFPH is set to accept | 
junrecoverable I/O error. { 
| | 
|DASD CCWs are now chained. | 
| 1 
{The DASD DTFPH is now opened: | 
j* Work space is reserved for the SRB | 
and it is initialized. | 

e Asynchronous services is called to | 
perform the OPEN. { 

*« The SRB work space is released. | 
{ 

{ 

| 

{ 

| 

\ 

i 


JIf unrecoverable I/O error was posted 
jin the TCB, or if open was 
funsuccessful, register 4 is loaded 
|with 1Q60I message address anda 
[branch 1S Nade hos ce ciuws deena saa aaa’ > 
| 
{Otherwise, a test for RPS support is j 
imade. | 

{ I 

{If RPS is supported, a branch is made] 

jto continue..... Siuedereteess Liskin sa ee aite.a> > [DAOY 
| 1 
{Otherwise, the set sector CCw is 


SC12 


i 
joverwritten with a TIC * + 8 CCW, | 
land the last CCW (read sector) is | 
junchained. I 
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IPWSIAS| 
IPwSRSwWi 


I 

{ 

I 

i 

j 

{ 

i 

\ 

i 

i 

| 

I 

i 

l 

l 

{ ! 
{IPWSIAS| 
{ i 
{LPWSRLW | 
| | 
{ 
| 
i 
{ 
| 
4 
i 
| 
i 
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I 
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i 
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{Chart SA: IPWSS$SA - Save Account 


|Modified Data 
| Fields 
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{ 
| 
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| 
| 
t 
| 
{ 
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t 
| 
t 
! 
! 
1 
t 
{ 
I 
! 
’ 
l 
1 
' 
{ 
t 
I 
| 
! 
t 
\ 


{Using register 3 as a work register, 
{the extent capacity of the user 
jextent is calculated: 

l 

{Low cylinder number is subtracted 
{irom high cylinder number. 

{ 

{Number of cylinders available is 
{multiplied by the number of tracks 
[per cylinder. 

{ 

{Track number of high limit is added. 
I 

{Track number of low limit is 

| subtracted. 

i 

{One is added to obtain the number of 
jtracks availabie in the user extent. 


a i ee ee ee ee ee ee ee ee ee oe 


{The number of tracks is muitiplied byj 
{the track capacity to get the extent | 


{capacity. 

\ 

{Extent capacity is saved. 

{ 

{Using register 3 as a work register, 
jthe size of the account file is 
jIcalculated by subtracting residual 
{account file capacity from total 
jaccount file capacity. 

| : 

{If the current account file size is 
igreater than the user extent 
|capacity, a branch is made to error 
POR TC ois oie ee wae wre Steere Se See ee ei Winco Se ea 
1. 
{Otherwise, the user's DASD count 
{field is cleared and set to the 
jextent lower limit. 

I 

{The initial (begin) track number of 
{the IJAFILE to be saved is loaded in 
|cregister 3. 

| 

{Using register 1aS a work register, 


{the track.numper of the highest track 


{of a cylinder is calculated and 
jsaved. 
l 


| BLANC Divi, o's-s0 leis se wwe wis © wet ave, 2 0 ie le severe ce 
l 

{(Note: First record is already 
{present. Read in SAOO routine.) 


Vv 


a ee ee ee ee gee ee ee 


SAMC 


SACF 


SAUH 


) 
uw 


ys) 
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ee a te em ce arm te ee ame me sami hem nem ae ra wn re me mee re ee ee ee ee ine wet me cr me nee er ee a ae eee a ee ee me ae ne ee a ne ree me me a te re ne ee eee ee ne ee ee ee ne 


Chart SA 


be eee ee i oe oe, i eo oe 


503 


Licensed Material - Property of iBM 


Gone et ee ee er Ra ieee See gon t Ie ep RE MEN Ep eR Ee Oe TE ee rae ee NN aS nye BCS Pee ere ei ay gee ne Rata ye eng nnd Te 1 
JLabels |Chart SA: iPWS$SSA - Save Account {Modified Data | Reg. {Cails | 


{ i {Fields {Usage | 


{DA08 {A link is made to read an account | 
PLOCOLd. 1.2 ene cee eee ee ecw ccc eee eee P{SAGT 
\ | 
{On EOF account file (zero record | 
{length in register 0)....2..05202-e. >|DA1I3 
{ { 
DA1zé |Otherwise, record length is stored in| 
{count field and write data CCW. 
| 
{Record address is stored in write 
jIdata CCW. 
| 
DA13 [Seek and search arguments are copied 
ffrom count field. 
{ 
jif the track number in the account 
[file search argument has not been 
{changed, a branch is made to update 
{user's DASD record number.......... > 
| 
{Otherwise, a new track has been 
jaccessed on the account fiie and 
jloaded in register 3 and as a 
{consequence the track address of the 
fuser DASD file should be incremented 
j{too. 
| 
{if the upper head of the current 
{cylinder in the user extent has not 
{been reached yet, branch to update 
Perack. DUMDCE ess 2 3.66 65-2 SSS hw ww oe Ste > 
| 
{Otherwise, the cylinder aumber is 
{loaded in register 1. 
\ 
jThe count field is cleared to set 
{head number and record to zero. 
{ 
{Cylinder number is incremented by 
jone,. and stored back into the count 
{field. 
I 
{Seek and search arguments are copied 
{from the count field. 
{ 
{Branch to update record number..... > 


SACF’ 


SAWD 


SASA 


8) 
a 


DA20 


to 
w 


DA16 


—— oe ee ee ee ee ee ee ee eee i ie ae eae a 


bo] 
-_ 


SACF 


io} 
_ 


n 
> 
QD 
rey 


DA20 


DA 16 {Using register 1 as a work register, 
{the head number in the count field is 
{incremented by one. 


{ 


{The record number is set to zero. 


SACF 
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c : : 
{Labels [Chart SA: IPWS$SA - Save Account {Modified Data { Reg. iCalls | 
j {Fields {Usage | 
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{Seek and search arguments are copied | 

{from the count tield. { 

| | 

DA20 {Using register 1 as a work register,. | 
{record number in count field is | 
jincremented by one. j 
\ 

t 

{ 

{ 

{ 

{ 


SACF 


nN 
a 
wm 
te 


{Next sector value is set for the set 
{sector CCW. On EOF account file... >{DA24 
I 
DA21 {The account record is written. 
\ . 
{A IPWSWFC macro is issued to wait for| 
{I/O completion. | 
\ i 
{On completion, branch to get the next| 
LaACCOUNt LECOLdsn cess ccwacnancsewcess >| DADS 
i { 
DA24 {This is the DASD normal (EOF) exit 
{routine. 
{ 
{Set key and data lengths to zero and 
fupdate seek addreSS ......02 20220002 
| 
{The write data CCW is unchained. 


{ 


| 
{ 
| 
t 
i 
| 
t 
j 
{ 
t 
{ 
| 
i 
l 
j LPwSwWFC 
| 

i 

i 

\ 

| 

| 

j 

J 

( 

| 

t 

{ 

| 

j fAn EXCP is issued to write the EOF 
1 

j 

4 

i 

i 

j 

{ 

| 

{ 

| 

i 

] 

| 

| 

{ 

i 

| 

| 

i 

( 

( 

| 

i 

{ 

1 

\ 

| 

| 

ul 


wn 
od 
Q 
br} 


nN 
[a 
= 
io) 


{record. 

| 

{An LPWSWFC macro is issued to wait 
{for I/0 completion. 

{ 

{On completion, the address of message 
41079I is loaded in register 4. 

{ 


{A branch is made to exit...... alate. oD 


IPWSWEC 


DA28 jThis routine is a DASD error exit 
jroutine. 
I 
{The address of message 1Q81I is 
j{loaded in register 4. 
( 
{The user file name is moved into 
Imessage 19811. 
i 
[Branch tO: Grrvor ‘6X1 t 55.4 aes50 660944, > 
| 
SACL JThis routine is the common close and 
jexit routine. The output file is 
jclosed; its device is unassigned; if 
{no errors have occurred, the account 
jfile is erased; a message is logged 
{stating the action taken by IPWe$sSA; 
{the IPWS$SA task is detached. 


= 
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7 
Labels |Chart SA: IPWS$SA - Save Account [Modified Lata j Reg. {Cails | 
| jFields {Usage 4 i 


= 
{ 


JIPwSFCH{ 
] | 
(IPWSRSW| 
A | 
JL Pw$IAS| 


| | 
{i PWSRLW{ 


The (tape) output file is closed: 


| 
\ 
{* Workspace is reserved and initial- 
{ ized for the SRB. 

{« Asynchronous service is called to 
{ perform the close. 

{* The SRB workspace is released. 

( 


{This entry point to the exit routine 
{is taken when the account file open 
{procedure failed due to lack of work 
|Space, or unrecoverable I/C error, orj| 

jan attempt was made to save an empty | 
{account file. { 

I | 

{If no other density was specified .~.>4SC06 
| i 
{The default mode. in the PUB is set 
{to standard. 

| 

{Register 1 is loaded with the 
{VSE/POWER PIB address. 

A} 


nN 
OQ 
oO 
B aed 
_— & se ee oe ee ee oe ee 


6) 
-_ 


PUBOPTN 


n 
io) 
oO 
toa) 
Es) 
Py 


ns) 
we 


h 
iRegister 3 is loaded with the CCB 
jladdress of the output file and its 
{device is unassigned. 
{ 
|If the open tape file procedure was | 
lunsuccessful, branch tO. sw.wrweswees >$SCI2 
| i 
{it the OPEN account file procedure j 
jwas unsuccessful, a branch is made toj 
[message logging routine (1078I).... >45C16 
{ I 
{Otherwise, the account file is closed] 
jand erased. | 
\ | 
{Branch to continue........ ee eteenerece: > SC16 
i | 
SC12 {An LPWSCAF KEEP is issued to keep thej 
Jaccount fizse and reset and release | 
jthe ACB, and its work space, if { 
{present. i 
{ 1 
{The address of the message is. stored | 
{in register 1 and the DTFPH pointer jf 
{is saved in register 4 and tne j 
{message is issued. { 
| I 
{The DTIFPH work space is released. | 
{ | 
{The TCB account track indicator is | 
| 
| 
1 
i 
| 
1 
| 
| 
i 
| 


i 
l 
I 
1 
{ 
I 
I 
i IPwSULP 
| 

{ 


— = gee te oe Oe Oe oe ee oe ee oe ee ee oe oe ee ee oe ee ee ee oe = oe oe 


Nn 
Q 
io) 
oe) 


LEWSCAF 


IPwsCaF 


Nn 
QD 
= 
a 
b> 9 
—_ 
es) 
£ 


IPwSGAM| 

l 
{iPwowToO| 
| i 
A { 
{IPWSRLW| 
I | 
{aPwSDETy 
J 


| 
l 
| 
{ 
| 
4 
i 
I 
| 
| 
i 
| 
| 
d 
| 
| 
l 
i 
( 
‘ 
| 
i 
| 
I 
j 
d 
i 
j 
i 
| 
l 
{ 
{ 
| 
i 
i 
| 

’ | 

| 

TCAT(iPWSDTC) 

|set inactive (X'40"') and the task is 

j{detached. 

| 

{This subroutine reads an account 

jcecord from the account file. 

| x 

{An account record iS read.. 

{ 

{IPWSGAR wiil return the account 


{record length in register 0, and the 
{account record address in register 1.| 


nN 
YE 
Q 
H 


LPWSGAR 
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jLabels 
I 


| ee ena nc ee ee a a me a ene ee ee ae en ee ns a re ee ee a ee ne ee ee ee a a ee ee 


SAPL 


SAP1 
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{Register 0 is saved in register 6, 
jand the condition code is set to 
|provide a return code for the calling 
{routine condition. Code = 0 
Jindicates EOF otherwise, no EOF. 

l 

{Register 1 is saved in register 7. 

| 

{Control is passed back to the calling 
|routine. 


{This routine passes a card image 
{record via the logical reader to the | 
[punch queue. | 
{ | 
|The card sequence number is increased| 
[by one and stored in the record. / 
| { 
{The card image length is loaded in { 
{register 1. { 
i . I 
{The address of the output card image | 
{is loaded in register 0. | 
\ | 
{The card is passed. to the logical | 
j{reader. j 
{ i 
{Control is passed back to the calling} 
| routine. 


{Modified Data 
{Fields 


l 
{ 
\ 
l 
l 
\ 
i 
i 
i 
| 
| 
l 
1 
l 
l 
ISQNO 
l 
{ 
{ 
{ 
( 
l 
{ 
| 
l 
| 
{ 
l 
{ 
{ 
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cb 
M oO 
Ne} 
Wma 
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fed) 
kb 
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bo 
ft 


ps] 
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IPwSPLR 
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re 
{Labels 


LRDSHR 


SAOPEN 
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LRDSHRE {Reset the DSHR and control record 


SAOPENR {Cali asynchronous services. 


{Chart SA: IPWSS5SA - Save Account 


{Handle Data Set Header Record (DSHR): 
| 


{Save registers 0-3 

\ 

|Reserve storage in the length of the 
{DSHR. LTE not successful ...c.cwseeee> 
| 

J{Initialize the DSHR with the 
{foliowing values: 

{* Total record length. 

Length of general section. 

General section ID and modifier. 
Fixed length record format (X'82'). 
Record length of 80. 


LRDSHRE 


eeee 


Set the DSHR and control record flags 


Pass the record to logical reader. 


o_o ee ge oe ee 


{flags and reload registers 0-3. 
Neer CO Caller. ncssececcccccesvesa> 
oe return register 2. 

ee space for SRB. 

pneneed return register 2 and setup 
{Open request code. 

ee end-of-volume processing required>{|{SAOPEN1 
ieobne parameter list with DTE aes, 

{and OPENR phasename. 


_—e_ae oe ae OE a oe ee Oe oe eee Om a Oe oe oe ee Oe me oe Oe ee Oe Ce oe oe oe oe 
mu 
tw 


| 


{Release SRB workspace. 
| 

JReload return register and return to | 
(CALLE: Vic cd iwaeed wawe' sc eouneaheaawar (RZ 


{ | 


SAOPEN1 |Setup parameter list with DTF address| 


{and EOV phasename, branch to ......->{SAOPENR 
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{Modified Data {Reg. 
jFieids {Usage 


ee eee ee ee ee ee ee tt ed 


LRSAVE 


—_— a a Oe oe oe Oe oe oe 


| NDHLEN 

| NDHGLEN 

{ NDHGTYPE, NDHGMOD 
| NDHGRCFM 

| NDHGLREC 

l 

(TCG2,TCCC 


TCG2,TCCC 


TCSART 


SRBREQ(IPwWSDSR) 


— fe oe ee oe oe oe Oe ee ee ee oe ee oe ee Oe oe Oe ee ee ee ee ee ee ee 
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{Calls j 


IPwWSRSV 


—_——a_r 2 ow OP oe = Oe Oe Oe OE oO & Be oe OE BE 


IPWSPLR 


IPwsRSa 
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IPWSIAS| 
| 
PWSRLW{ 
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CHART SC:__IPWS$SC 
Wap er ed es ele Tn ey ee Pe ee ee ee Ne teat > Re ee a ae a ee ee eee ea oe ee ee Oe ge ae ee eee ee 
| IPWS$SC - VSE/POWER Scan Reader JECL Statement | 
fF ey Ie ge ay Mies ee eae Sac y yg ge pae S e A Smee Age gee a cp a ge ee ane gigs ogo teag  e y 
{ Label { Routine j 
t eS SSS << =o 4 
{| SCcoOo { Determine Positional/Keyword Parameter Format | 
{ SCc20 | Keyword Routine j 
{ Sc50 {| Positional Format Routine | 
{| CLOO { CLASS Parameter Routine \ 
{ JNOO { JNM Parameter Routine | 
{ DIOO { DISP Parameter Routine j 
j PYOO { PRI Parameter Routine | 
{ USO0O | USER Parameter Routine 4 
J DEOO { DEV Parameter Routine | 
{ FIOO { FID Parameter Routine { 
| NOOO {| NOD Parameter Routine i 
i VSOO {| VSC Parameter Routine | 
| VEOO | VER Parameter Routine | 
‘| FDOO | FEED Parameter Routine | 
| PWOO ij PwD Parameter Routine j 
| IDOO | SYSID Parameter Routine | 
{ XEOO { XDEST Parameter Routine | 
| LSoOo | LDEST Parameter Routine | 
i PUOO | PDEST Parameter Routine i 
{ NTOO { NTFY Parameter Routine | 
( ia trilinear isi rede ee EE | 
c ae aa aaa aaa SS ee ed 
{ Called by | 
}—______-_- +. OH 
| Module | Description | 
t ee ee ee Se ed 
| LIPWSSLR { Logical Reader | 
L jai a mc cl ei ei ic a igi i ints Tc em it a se eee eet tt em Si i ei aati hee in ena sessed 
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és 
{Labels {Chart SC: [PW$$SC - Scan Reader JECL {Modified Data j Reg. jCalls 

{ jStatement {Fields [Usage | 
 [eaetanstesteatieinctenertnteesienterteatentacatetenuatetenteteeetatnatemementeteatees a a a a a a ee es 
SASD {The first 16 bytes constitute the 


{section descriptor: 
l 
}*SCCS release't 
| 
{The following register contents are 
jcelevant at entry: 


to 
© 


I 
l 
\ 
| 
{ 
| 
| 
{ 
QO: address ot end of statement to | 
be checked | 
| 
| 
\ 
{ 
{ 
| 
{ 
{ 
I 


=_ 
es 

Ys] 
= 


address of parameter to be 
checked 


| LPWSDOR 
| IPWSDPA 
| 

| IPWSDTC 
[| IPWSDSV {R13 
| {R15 


address of queue record 


own 
ee ef 
bo to 
= 
© 


—_ 


address of VSE/POWER permanent 


area 


Lo} 
- 
_ 


address of TCB 
address of task Save area 


2 od od 
(nN lo = 


base address IPWSSSC 


Define Format: 


a ome ee ee ee ee eee ee 


{ 

| 

{ 

I 

{ 

i 

{ 

I 

{ 

{ 

{ 

| 

I 

I 

| 

\ 

i 

\ 

| 

{ 

| 

|ScoQ {Caller's registers are saved. { LPwSSAV 
| {Parameter registers 0 and 1 are savedj 
H {in registers 6 and 7, respectively. | 
| { 

{SCcO2 {Register 4, to be used in subsequent 
| {error indication, is set to 0. 

{ | 

| {Register 3 is set up to contain the 
{ {machine length of the field to be 

i {scanned for the current parameter, 
{ 
{ 
{ 
I 
\ 
l 
{ 
{ 
| 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
\ 
{ 
{ 
{ 
{ 
I 
\ 
{ 
| 
l 
{ 


fo oo 
IoD 


bs) 
+ 


{being the field starting at the 
{parameter address passed and ending 
fat the statement end. 
| 

jWith a translate and test 
finstruction, the delimiter of the 
[parameter is found. 

| 

{If no delimiter found, branch to | 
jcheck form SWitchs ssa aces cdeiwsssicce? [SC 12 
I { 
(The value, stored in register « by | 
jthe TRT instruction, is now used as af] 
Jbranch index to the appropriate { 
{routine: j 

i 

4s '=' delimiter, branch to process| 


R1,Rz 


eee eee oe 


Key WOTd “LOCUS os. 606d edie sais we ewer tocz0 


© 


{ 
I 
| : ',' delimiter, branch to process| 
| positional form.......2.....225->4SC50 
(12: ' ' delimiter, branch to process| 
I last parameter... 2... ee eww ee eee >4SC10 
(16: ')' delimiter, error branch ...>|S5C90 
f 
Sc 10 {The last parameter switch is turned | LWPI (iPWSDTC) 
(ON... | 
l { 
{A branch is then made to process | 
\ 


—— ei i eee me eee oe ae aa 
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Labels {Chart SC: IPWs$SC - Scan Reader JECL {Modified Data i keg. jCasis 
| {Statement {Fields {Usage | 
Sctz2 {This routine is entered if no | 


[delimiter was found before the end of| 
jthe statement. Theretore, register 1| 
fis not set to the delimiter address | 
joy the TRT instruction. \ 
I | 
{Register 1 is set to the end of i 
jstatement address. \ 
{ 1 
{ 
{ 
| 
| 


ae Om Be Om ee i om ee oe ee BE ee Ok ee Be em oe Oe ie ee ee ee ee ee oe ee ee ee a oe oe oe me em oe oe 


| 

{ 

{ 

\ 

| 

{ 

| 

\ 

{ 

{If the form Switch has been Set to 

\ {keyword form, pranch to diagnose an 

| jinvalid StateMeNt.wz..e nese ecw snaee> | SC86 
\ 1 
{ {Otherwise, if register 4 is hegative,| 

| {indicating a parameter in error, { 

| {branch to handle the parameter betore| 

| OKT so Siw ah wiaid.c e's esa ees Cas Be awrew cae bSC10 
{ { { 

| {lf the parameter is not in error, the| 

ij {end of statement address is Saved in | 

| {cegister 9. { 

{ { | 

{ {The last parameter. switch is set ON, | 

| jand a branch is made to return to thej 

i {caller..... ewe iS ele lece 6's e Ge ielela wales stat ato f OCIZ 
{ | { 

j {Keyword Form Handling koutine: 

I { 
{SC20 {Temporarily. saving the delimiter 
j jaddress in register 3, the forn 
| iswitch, as previously set, is 
\ 
| 
I 
| 
i 
{ 
| 
{ 
{ 
\ 
| 
{ 
| 
| 
{ 
{ 
{ 
| 
\ 
I 
| 
| 
\ 
| 
\ 
I 
{ 
{ 
i 


ee 
\O 


LWPa (LPWSDTC) 


mo 
& 


bo to 
i ary 


jinstruction, which loads register 2 
[with the appropriate pranch index. 
i 
{Using register 2 as branch index 
|cegister, a branch is now made to the| 
{appropriate routine: { 
| 4 


— oo = ee ee oe Oe oe oe ee ee ee ee ee ee ee ee eo oe ee ee ioe 


| 
i 
i 
j 
jexamined using a tranusiate and test | 
| 
| 
| 
{ 


4: 'keyword', branch to continue..>|SC30 
: ‘'positional' branch to process {| 
STloOr SitUA CT Osa awks sce gare wanie> 1[5C26 
12: biank {not set), branch { 
to process first keyword { 
PALAMETCL see ses cvccccsesessecssr {SCZ 


16 Logic error, branch ....2.2-+.2-+.2-.>4SCSD 


Forms Switch is set to 'keyword'. LWFS(IPWSDTC) 


| 
{ 
| 
{ 
{ 
{ 
I 
{ 
l 
| 

{Branch to join keyword parameter. 

{ PLOCESSING.ccccssccasccwsscssccssewe? 

I 
SC26 {Register 11S incremented by one to 

[point after the delimiter. 

I 

{Register 4 is made negative to 

{indicate error. 

{ 

{A branch is made to scan next 

PdelLiMitern cw ec ce asec sacs cccsscwscsesar>|SCOZ 


SC30 


—o_ me oe oe 8 ee ee ee 
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Labels {Chart SC: IPw$$SC - Scan Reader JECL iModified Lata | Reg. {Cails 
{ j Statement jFields {Usage | 


‘ 
{ 


4SC30 |Register 3 is set up to contain tne | 

j {length of the keyword to be examined. | 

( l- i 

{ {If zero, branch to indicate error...>{SC80 
l | | 

| jOtherwise, register 3 is decremented 

| |by one to contain machine length. 

{ | 
{ {Register 8 is initialized with the 
{ {start address of the keyword table. 
1 | 
1SC32 |The keyword parameter is now checked 

{ {for validity by comparing it to the 

| |valid keyword entries in the keyword 

| {table. 

\ | 
{ {If end of table has been reached, 

1 {branch to indicate invalid 

i |keyword....... Pe a ree a eee 4 
\ | 

| |Otherwise, if the keyword parameter 

| Jis equal to the keyword table entry, 

{ [branch tO CONtINUC... sea seenvecnae «a> 
i | 

{ {If not equal, register 8 is 
| 

\ 

\ 

| 

\ 

{ 

i 

{ 

{ 

i 

l 

{ 

{ 

{ 

{ 

| 

| 

| 

{ 

{ 

I 

I 

i 

| 

| 


a) 
w 


bo 
(ee) 


bo 
© 


| 
| 
| 
| 
| 
H 
4 
i 
| 
| 
| 
| 
{ 
{ 
| 
| 
{ 
1 
| 
i] 
{incremented to point to the next: | 
ikeyword table entry. { 
{ | 
{Branch back to check with next | 
PONEE YS 6 ered oe wae estasete ead edeis heer s net ed 
| 

i 

{ 

{ 

| 

| 

4 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

{ 

| 


bo 
w& 


SC 33 {Register 3 is incremented by one to 
iget the real keyword Length agaiL. 
| 
{If unequal to the keyword length of 
Jthe matching entry in the keyword 
{table, branch to indicate invalid 
| Keyword... ee.nese Se eCe Seda aes Ss a20e? 
| 

Sc35 |Preparations are made for the 
{parameter value check. 

\ 
{The branch index used to branch to 
{the appropriate parameter check 
jroutine, is moved from keyword table 
fentry to the TCB. 

l 
{Register 7 is set to point to the 
|start of the parameter vaiue. 
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SC38 


Sc40 


Sc50 
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{Chart SC: LPwS$$3SC - Scan Reader JECL 
{Statement 


{Register 1 is set to point to the '='| 

jdelimiter to be used to address the {| 

{parameter value field about to be j 

|scanned. { 

| I 

{Register 3 1s set up to contain the | 

{machine length of the remainder of { 

{the statement to be scanned. | 

| i 

{if the real length is zero, branch to] 

|Jset last parameter Switch.........22.>|SC38 

(Otherwise, scan for the next I 

{delimiter (comma or blank) | 

1 i 

{if not tound betore end ot statement, | 

{branch to indicate iast parameter...>{SC38 

I { 

{The scan has set a branch index in i 

{register 2, to be used to branch to j| 

{the appropriate routine through the | 

{following branch table: i 

I | 

delimiter, branch to ..2....>j4{5C36 

delimiter, branch to ...... >4sc45 

delimiter, branch to ....2..>{4SC40 

delimiter, branch to ...... >1Sc45 
| 

{Register 1 is set to point to the endj 

jof the statement to be scanned. { 

i 

{The last parameter switch is set ON.. 

| 

{A branch is made to the appropriate j| 

{parameter routine..... ep ere waeese>4fSC70 


4 
8 
12: 
16: ) 


— a mm 


i ! 

{lf Ist byte of parm. not '(* ....2.2.>)5C90 
{Load pointer to '(* and branch ..... > {SC36 
{If Ist byte of parm. '(', branch ...>4SC48 
{If delim. is cc72, branch .......+0->4SC40 
(if blank after delim. ',', branch ..>j4SC40 
JIf no previous delim. occurred .....>4SC36 
{If previous delim. was *,', error ..>jSC90 
{Check tor cc72 and blank, branch....>{SC47 
{ ! 
{Positional Form Routine: 

i 

{The form switch is checked and, if 
{necessary, set. 

{ 

{Saving parameter address in register 
{1 temporarily in register 3, the 
jforms switch is tested using a TRT 
finstruction.. 

I 

{The value left in register 2 by this | 
{instruction is used aS a branch index] 
jto branch to the appropriate routine | 
{through the following branch table: | 


—_—__ ae Oe oe oe oe Ee oe 


iModified Data 
{Fields 


i 
l 
i 
| 
i 
i 
\ 
l 
l 
l 
{ 
i 
i 
l 
i 
i 
{ 
i 
| 
l 
i 
l 
i 
l 
i 
{ 
1 
| 
{ 
i 
{LwP1(IPwsDTC) 
t 
i 
| 
l 
l 
1 
i 
( 
| 
i 
i 
l 
i 
l 
1 
( 
i 
i 
i 
{ 
i 
| 
i 
l 
i 
i 
j 


bo 
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bo 
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bo 
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bo 
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R1,R83 
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Labels [Chart SC: IPW$$SC - Scan Reader JECL {Modified Data iReg. {Calls 
| | Statement {Fields }Usage | 
{ ce a ee cme ree re eee te cme me ee me re ce ee ee ene ee cee ee ae we ee ee mee nee are ee ee ee ee are ce wee ee mee ree cre wee me wee ee me rm ee mee eee ce mete ee ee ee ee ee ee ee ee ee te ee ee we ee we ee ee ee we we ee ae ae ee ee 
(sc54 -{ 4: =" delimiter, branch to i | | | 
| | indicate invalid parameter in { | f | 
| | K@YWOLG MNOdC.i wes esese case sess ec? {SC80 | j 
| | 8: ',' delimiter, branch to i | 
| | Continue CheCkis sc eeskiwcddaw see > [SCO | { | 
| fi2: ' t (not set, first parameter), | | 
| | branch to set forms switch to | | { | 
| { positional........ gob ose ee we? | SC56 { d i 
| | | { | 
{SC56 {The torms switch is set to positional {LwFS (i1PwS$DTC) { j 
1 iforn. | i i i 
l | | { dl d 
{ |Parcameter Syntax Check Routines: | { / 
I | 1 1 { ( 
{SC70 {Parameter address in register 1 is | j {R1 i 
| jsaved. Branch index is loaded in | { {R2 | 
| {register 2 from the TCB. | { | 
{ | { \ | I 
{SC72 {The branch index will now control i | id { 
{ {branching to the appropriate | { Ad i 
{ {parameter check routine: | | { | 
( { | 4 i { 
{SC100 {Branch to CLASS parameter | | | d 
| PCOUCTNE. 2. 22 we ace se ae awww wwe eee sees | CLO | i { 
{ \ { | d i 
1SC101 {Branch to JNM parameter routine.....>|JNO00 | | r 
| | | | 1 | 
4SC102 {Branch to DISP parameter routine....>|Di00 ‘| { i 
| { | | ] | 
{SC 103 {Branch to PRI parameter routine.... ->}{PYOO j j 
I t 1 | 1 i 
{SC104 jBranch to USER parameter routine....>|US00 | “d i 
| { | l 4 z | 
{sc105 {Branch to DEV parameter routine.....>|DEOO | d | 
i i | \ i 1 
{SC 106 {Branch to FID parameter routine.....>|F1i00 { 4 | 
{ { \ \ i { 
{Sc107 ‘'|Branch to NOD parameter routine.....>|NO0O0 | | { 
| | I | i | 
4SC108 {Branch to VSC parameter routine.....>|VS00 | j { 
l ‘| I l i l 
{SC109 {Branch to VER parameter routine.....>|VEOO j { j 
{ | | 7 i | 
1SCc110 IBranch to FEED parameter routine....~>j|FDOO { | { 
{ | | \ i { 
4SC111 {branch to XDEST parameter routine...>|XDOO 7 | i 
| i | { i id 
4{SC112 {Branch to LDEST parameter routine...>jLDOO | | | 
| { 4 | 4 { 
{sc113 {Branch to PDEST parameter routine...>|PDOO | | | 
| | | \ i | 
{sc114 {Branch to NTFY parameter routine....>{NTOO | | j 
| | I i \ i 
4{SC116 {Branch to PwD parameter routine.....>j|Pw00 | {| 
f | | i { | 
{SC117 {Branch to SYSID parameter routine...>|jIDG0 i i ‘ 
1 | l { A 
Dame me a a a ee a ee a ee a a a ee wr ew d 
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{Labels {Chart SC: IPWS$SC - Scan Reader JECL {Modified Data | Reg. jCailis 

| [Statement {Fields (Usage | 

| EOE ooo mc mee mare mee eee ne ce ce me ee ee ce we ree ee ee mee ae me me me me i me me em re a ee ne eee ne me ne me ee ere ee ee ew ee em ee me ee re ee are we ae ee ee we ne ee ee ee ee ee ee 
| {Class Parameter Syntax Check Routine: 

{ | 
1CLOO {It not JOB statement, branch ws.00.2-.>)CLO2 
| | 
{lf statement has keyword form ......>j|CLO5 
{Otherwise, set the last parameter | 
{switch ON, and branch ...62 eer ewwe se >fCLO5 
{ \ 

{if not CTL statement, branch «ww4.4.0464.> | SCID 
| | 
CLOS5 {If CLASS parameter not already | 
{specitied in current statement .....>{CL10 
{if already specified, and current { 
{statement is CTL statement, branch toj 
{flag invalid parameter... 222-42 eee > (SCID 
{if JOB statement, reset CLASS value j| 
jin queue record to default. { 
[Register 7 is loaded with address of | 
[start of keyword, and branch .......>{SC9O 
| 
|CLASS parameter identifier Switch is | 
{set ON. The parameter length is set | 
{in register 3. | 
{If parameter length zero, branch ...>|SC9I2 
{Otherwise, if more than one, branch | 
{to check two characters... .snccesens >| CL30 
{A one-character CLASS parameter | 
{should be any of the following i 
{characters: A-Z, or 0-9. { 
{ 
1 


~~ 


LWP1 (IPW$DTC) 


io) 
tt 
fo) 
N 


QRCL(iPWSDQR) 


Q 
mo 
_ 
© 


LWP (IPWSDTC) 


— eee ee eee eee 


{if CLASS parameter indicates 

jautostart class, branch to change 

jdefault class indicator in queue { 
[record according] Yc. s4ee0sceeca ness > (CE20 
{If CLASS parameter is not alphameric, | 

{or if numeric higher than 9, or lower| 
{than 'A*, branch to flag invalid ...>|{SC90 
{lf current statement is not a CTL { 
jstatement, branch to change default | 
{class indicator in gueue record to | 
lvalue Speci fied..6< sas sses wae aie awieee PCEZO 
{If current statement is a CTL. i 
jstatement, change default class value| 

jin TCB. { 
{Branch to return... wc eww eee wae > | SCI2 
{Default class value in current gueue | 
{record is set according to class j 
{vaiue specified. Eranch to return ..>|SC9Z 
{If the CLASS parameter is two 
{Characters long, it should be BG, F1,j 
{F2, ..- Fn. This CLASS parameter {| 
{format is invalid in a CTL statement, | 
{and also in positional form. 


TCCT(LTPWSDTC) 


OQ 
ci 
NO 
oO 


QRCL(IPWSDOQR) 


-_— = we we oe oe EE ee ee ee ee ee Oe ee ee ee ee ee ee ee eee ee oe ee Oe ee ee oe oe ee oe oe ee eR 2 ee ee ee ee ee ee ee ee 
——e— Bw BB &— Se Be wee we ee ee ee ee ee oe ie ee ae ee ee ie oe oe ee ee ee i ee 
oe ee eee ee iia ei 
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c « 
{Labels (Chart SC: IPw$$SC - Scan Reader JECL {Modified Data | Reg. {Calls 
| jStatement {Fields {Usage | 
j ee nt ee cee ee ste cae ae me eee cae ee ie at ee ee ee ee ae cere we ate cee nee cae ee ee ee wee wee ee wee ee ee ee ee ee em cee ee we ee oe ae we ae ee we ee ee wee ee ee ee ee re ee ee ae se ae ee ae ee re ee ee ee ee ewe a ee a 
ICL30 {If CLASS parameter is longer than 2 | i 
|characters, branch to flag invalid j m| 
{| PALTAMECEL. wwe cwecvccrcccsrccsesccsseeer| SCID { 
I | i 
{If current statement no JOB d f 
{statement, branch to flag invalid { | 
| PaTaNeCter ow. ssi se cee Geseaweign we eww ses (SCI0 ] 
| i | 
{If current statement is in positionalj i 
jform, branch to flag invalid j j 
[Paranetler i. .k es peek oie ee aie sewer £5C90 i 
( { 1 
CL4O {if parameter is not a supported i d 
{partition, branch to flag invalid { | 
{[PalaMmeters sss es ce ssw dows scaescues age >| SC90 j 
\ 1 i 
{Else, change default class value in j| QRCL(IPwsDQR) i 
{queue record to 'O* (for BG) or fn‘ ( j 
{(for Fn). i 
{Branch to CeturNns.. sac cece sonaaeseesrA4SCI2Z i 
| i il 
{JNM Parameter Syntax Check Routine: { 
j i 
JNOQO {If current statement not JOB 


|statement, branch to flag invalid 

[| PALTAMECE Ls 2 ww awe rewaewsanesecseseeza> 
I 

jOtherwise, the branch index. in the 
{TCB is set for DISP, the next 
{parameter if positional form. 

{ 

|if JNM parameter not already 
|Ispecitied, branch to check JNM | 

[ parameter. cw. cece wc ccc ae acnecsrrccceer {INO 
| ] 


sc90 


LWBi (I PWSDTC) 


_—e— oe oe oe oe oe oe oe oe oe oe ee oe ee ee ee ee Re ee ee ee ee ee oe oe ee ee oe ee ee oe 


—_ ee oe oo i oe 


(Otherwise, using register 3 to i R3 
{address the DMB, the default job name| 

lis copied from DMB to.queue record. | QRNM (LPwSDQR) 

i 4 

{Register 7 is loaded with the start {4 R7 


jaddress of the JNM keyword in error. | 
| | 
{Branch to flag invalid parameter....>|SC90 


— ee ee Oe oe BE Oe oe ee te Gk ee ee ee ee ie ee eee ee 


re a cme ee we we ge we oe oe Oe oO ae Oe oe Oe eS oe Be Oe oe OO oe Oe Oe 8 Oe oe om OE ee oe oe = oe 
—m eo ae ee Oe Oe oe oe oe ee Oe Oe ee we ee 
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jbabels {Chart SC: IPwS$$SC - Scan Reader JECL {Modified Data (Reg. {Cals 
{ ‘|Statement {Fields iUsayge | 


{JN10 {The JNM parameter switch is set ON. 
I 

iThe parameter length is calculated in 

[register 3. 

iIf zero (omitted), branch to 

‘{COTUL Noe sea ec eke ues ie wets ae a lates s GS ditae es > 

:. 

{Using register 2 as a work register, 

[the parameter length is compared with 


| LWPI(IPWeDTC) 
{ 
{ 
{ 
{ 
I 
l 
{ 
I 
I 
jthe maximum allowable length of 8 { 
1 
| 
i 
{ 
l 
I 
{ 
| 
i 
| 


-_— me ee ee oe 


SC92 


[bytes. 
{If longer than 8 bytes and not a 
{DOS/VSE job card, branch to oa 


finvalid parameter... ...ssscecvan w2>4SC9I0 


Ls) 
Ww 


jRegister 3 is decremented by one to 
jcontain the parameter length in 
imachine format, and the parameter is 
{scanned for non-aiphamerics. 

l 
jIf non-alphameric characters present, | 
{branch to flag invalid parameter....>j|SC90 
| 1 
jOtherwise, the job name field in the 
{queue record is blanked out. 

{ 
{The JNM parameter is copied into the 


j QRNM (i PWS DOR) 
| 
| 
l 
[job name field. i 
| 
| 
i 


QORNM(IPW»DQR) 


I 

{ 

{ 

{ 

| 

I 

I 

I 

I 

{ 

( 

\ 

i 

I 

| 

{ 

I 

\ 

{ 

{ 

{ 

i 

{ 

| 

j 

| 

| 

{ { 
{ {Branch to return.... Pe ee ee ee ae 
\ { 

| {PWD Parameter Syntax Check Routine: 

{ | | 
| PwOoOo jIf current statement not JOB i 
| |{statement, branch to flag invalid | 
| {parameter...... sob da tae aides sical ets eae weew eo > 4 SCI90 
{ H | 
H {If PwD parameter not already speci- | 

| {fied, branch to check PWD parameter.>|PW10 
i I { 

| {Else set default password. of zero andj| 

{ {branch to invalid parameter routine.>{SCyY0 
i 

I 

{ 

( 

I 

l 

I 

H 

| 

1 

i 

I 

1 

{ 

I 

| 

\ 

{ 

| 

{ 


{ j 


QRPw (ITPWd DOR) 


PW10 {Set password parameter indicator. { 
{The parameter length is caiculated { 
Jin register 3. If zero (omitted) | 
{branch to return........ boone aib-0 (be. ce erie >4{SCI2 
| \ 
{If longer than 8 bytes, flag as i 
[DOV ALT Gis aie eee veieo sare 5 eve wie ade ep atte sod oC7O 


I 

{Register 3 is decremented by 1 to: 
{contain the parameter Length in 
{machine format and the parameter is 
{scanned for non-alphamerics. 

{It non-alphamerics present, branch . 


— a oe ee ee ee ee ee ee i eee ee a oe oe oe ee eR 


—_—se ee oe ee ee ee oe i ae eee ee ea oe eee 


[tlag ‘invalid parameter ss sc..4acscaws Scy0 
{ 
{Otherwise the password field in the QRPW(iPWSDQR) 
{queue record is blanked and the new 
{password moved in. 
SC92 


o_o we ei ie 


{Branch to return... 2.222 see aae ee > 
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{Labels 


ee ee ee ee ee Eee 


ID 


HI 
oO 


=) 
EI 


ee re me ree ne ae ae me ae wre oe me me ar me ee wee ee ee me ne re nr er eee ne ee ee ae ee ee ee ee ee ewe 
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00 


-_ 
© 


H 
oO 
© -_ 
© on 


{Chart SC: IPW$$SC - Scan Reader JECL 
{Statement 


{SYSID Parameter Syntax Check Routine: 

{ i 

{if current statement not JOB state- | 
{ment, branch to flag invalid 

| PALAMETCL 2 ans cca sewscewcceccsesecces > | SCID 
{ I 

{if SYSID not already specified, { 


{branch to check SYSID parameter.....>{1D10 
{Otherwise indicate no target | 
{| processor. 


! 
i | 
iR7 is loaded with the start of the | 
{keyword and a branch is made to flag | 
jinvalid parametel..wsccnsevecesesnsear> 4 SCID 
\ | 
{Set SYSID parameter indicator. { 

\ 
{The parameter length is calculated { 

jin R3. 

Jif zero (omitted) branch to return..>|SCY92 
\ | 

{if longer than 1 byte, flag as | 
(eV a Liss oo: 65.s05 es oes bi eia oes ow owe ew eines a > 4 SC I0 
\ | 

{if no target-id wanted set SYSiD in jf 
{queue record to zero and return....->|SC92Z 
{ | 
|Check that the SYSiD is between 1 andj 

{9. df not, flag aS eCLrorsssicas seeee fSCIO0 
| i 
{Otherwise.update SYSID in queue 

{record and return...... ais 2 ese wae ore > | SCIZ 
| 1 
{|DISP Parameter Syntax Check Routine: 

{ 
{Ili current statement is not a JOB 
(statement, branch to flag invalid 

{ PALAMECEL.s owen e anaes ene ew eran ecaseanee? 
I 
{branch index in TCB is set for PRI, 
{which is the next positional JOB 
{parameter. 


| 
1 
| 
{sc90 
| 
| 
{ 
4 
{ | 
{if DISP parameter not already { 
{specified in this statement, branch | 
PEO COMET NU Cis wis seis wo e.e9 Ue we i a ere eie eee eee | 
| | 
{Otherwise, default value 'D' (for | 
{dispatchable) is set in the queue j 
{ record. { 
{ . | 
(The address of the start ot keyword | 
{DISP is loaded in register 7, anda jj 
{branch is made to flag invalid t 
[ Parameters. 265526 oe sb S bo he tw eee | SCIO 


DI10 
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jModified Data { keg. jCails 
{Fields {Usage 4 


QRSID (IPWSDQR) 


2 

i 

i 

( 
I j ! i 
i 4 i i 
{ 1 i i 
| i i | 
i l l i 
1 i ‘ l 
i i l i 
i { I | 
l i i | 
l \ \ i 
i i l { 
i (R7,R3 | \ 
i i i \ 
i \ l \ 
{ { i i 
| l \ { 
i I { i 
l (ks I 1 
i | \ { 
\ i { \ 
i { i i 
l | i \ 
i i | i 
i l j ( 
l i i i 
IYRSID (LTPwWSDQR) { i { 
l i j i 
{ i | i 
i 1 i | 
i I i i 
{QRSID (LPWSHDOR) j j { 
i | i i 
j i i { 
I l \ i 
| l 4 i 
| { i | 
| \ i i 
I ( i i 
i j | ( 
{LWBI (1 PwS$DTC) j | | 
| { i i 
{ i l i 
i { i i 
| i i { 
i i 1 i 
{ { l i 
i i | i 
l \ i I 
l l l i 
JURDP (LPwdLQR) | | i 
i | \ i 
{ 1R7 { i 
j 4 i i 
l \ \ { 
l i { | 


' 
! 
' 
{ 
t 
t 
t 
! 
' 
f 
{ 
1 
| 
! 
| 
| 
! 
t 
' 
| 
' 
t 
' 
t 
' 
| 
t 
I 
t 
j 
' 
i 
' 
t 
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‘i Dabels {Chart SC: IPw$$SC - Scan Reader JECL iModified Data j Reg. {Casis 
{Statement | Fields {Usage | 
Di10 {The DISP parameter identifier switch | LwPI(IPwSDTC) 
{is set ON. \ 
{The parameter length is caiculated inj 
{cegister 3. | 
{lf zero (parameter omitted), branch | 
[£0 TOCULN sake eet soko owes Swe s oa wer fOC8Z 
{if greater than one, branch to flag jj 
L2OValid parametersias.sccucsd cca naan a? 1SCI0 
{Otherwise, if the DISP parameter is Dj| 
{ (for dispatchapnle), H (for hold), K | 
| (for keep), or L (for leave), branch | 
[EO “<COREARUC. < cieena wae a ewsd a idaee wer | D120 
{Otherwise, branch to flag invalid i 
[-palametet. «../so us she cases tewiwwaeuen cr [SCIO 
{ ! 
Di20 {|The DiSP parameter value is moved to | 
{the queue record. 4 
{Branch tO LetulCh.s.. cw ssc acvcsavseeer> {SCIZ 
{ { 
{PRI Parameter Syntax Check Routine: 
{ 1 
{if current statement is not a JOB { 
{statement, branch to flag invalid 
(PAVaAnetere <j .gea8 acawuwsncusawdnas of S690 
JOtherwise, the branch index .in the i 
{TCB is set for CLASS, being the next | 
jand last positional JOE parameter. | 
{if PFI parameter. not already { 
{specified, branch to coatinue.......>|)PY10 
| Otherwise, using register 3 to i 
jaddress the DMB, the default priority| 
{value is copied from DMB to queue i 
{cecord. | 
{Register 7 is decremented to point to| 
|jthe keyword start, and a branch is | 
{made to fiag invalid parameter......>{|SC90 
I 
{The PRI parameter identifier switch | 
fis set ON. i 
|The parameter itength is calculated inj 
{register 3. j 
{if zero (omitted), branch to | 
[ECU s4 6s 6 hs Shue hos ssa ee awww er OCo?e 
{If greater than 1, branch to rlag | 
fibvalid PpParaneter.swacw soso asia, aweeeare> {SCID 
{It parameter less than '0', branch to| 
{flag itvalid parameter..... 2022202227 45C90 
{if parameter greater than '9', branch] 
{to flag invalid parameter.........2.>)5C90 


QORDP(iPWdDQk) 


as] 
KS 
oO 
o 


LWBhi(IPWSLTC) 


QORPY (IPWSLDOQR) 


ae) 
< 
a 
oO 


LWPi(iPWSDTC) 


{ Otherwise, the priority value i QRPY (LPwSDQR) 
{specitied is copied into the queue | 
j{cecord, and a branch is made to 1 


PretU Tau dde2 Uchcien Goud cea dewaeaces D4SOI? 
{ l 
{USEK isMtormation Parameter Syntax Check Routin: 
| { 
{Valid in keyword form only. \ 
{This routine is divided into two { 
|segments: j 
{One to handle unquoted user | 
{ 
i 


ee 


jianformation, and one to handle user 
{intormation within quotes. 


Sm cme re crc me ce mee cee cee mee mm meme ee ce ae a re me sae ee ee ce ec ce we we ee ee re ee ee re cee cee ee ee cee ee ee ee me ee re re cere me ae em ee nee mm mae nee ee ee me re ee ee we ee ee ee ee oe re ee 


me ee ee eee ee i ie 
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{found valid. 


{Chart SC: IPW$$SC - Scan Reader JECL 
{Statement 


{lf first character of USER parameter | 
jis not an apostrophe, branch to | 
{handle unquoted USER information | 
PStLiN Go wemc eas awe2s3. aioe ea erste wi@lece-eleeaneo A 
| l 
jOtherwise, register 4 is loaded with | 
{the address of the user information | 
|field in the queue record. | 
{ { 
{Register 2 is set to 16 (maximum | 
{string length), and a link is made, | 
{passing these register values to the | 
[String SCAN LOULINEG. 22.2 aeweneeeee ee > {S500 
| 

{This string scan routine scans the 
{quoted USER information string, and 
{copies a valid string to the queue 
[record. 

\ 

{It passes control back to the caller 
{normally if the scanned string is 


|if invalid, return is made to an 
{address 4 bytes past the hormai 
j point. 


{ 
{If USER string is valid, branch to | 


—_——_— @& fe oe oe oe ee ee oe oe ee oe 


Jcontinue.........-. i, SSeS tgid, eae sie toats ~2>{US10 


{ | 

{If invalid, branch to diagnose | 

(CPOs 42sec eeasoeseecin case ecas eae fUsZ0 

| | 

{Parameter pointer register 1 is saved] 

{in register 9. | 

{ 

jif current statement is not a JOB 

jstatement, branch to tlag invalid 

| parameter........-. ee ee ee > 

l 

{if USER parameter already specified, | 

{branch to fiag invalid parameter....>,US350 

| d 

{Otherwise, USER parameter ideatifier | 

jsWitch is set ON, and branch to | 

[ LStCuras «ses erarei aca S Sihis a a eee eae tea alee ee 

| i 

{Parameter pointer register 1 is saved] 

jin register 9. j 

{ { 

{lf USER parameter not already { 

{specified, branch to bypass setting | 

{keyword pointer regiSter 7...2 202022 > fUS4O 

| i 

{Register 7 is decremented to point to| 

{the keyword start address. | 

| | 

{User information trield in the queue | 
{ 
{ 
{ 


scy0 


f{record is blanked out again. 
\ 
{USER parameter identifier Switch is 

jset ON, and a branch is made to flag {| 
jJinvalid parameter... ... cc sservnseces «->4SC9I0 
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lFields 


te cen cee eee cee em ree ee wee eee ath wee cme rms wee we Se ee wee nm tt oe me eee re re me we we re me ne ee ee ee ee ee we ee ee wee ee ee ee ee ee ee ee oe ee ee ee ee ee a ee ie ee ee ee ee 


LWPi (1 PWSDTC) 


QRUI (i PwsLOR) 


I 
| LWPL(IPWSDTC) 
i 
| 


| Reg. 
iUsage 


bo 
P= 


9] 
iw 


ee 
w 


AC met 


DO Do 
Weary 


- 
J 


ee ee ee te te ne ee eee me ee ne creme cee cee te ee er ie ce ee eee ere ee a sere ee cee sr mee cee ee ee ee me ee ee ee eae a ere re ee re re ee ee nee ce ee ee ee ee ee ee ee ee ee re me re ee ae oe we ee ee we 
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~ 
{Labels {Chart SC: IPws$SC = Scan Reader JECL jModified Data i Reg. {Caiis 
{ | Statement {Fields lUsage | 
40s5s0 {This routine handles an unquoted userj| | | { 
{ jinformation string. | i i 
{ { | i | i 
| Jif current statement is not a JOB { j ] ij 
{ jstatement, branch to flag invalid { | | j 
| [ PALANCTET si iiee e SserwS esa cease sae ceugsawr 15690 j dl j 
| | | i A 1 
| Otherwise, if the USER parameter has | i { 
{ {not already been specified in this | { i i 
j jstatement, branch to continue.......>{US60 { i ij 
{ | | | i ] 
| {if this is the second USER parameter, | | QR7 i 
| {register 7 is decremented to point to} { " { 
| [the keyword start address, anda { i i | 
| {branch is made to flag invalid | i | | 
| | parameter.......... 66 see ae ee eeacsameaa? 1SCI0 | j 
| | ee | | A | 
{uS60 {The parameter length is calculated in| | 4R3 4 
| Iregister 3. ] j j | 
\ { ( { ] \ 
| {If zero, branch to return..... ies atecs >| SC92 | | | 
| i | | | i 
| {Using register 2 as a work register, | / 4 R2 i 
{ {parameter length is compared with 16,/| { i \ 
j jbeing the maximum allowable length. j | | | 
{ { | H | 
| {If Longer than 16 bytes, branch to j | i j 
| {flag invalid parameter....... 20sec ee §SCID j 4 d 
| i. j i | { 
| {Otherwise, register 3 is decremented | j §R3 d 
j iby one to contain parameter iength inj a | j | 
] {machine format. { i j { 
| i | { d | 
{ |The user information string is copied] j i i 
| {to the queue record. 1 | QRUL (A PWSDQR) i | 
i | | ( i | 
j {Branch to return........-. fe ota evate ots >4SCI92 ij j | 
| i { { i | 
| {DEV Parameter Syntax Check Routine: ij i | 
| j | { | i 
{DEOO {if the current statement is not a RDRj j j | 
| istatement, branch to flag invalid | i i 
| (Pal aWetel ysis iu oe awe Sew eeece Seuss >ysc90 * | i \ 
] t i | | | 
j {Otnerwise, the branch index in the ] | LWBi (IPWSDTC) ] | 
| {TCB is set for FID, being the next | | i i 
] |positional RDR parameter. | | { | 
i | i | i j 
j {indicate data file mode processing inj { LWER (LPWSDTC) i i 
{ {the TCB. { { 7 i 
1 | 1 1 | | 
j {if the DEV parameter has not aiready | | i | 
{ lbeen specified, branch to continue >j|DE10 | { i 
{ | l { A | 
| {If the queue record has not peen { | | i 
1 (reserved, branch t0........<- Scat «2->4DE05 { i { 
| (Otherwise, SYSIN mode processing is j | QRER (i PWSDOQR) { | 
| findicated.in the queue record or the | r] id d 
| jcurrent job. | | j i 
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‘Labels {Chart SC: IPW$$SC - Scan Reader JECL iModified Data d Reg. {Cails 
l j Statement {Fields {Usage | 
DEO5 {Register 7 is decremented to point to| | R7 


Jthe keyword start, and a branch is | 
{made to flag invalid parameter......>|(5C90 
| ! 
DE10 {The LEV parameter identifier switch | 
{is set on. | 
| { 
{The parameter length is calculated in| 
{register 3. | 
{if zero (omitted), branch to return >{DE15 
{if the parameter length is not equal | 
jto 6 bytes, branch to test fora | 
flength of 3 byteS...s.es swe sswccnese? | DEZO 
{Registers 2 and 4 are loaded with the| 
jaddress of the cuu field in the DEV | 
jparameter, and a branch is made to 
j{scan the cuu..........., ecw scam aee ee > | DEIN 
{ \ 
DE15 {Reset the data file indication in the| 
{TCB and branch to return........ ween? |SCI92 
i \ 
DE20 {If the parameter length is not egual | 
{to 3 bytes, branch to fiag invalid { 
[PAL AMCTSL. ns weccmesewccsscassese veces? | SCID 
| . 
{Register 2 is loaded with tne address] 
jof the cuu field. { 
{Register 3 is set to 3 for the loop j 
jcount. j 
{Register 4 is loaded with the address| 
jof the cuu. | 


I 
| 
| 
I 
i LWPI (LPWSDTC) 
I 

| 

\ 

| 

{ 

{ 

i 

i 

I 

{ 

| 

| 

| 

I 

\ 

I 

| 

| 

{ 

| 

i 

\ 

{ 

| 

{ 

i 
{DE4O jl£ the value is less than 'A', branch| 7 
| 

| 

{ 

{ 

\ 

{ 

| 

| 

| 

i 

| 

| 

{ 

| 

{ 

{ 

| 

| 

| 

| 

| 

| 

{ 

i 

| 

I 

| 

{ 

{ 

| 

| 


es) 
iN 
6) 
i= 


f 


LWER(LPWs DTC) 


oo 
Ww 


{to tlag invalid parameter......... »->{4{SC9I0 
{if the vaiue is not greater than 'F!,| 
{prancn to check the next character >j{DE50 
{if the value is less than ‘0 or morej 
{than §9', branch to flag invalid | 
{parameter..... ee eiats bias easels eee Jow sata PoCyO 
\ 1 
DE50 {Point register z to the. next | 
{character. | 
1 1 
{If ali 3 characters have not yet beenj{ 
jchecked, return to...... fs eite eee we wee a OY DELO 
{Otherwise, move the parameter value | 
{into the Pws. 
{Translate the EBCDIC value into 
{packed hexadecimal form (xX! vee ure 
{and get it into register 2. 
fIf the queue record has not yet been | 
Jreserved, CeturN CO. .swnanenensacceer4{SCI2 
{If the value caiculated has aiready | 
jpeen set in tne queue record, branch j 
LG TELUS a Sesk coke Se eee oGee Sees eee LoCUZ 
{If the queue record already contains | 
ja physical device address (froma | 
{preceding RDR statement), branch to | 
{flag invalid parameter...........+22>|5C90 
{Otherwise, the packed hexadecinal { 
{value is saved in the queue record ofj 
{the current job, which is addressed | 
{by register 5. | 
{Branch tO LECuCNsc ww assresensrssvcee >4SCY2 


PEDW(IPWSDPW) 


PEDW (iPWSLPW) 


— = a oe 
——_—— a om ee oe ee Oe ee ee oo oe a oe oe eee. i 


[QRER (1PWSDOR) 


—— o-_— = 
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{Labels jChart SC: iPWS$$SC - Scan Reader JECL jModified Lata jkeg. jCalis 
| {Statement | Fields {Usage | 
| a i a me as a wee ne ee we ew ee en a a me we we ee ee es we ee ee ee ee we we ae ee ce ee ee ee ee re ee eee ee re ee ee ee ee ee ee oe ee ee ee ee 
{ {FID Parameter Syntax Check Routine: j j 
1 { { i \ | 
{FiOO jif the current statement is not a RDR| | { 
| {statement, branch to flag invalid i | | i 
{ | Par aNGter .s5545es Fecans swe ewdaxccmeur £5690 | { i 
{ { | | i { 
i jOtherwise, tne branch index in the | | | j 
{TCB is set for NOD, being the next { i | | 
{ {positional RDR parameter. | {| LWBu (iPwoDTC) i 
I I I i { i 
{ {If parameter length is zero { { 4 
| | (ONTEEEO) ss See ce One sa awe eee ete wee LFLIUS | j | 
| | | | i i 
| jlf the first character of the FID j { i | 
{parameter is not an apostrophe, { | i | 
| {branch to flag invalid parameter....>{SC90 | { { 
| { | i 4 | 
{ {Otherwise, register 4 is loaded with | j gR2,R4 | 
| {the address of the file ID in the | i i { 
| [physical work space, register 2 is | | | | 
| {set to 8 (Maximum string length), andaj { | i 
{ ja link is made to pass these register| i { j 
jvalues to the strilg scan routine...>|{SS00 | I | 
{ { | { 4 | 
[The string scan routine scans the { | | 
| iquoted FID information string, and | | { | 
1 {copies a valid string to the physical| i { | 
| {work space. It passes control back | | { 
{to the caller it the string is valid.| { 4 | 
| {if it is invalid, a return is nade to] | 4 | 
{an address 4 bytes passed the aormal | { i { 
{ | point. i i { { 
i | | { i 
{ {if the FID string is valid, branch toj i ij { 
j PCONCINUC.L zc. ewes erence ena nem sscasces >| Fild { | | 
{ | i { | i 
| {If it is invalid, branch to diagnose | { | j 
| PEN CLL OL S56 sisisw ewe be Se es oe wie ww eeewer [FL20 | i | 
| { | { | 1 
(FiI10 {The parameter pointer register 1is | i | i 
{ isaved in register 3. { j {RY i 
I { ! 1 | i 
j {if the FID parameter has already been| j d i 
| {specified, branch to flag invalid ] { | { 
{ | parameter........ SeShes os weréise a wa tee eee (EL30 j i i 
| | i 1 ( i 
{FLI15 {Otherwise, the F1D parameter { {| LWE1 (LPWSDTC) | 
{ jidentirier switch is set on, anda | | { i 
| Jjbranch iS Made to LeturCN.w sc aweseeser |SCIZ j i | 
{ { | | l | 
{Fi20 {The parameter pointer register 1is | | i d 
{ |saved in register 9. | | dkg | 
{ { i 1 \ | 
{ {lf the FID parameter has not already | i j 
| |been specified, branch to pypass ij { j 
| {setting the keyword pointer register | i d | 
| Test ates ees OUtad tis ele ceowens cesar ET V0 \ i i 
{ { | | | I 
{FI30 {Register 7 is decremented to point toj j { R7 i 
| {the keyword start address. | | j | 
Lt 
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c : 
{Labels [Chart SC: IPW$$SC - Scan Reader JECL {Modified Data d Reg. iCalls 
| {Statement {Fields {Usage | 
[=s-=--=-== ce ae one nee Se ne ne Se a ce ee ee oe ee ee ae en ee ee a ae ea ee SS Se SS ares 
{FI40 iThe file identification field in the | | PEFI(LPWSDPW) j | 
i {physical work space is cleared. j | 1 | 
{ I i \ i | 
{ {The FID parameter identifier switch {| | LWPi (I PwsDTC) id {| 
{ jis set on, and a branch is made to | | d { 
(flag invalid parameter... .en wn nc ane ss >45SC90 | { | 
| { i | | { 
j {NOD Parameter Syntax Check Routine: j i { 
\ { | i i { 
{NOOO jif the current statement is not a RDR| { 4 { 
| Istatement, branch to flag invalid { { j i 
i J PALAMETEL. nce sees scasscsscescvccesceer I SCI i i | 
{ { | | i | 
j {Otherwise, the branch index in the { | LWKI(iPWSLTC) j { 
| (TCB is set for VSC, being the next { \ ij dl 
1 {positional RDR parameter. j | J j 
I { i i 4 { 
{ {If the NOD parameter has not already | | d j 
| {been specified, branch to continue >j{NO10 { | | 
| I | | j d 
{ {Otherwise, set the NOD information { {PEND (i PWSDPW) i \ 
| {field in the PWS to default 1. j { | { 
( i 4 | { i 
1 {Register 7 is decremented to point to] | {R7 H 
ithe keyword start address anda j { j i 
{branch is made to flag invalid { | { \ 
{ [ParalNeGter oc icdcc aces esa cosets »2>{SC90 i { 
{ { | \ 1 | 
{NO1WO0 |The NOD parameter identifier switch | {LWPI(iPWSDTC) 4 j 
| jis set on. { { { | 
| I | i | 
j |The parameter length is calculated inj | { i 
j {register 3. j j {Rk3 i 
I { | | j | 
J {If the parameter length is zero | { { 1 
| { (omitted), branch to return.........>{SC92 j i j 
| I i l i 4 
{ [if the parameter length is greater i { i 
j jthan 3, branch to flag invalid { { j | 
| | PALAMeCe Ln 2. swe ceca a rec ce sss cscseee > {SCID | i | 
{ { { | 4 i 
| {Otherwise, copy register 3 into j | {k4 i 
{ {cvegister 4 and decrement register 4 {| 1 j { 
{ iby one to contain the parameter { I d j 
| {length in machine format. { | | { 
I | { | | I 
| {Copy the parameter pointer register 7| | i d 
| jinto register 2. | (RZ { 
Lam ee ee ee ee ee J 
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Labels {Chart SC: IPWS$$SC - Scan Reader JECL {Moditied Data iReg. (Calls 
{ {Statement | Fields {Usage | 


3 
I 
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{ 

{NO20 {if the value of the character 
jaddressed by register 2 is less than 
{'O* or greater than '9", branch to 
{flag invalid parameter... uw se cwre eae? 
i 
{Register 2 is incremented Ly one to 
{point to the next character. 


I 
{Register 3. is decremented by one. 


= 


SCc90 


— oe ee oe 


{if the loop count register 3 is not 
{zero, branch to CONtiNUe.... sewn e eee >| NOLO 
| 

{Convert the NOD parameter value from 
{EBCDIC into packed decimal in the 8 

{byte work field of the physical work 
|space. 

; 

{Convert the packed decimal value of 
{the NOD parameter in the physical | 
{work space into binary, and load it 


i PEDWw (1 Pw DPw) 
| 
{ 
| 
1 
| 
{ 
{ 
jinto register 2. { 
| 
{ 
| 
{ 
{ 
| 
1 
l 


Pa 


—ee ee ee oe we ee ee 8 oe ee BR ee ee 
— oe eee ee ei ee ei ee ee ee i ee eee ee 


ie) 
bo 


| 

| 

{ 

\ 

{ 

| 

| 

| 

I 

\ 

\ 

| 

| 

{ 

{ 

I 

I 

I 

{ 

i 

I 

\ 

| {1lf the binary value is greater 

| jthan 255, branch to flag invalid 

| J ParaMeteLl w~2.caweceaenaccas ia. eh ae Sn Faye > 
l | 
| {Set the NOD parameter value just PEND (iPWSDPw) 
| fobtained in register 2 in the 
{ {physical work space. 
| . 
| 

| 

{ 

| 

{ 

1 

{ 

{ 

{ 

| 

l 

{ 

| 

i 

\ 

i 

{ 

l 

{ 

1 

{ 

I 

| 

{ 

| 

\ 

Ll 


I | 
{Branch tO LetUCN. 2... wa ww sas ces acceeaer |SCI2Z 


| { 
iVSC Parameter Syntax Check Routine: 


i i 
vsoo {It the current statement is not a RDR{| 

{statement, branca to flag invalid i 

[ PALaneCleL ss ss cu cae cen ae ee sens ew uw war foCI0 

I | 

{lf the parameters are not Specified | 

jin positional format but in keyword | 

jformat, branch to continue....... wwe? {VS10 

{ | 

|Otherwise, set the last parameter i LWPI(LPWSDTC) 

j|switch in the TCB. { 

\ I 
VS10 [If the VSC parameter has not already | 

{been specified, branch to continue..>4VS20 

| 

jOtherwise, set the VSC information { 

|field in the physical work space to | 

jthe default value. | 

{ d 
{Register 7 is decremented to point to] 
{the keyword start address, anda i 
{branch is made to tlag iavalid { 
[Dabameters O45:siase de sees nwa ee cat «2? 4SC9I0D 


mi ee a i en ee ee re re er i a i te ee re ee ne ie en ee a ee re ee a a a a a ee ee 


PESC (IT PWS DPW) 
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jChart SC: IPWS$SC - Scan Reader JECL 
{Statement 


{The VSC parameter identifier switch 
lis set on. 

i 

{The parameter itength is calculated in| 
{register 3. | 

{if the length is zero (omitted), | 
[bEanCh £0: LetUrhs +4 assesewcewenasss > /SCI2 
{if the Length is not one, pranch to | 
CORE 1 NUC 24:s:0 5 ose a eee Ge oe Swe Beene PV S30 
{If the parameters are passed ina A 
{keyword format, branch to flag j 
Jinvalid parameter... .... 564520222202 >45SC90 
{if the parameter value (positional | 
jformat) is not 'S", branch to tlag { 
jinvalid parameter... ... ce see we eee ee 2 > 4 SCID 
| 1 
{Otherwise, the volume Sequence check | 
[specified 1s copied into the physicai| 
{work space, and a branch is made. to {| 


Jreturn....s.20- ee eece Pee nee pom weawcer>4SCI2 
{ I 
{1f the parameters are passed in { 
{positional format, branch to flag | 


Jinvalid parameter... 2.22 none asesces o> {SCID 
{if the length is not two, branch to | 


PCONDEINUCS 2 ear cae see cwwsea seer |VS4Q 
{if the parameter is not 'NO', branch | 

{to flag invaiid parameter........ anwar {SCID 
{ \ 
{Leave the default value in the. { 
Iphysical work space and branch to | 

[ GCUT Nis sade ses wes Sie Wises 32m: arms ewe eawier fSCIZ 
| I 
|if the parameter length is not three | 
icharacters, branch to flag invalid i 
{parameter........ Sieh eSjeve ere eae wieewe a eso f SCIO 


{if the parameter is not "YES', branchj 

jto flag invalid parameter... .....222.>45C90 
| | 
{Otherwise, the volume sequence check | 
[fieid in the physical work space is | 
{set to 'S' and a branch is made to { 
JCeCUCN. ww. naw eavrneas Shes eis be's wae weee er? 4{SCI2 
d | 
{VER Parameter Syntax Check Routine: 

| i 

|if the current statement is not a RDik{ 
{statement, branch to flag invalid. 4 

| PAaTAMGEEL.. sc cise ess we owe 5 wen ceva se >| SCID 
{If the VER parameter has not already | 
{been specified, branch to continue >j|VE10 
{ 1 
{Otherwise, set the VER information | 
jfield in the physical work space to | 


|jthe default value. { 
{Register 7 is decremented to point to| 
{the keyword start address, anda j 
{branch is made to flag invalid 4 
{ PALAMECEL.. 2c ec scaawsesrccwssecs we 2ccee2 > {SCID 
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{Fields 


| LWPi (IPWSDTC) 
i 
i 
i 
i 
l 
( 
{ 
| 
l 
l 
i 
dl 


PESC (IPW$DPW) 


PESC (IPw$DPw) 


l 
i 
1 
l 
{ 
l 
i 
i 
{ 
l 
| 
( 
l 
\ 
i 
i 
i 
{ 
\ 
i 
i 
i 
{ 
d 
i 
i 
i 
{ 
| 
4 
i 
| 
l 
i 
\ 
l 
| 
{ 
i 
{PEVE(LPheDPw) 
I 

l 

l 

i 

i 

{ 


Se enn en Ne nN ee ee 
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| 
{ 
I 
' 
t 
| 
| 
| 
I 
is 
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{Labels [Chart SC: IPWS$S5SC - Scan Reader JECL |Modified Data { Reg. {Calls 

{ {Statement |Fieids {Usage | 

{VE10 {The VER parameter identifier Switch | LWPI(IPWSDTC) 
i {is set on. | 
I { | 
i |The parameter Length is calculated in| 
| {register 3. { 
I | ! 
{if the length is zero (omitted), | 
{branch to CeturCNs.. wn ceases sscereea>| 
i { i 
{ {If the sength is not equal to one, | 
i {branch CO COntlaucs sccucine cede cates > | VESO 
\ i i 

{ {Otnerwise, pranch to flag invalid | 

| | PALAME TEL. 2 wes ewecccccsenccccsessreer {SCID 
| { i 

| {if the parameter length is not two, {| 

{ Lbranch. £6: Continues. 245.00 cheese ween 34 VEIO 
{ | { 

iif the parameter value is not 'NC', | 

] {branch to flag invalid parameter....>|SC390 
| { I 

| {Otherwise, leave the default value inj 

| {the physical work space,'and branch {| 

| (TO COC UL Ns 6 ie6 asin sie: 00 0 50ie se. wos ete ete aera 1 SEIZ 
1 { i 
{VE30 {if the parameter length is not three, j 

i {branch to flag invalid parameter....>|SC90 
{ { i 

| Jif the parameter value iS not 'YES', {| 

l {branch to flag invalid parameter....>|SC90 
1 { 1 

| {Otherwise, the verify field in the i 

i {[physicai work space is set to 'V', i 

j Jand a branch is Made to return...4.4.> | SC92 
1 ! i 

| {FEED Parameter Syntax Check Routine: 

I 
| 
{ 
{ 
{ 
| 
{ 
| 
{ 
{ 
| 
{ 
{ 
j 
| 
I 
| 
I 
| 
i 
{ 


PEVE(iPwaDPw) 


1 1 
|FDOO {lf the current statement is not a RDR| 
statement, branch tos. .4 226 oe cee sw 1SCIO 
I { 
iif the FEED parameter nas not already| 
{been specified, branch to..........->|FD10 
| I 
{Otherwise load the address. of the { 
jmaster record in register 3. | 
I ! 
{Clear the option FEED in PwS. { PEOP (1 PwdDPw) 

1 | 
{if tne option FEED in the master { 
j{cecord is not on, branch to.........>j,FDO8 
{ I 
{Set the option FEED in the master | 
(record. | 
l { 
FDO8 {Register 7 1s decremented to the. | 
{point of the keyword start address, | 
{and DrancCh tOcss.w sew nse asec acccscesce > {SCID 


PEOP (iPw»DPW) 
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JLabels [f{Chart SC: IPWS$SC - Scan Reader JECL {Modified Data { Reg. {Cails 
| (Statement . , {Fields jUsage | 
| tee ne ee mem cme i we eae ee ee ne ae me ee we a es ae a ee ee ee ee ee ea ee ee a ea ae a a ne we ee ew me me me nm me re ce ee ee ee ee re ee ee me oe ee ee eee 
{FD10 {The FEED parameter identifier switch | { LWPI(IPUSDTC) { i 
{ {is set on. i | ( i 
| {in cegister 3 is the length of the | { i R3 i 
{parameter, if zero, branch .........>{SC92 | { { 
{FD20 {If the Length is greater than two { | | | 
{ Icharacters, branch COs oo cece ewe owen >| FDIO | | | 
{ I i { { | 
| {lf the parameter is not 'NO', ...2.2.>{SC90 | j ij 
| | { \ l { 
| {Clear option FEED in PwS, branch ...>{SC92 {PEOP(IPwWSDPw) | H 
| { l | i | 
{FD30 [If the length of the parameter is | { j j 
Igreater than 3, branch to.......-.-- >| SC90 | | j 
{ i | { di { 
| [if the parameter is not 'YES*', brancn|Scg90 | | | 
| I I | | | 
| {Set the option FEED in PwS and branchj{SCc90 | PEOP (1 PWS DPw) { 1 
{ | | { ] i 
| {|XDEST Parameter Syntax Check: | ij { 
{ \ | 1 | 
{XDO00 {I£ not a JOB statement or if the | | i 
| {XDEST parameter has already been | j i | 
{ |specified, branch .......... eee eee ee PD ESCIO | \ i \ 
{ \ { { | i 
{ {Check the parameter and if correct | INJHGXEQN i | 
| {store it in the job header .....2....>{PAND {| NJHGXEQU j i 
| { | i j j 
| {Move XDEST parameters to queue record| J QORTN, QRTU | l 
{ | { { | | 
| {Set XDEST parameter identify switch.>{SC92 { LWPI3 (IPw»DTC) i i 
\ 1 | | j \ 
| {LDEST Parameter Syntax Check: \ | j | 
I | I | i 1 
{LDOO {If not a JOB statement, or if the | | i | 
| {LDEST parameter has already been ] { i { 
{ (Specified, DranChssstsicsnes owas suaw or [SC90 | { i 
\ | I { | 1 
| {Check the parameter and if correct | {NJHGPRTN | i 
| {store it in the job header ..1.....2..>{PAND {NJEGPRTR j 
{ I I | i] ( 
| {The LDEST parm. switch is set ON { {LwPi3 d i 
{Branch...... die'eie esis Sele eieie sa este aietescleeee LOC IZ i | | 
| ‘| { | | | 
{ {PDEST Parameter Syntax Check: : | id 
| { | l I | 
{PDOO {if not a JOB statement, or if the | | { i 
{ {PDEST parameter has already, been | j i 
{ |Ispecified, branch.... wWettnie we mete wae es SOCIO | | { 
{ { | | A i 
| {Check the parameter and it correct | | NJHGPUNN { | 
| {store it in the job header ..... wee e>| PAND { NJHGPUNR | | 
{ | \ { i 
| {The PDEST parm. Switch is set ON | {LWPi3 | | 
{ [SBD CDicace ele e acs ow oe ere oaie elle sare eieeeerers- o> | SC9'2 i i 
| | { \ \ i 
{ (NTFY Parameter Syntax Check | { { ij 
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{Chart SC: IPW$$SC - Scan Reader JECL 
{Statement 


{lf not a JOB statement, or if the | 
|NTFY parameter has already been j 


(specified, branch. 02. cuerenceccere e274 SCIO 


{Save NJHGORGR in NJHGUSID { 


{Check the parameter and if correct | 


{store it in the job header .........>{PAND 


[to the origin remote vaiue (NJHGORGU) | 


{ | 
iThe NTFY parm. switch is set ON { 


INJHGORGR is restored, then branch...>|{SC9Z 


| i 
{Quoted String Scan Routine: 


{Register 1 is loaded with the start 
jaddress of the string. 
I 
{The last parameter switch is reset, 
[because a possible blank delimiter 
{found may be part of the string to be| 
{scanned in stead ot a real delimiter. | 
I I 
{Length counter register register 8 is| 
Jinitialized at zero. i 
l | 
{Register 1 is incremented by one to | 
{point to the next character (the i 
{first time executed register 1 will | 
{point to the first character past the| 
I 
l 
I 
j 
I 
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{opening apostrophe). 
| 
{The address of the byte in the user 
{information fieid in the queue 
{record, that is to receive the next 
{USER string character, is incremented| 
[by one. 
| 1 
[Length counter is incremented by one.j| 
I i 
Jif the next character is an j 
{apostrophe, branch to check for end | 


[OL (SULINGs wsesss SSeS SS eed ca erlaaneo 15530 


I I 
jOtherwise, if end of statement j 
jIceached before end of string, error | 
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{Chart SC: IPWssSC - Scan Reader JECL 
{|Statement 


{if string length greater than maxinunj| 
jaliowed, branch to flush string.....>{5510 


| | 


[|Otherwise, move current character to | 
Iqueue record, and branch to get next | 
| ChALA CCC sc wc cones ewes sane cate ccuncaa? {S510 
I | 
{Register 1 is incremented by one to | 
{point to the next character. ] 
I 
{lf next character is an apostrophe | 
[too, branch to move one apostrophe | 
{to queue record user information | 
[BBS Ledisi cise: ots lente etevecieleie ais ele elese.a weweae [SS:20 
{ { 
{Otherwise, the end of string address | 
{is saved in register 4. 
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{If character following string isa | 
(comma, branch to CONCLNUC. .4 2 s00nwsee >| SS60 
Jlf character following string is a i 
dblank, branch to set last parameter | 
{switch on........ Sieve a waiie eles are beer 1OS:50 
{Otherwise (invalid delimiter), scan | 
dis continued: length counter is | 
lincremented by one. | 
{ I 
{Register 1 is incremented by one to {| 
{point to the next character, anda i 
{branch is made to continue scan for | 
{ 
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i 
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SS50 {The' last parameter is set ON. 
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SS60 {if string is not followed immediately | 
iby a valid delimiter, error | 
fCOCULD sc. aces eeu wswwca eee cee weoee?| (R3) +4 
{ I 
[Register 8 iS incremented by one to | 
Jcontain the true string length. { 
{ l 
{If string length zero, return....+..> | (R3) 
{lf string iength greater than maxinun| 
Jallowed, CLLrOEK LeEturNe 22 222 ce ers cece? | (RI) +4 
jOtherwise, normal return.........2.2..>] (R35) 
i { 
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[Statement {Fields {Usage | N 


{Parsing Subroutine for Parameters in the format =(value,value) 
I 1 
PAND {If Ist char. of parm. begins with | 
Lt" DEANChes000e vaeasae anwseseee ses > | PANA 
| { 
{Handle parm. format=value: 

| 1 

{If last parm. set expected delin. | 
{value to blankmelse to '!,'. Check for] 
{valid value and expected delimiter .>|PARS 
{If unexpected delimiter, branch.....>{SC90 
i | 
{Handle parm. format=(...-) { 

i | 
{Set expected delim. to '," ,BAL «.4.+>|PARS 
{if delim. was ',', branch.......- oaae> | PANB 
{If delim. was not ")', branch...+...>|{SC9I0 
1 \ 
{Handle parm. format=(value) { 

i i 
{Set expected delim. vaiue ')', BAL..>|PARS 
{if error return, Dranch....220200222>45CSD 
{Else branch..... ery eae ee ayaa 'se waocoeee> | PANX 
{ { 
{Handle parm. format=(value,value) | 

| { 
{Set expected delim. value ')*' and | 
[point R4 to the next subparm value..>{PARS 
| 

{If unexpected delim., branch....4..+>|SC90 
{If 2nd subparm (userid) is in remid | 
{format (nnn), then convert to 'Rnnn' 

{ 
{Return to caller 
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{Subparameter Checking Subroutine { 
| | 
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{lf no delim. was found in or after 
{the subparm., branch.....s2-402204 tate 
{lf the found delim. does not equal 
{the expected vaille, Dranchs».....0042>) 
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1. 
PAR3 [If the length of the subparm. is zeroj 
Jthen accept.default value, branch...>|PAR4 
}Otherwise move subparm. to*output | 
{field addressed by R4. 
| 
{Set return code= no error 
I 
PART {Return to caller 
{ 
{Handle unexpected delim. condition: 
| { 
PAR8 {If the unexpected delim. was not a | 
{'*', then branch with return code...>{PART 
iif the '*' is not the first character| 
f{then return with return ooo ohne Neng 
{If the expected delim. does not 
{directly follow the '*', bEaNGhsdgs~> | BART 
j Otherwise branch....... ee wescee>| PARO 
| | 
{Handle no delim. found condition: 
{ | 
PARL {If the parm. was greater than 8 chars| 
jin Length, Dranchiw . 22 22 nce ca ae zee e >| SCID 
{If this was not the last parm. then j 
[return with return code in R2.......>{|PART 
{Otherwise, branch... 2. acta accveseae> | PAR 
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{Labels [Chart SC: LPW$$SC - Scan Reader JECL {Modified Lata {keg. {Calls 
{Statement |Fieids {Usage | 
{Final Processing Routine: 


I 
SC 80 JInvaiid parameter handling. 


{ 

|The length of the rest of the 

{statement scanned tor delimiter is 

{calculated in register 3. 

| 

{lf zero (end of statement reached), 

“DEAN Clive é:a:3:6:0 Sis ies oid aes oe ow Se 6 wis oe wD 

fe 

{A scan is made for the next 

(delimiter. 

| 

{if no delimiter before end of 

{statement, bDranch.....2.. 2.2022 222 ee eo? 

| : 

{The value, stored in register <z by 

{the TRI scan, is used as a branch 

Jindex: 

{ i 

2: ‘'=", branch to continue scan for| 
COMMA nw asec ce cww seam sasaaracaecs > {SC80 

: ‘,", branch to continue....2..2.>|)SC86 

' ', branch to set last { 

Parameter SWAtChe oss once ence ee > {SCB4 

16: ',', branch to continue scan ..>|{SC80 


SC84 


R1,Rz 
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{Register 1 1S set to point to end of 
{statement. 
{Last parameter switch is set ON. 
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i LWPI(iPWSLTC) 
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{Registexr 1 is saved in register 9. 


I 
{Branch to flag invalid statement....>4SC90 


wn 
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{ 

{ 

| 

| 
{Ecror exit: address of parameter in | 
ferror is loaded in register 0O and | 
{made negative to signal error. | 
\ 
{Register 1 is set to next delimiter, | 
{as saved in register 9. j 
| I 
(Branch £0 CX Liioe se ke ow 6e wee dew eens oe 1SCI4 
I | 
{Normal exit: parameter address in | 
{register 7 is loaded in register 0. { 
| ! 
{Address of next delimiter is loaded | 
Jin register 1. | 
| I 
SC9Y4 {Return parameter registers are stored| 
jin save area. i 
{ I 
{Control is passed back to the caller.] 
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The Save Account task is created 
when the central operator has 
issued a PACCOUNT Comagand. 
Information apout the save aed.un 
is passed >y the command d 
processor» he medium may be disk, 
ape, or the VSE/POWER punch 
Fuerss Also a delete of the 
SE/POWER Account file is 
poseable which causes the Account 
file to be erased and an ; 
£0F-control interval to be written 
as_farst control interval on the 
file (to indicate empty data set). 


The account control plock is set 
ap with ail information to read 
the VSE/POWER Account Pile. 


If an ERASE request is issued, the 
content of tne Accouut Pile :5 not 
saved. The IPWSCAF runction is 
invoked to write a Software End of 
File §350F control interval to 
the VSE/POWZR Account File. The 
account controi block is set up to 
reflect the eapty state of the 
account Pile ahd the following 
gaessage 1s issued: 


WQ8OI ACCOUNT FILE ERASED 


A caeck is made if any account 
records are on the Account File. 
If none are found, a message 
indicating that the file 15 empty 
is issued” and the save function 
ter@inates. 


The content of the Account File is 
saved to a user-specified mediua: 
fae (nolabel or standard lapel), 
PBA device, or punch cards. Then 
the Account file is initialized to 
eapty state, and the account 
control block is set up to reflect 
the Account Pile. 
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f NOTES MODULE | LABEL | #EP } 


The *save-Account-file-to-tape® 
routine is invoked when the 
*TAPE® parameters were 

ecified in the PACCOUST : 
commjand. Its purpose is to read 
all control intervals from the 
Account file, deblock it and 
the write alf account records 
to tape. 


The *save-Account—f ile-to-—disk* 
routine is invoked when the | 
*DISK* parameter was specified 
in the PACCOUNT command. Its 
purpose is to copy all control 
intervals from the Account file 
to a user specified dask extent 
of the same device type. 


The *save-Account-file-to-card® 
routine is invoked whea the 
*PpuN® parameter was specified 
an the PACCOUNT Command. Its 
urpose is to read all control 
antervals from the Account | 
file, unblock the account file, 
create punched cards for each 
account-record, and spool them 
to the VSE/POWER punch queue. 


fhe soft wait &8CB on which either 
task might pe waiting on is posted 
4n order to allow it to resume 
processing. The TCS address is 
cieared tO allow other PACCOUNT 
commands to be processed. 
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NOTES 


The disk management block (vNB) SPINIT SESR 
and the AccouhAt control pilock 


The account-function trace pyte in 
TCB 1s set to *O* 
that save account is 
initial ized 


The current block number of the 
Account file as save 
error occurs and the old status of 
the Accoult file has to be set to "A 
restored 


| SODULE | LABEL | REF NOTES 
The extent description bl 


block, are used to read 
VSE/POwER Account File. 


| 
| 
? 
5 
a} 
| =, periees 
_ | 


{ MODULE | LABEL | 
ock 


i 
; iocate control word, CCB and CCws, 
(ACB) are reserved for exclusive located in the account control 
usage in order to prevent 
samultaneous proceSsing with otner 
tasks that are writing to the 
account file. 


the | 
| 


fhe locate control word is set up 


wath following val 


to indicate anterval 


being ~ relative block number of first 
control interval (always 0) 


- indication that read c 
follows 
an case an 


to indicate t 
®open® of account file is 
corm pleted 


VSE/POWER PLM Part 2 





omrgand 


The account-funct ion trace byte 1s 


ues: 
- nuaber of Baa plocks/control | 
hat : 

t 
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IPasSSSP - SPEAPTY Read First Control Interval to Cneck for Bapty Account Pile 
InPur PROCESS OuTPeurT 


Cn | ee ag 
(zk. 


ee on SF-1.0 
—,/ 


[or kead first control interval. 








| 1 
t 
e Paes DEK | 
eeecee > SFPRDCI yo eh 
r—/ i | 
<--~ RO 
If Account File as empty: --[a} | ara | 
> 
A. laform operator that account file is 
eapty 
I B. Unassign tape unit, if neccessary } 
| /——. 
< og IPesSLU 
Update LUB/PUB 
' 





ES A HE RT SE a ee Te 


| C. Release Account control block | 

To SP- eee 
| =: 
| . 


. 












NOTES | BODULE | LABEL | REF NOTES MODULE | LABEL | KEP 
The account control block was } SPEAPTY ‘ If the operator specified a jSULP 
initialized by. the SFINIT routine tape as save mediua, the tape 
to allow the first control unit is now uaassaigned. 
interval of the Account Pirie to be 
read in. The control interval is The Account control plock is SRLE 


Caecked by SFRDCI if it is empty 
or if it Contains account data. is left unchanged. 

keturn is made with a 
displacement to exit the save 


account function. 


| 


Register O 1s ceturned with the 
gener n of the control interval, of 
wath zeros 1f EOP was found. 


Started, put tne Account File 
is empty, tne foliowing wessage 


1s issued: 
1Q831 ACCOUNT PILE NOTHING TO 


I 
released and the Account faiie | 
SAVE | 


| 


| 
If a Save Account task was | 
i 
| 
| 
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EIPWSSSP - SFRDCi 
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ACB 


NOTES 





Pirst tne account-function trace 
pyte in tne TCs 1s set to signal 
*yet-account-record-active®. 

££ nv control interval can he 
obtained, an sOP condition is 
signalled to the caller by setting 
Register 0 to binary zero. 


The stact address of the control 
laterval on tne Account Pale is 

passed ey the caller. A check is 

wade if tne CI can be read, or if 

it fours exceed the file's uppec 
init. 


If a control anterval can be 
obtained, st is read into the 
workarea provided a4 VSE/POWER 
initialization an the GETVIS area 


A wai 4 Aa eXCP and VSE/PUdER 
LPd$SePC ceqguest are issued. Tae 
CcC3, CCWs, and control blocks 
located in the account control 
block are used to perform the 1/0 
operation. 


VSE/POWER PLM Part 2 


Hi cad 


Fro 
Soan annem nnn mnnn nnn fO1} Check if control interval 


APCBP ereeceteesl aaa ae Read control interval. 
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Get a Control Interval from the Account File 


PROCESS OUTPUT 





Caller 
7 





n its into the 
limats set by current CI address and 
upper limit. | 


A. If not, end of file is reached. [eee) 








Check the control interval description 
field of the CI just read. . 


A. If CIDP is not zero: 
Set length of CI in RO. 


fos} Return 
ui 








To Callereee 
e 
=] 


| d 





i SODULE { LABEL | REP | NOTES { MODULE | LABEL | REP i 


If the CIDF contains all zeros, 
this control interval is the 

Sof tware-end-of -f ile (SEOF)} ; 
condition for the Accougt file, in 
which case Regaster 0 is set to 
zero, to Signal #OF to the caller. 


If the CID? indicates a 
data-control interval , whico 
means the CIDF contains not ali 

aster 0 1S set up with 
' of the control 
interval. 


EXCP 


| 
| 
| 


3 The control-interval description 
field (CIDP) of the control { 
interval just read 15 analyzed. 
3a | 

zero, R 

| the fen | 
{| 
| | 


Co pe EE AE yA I SATEEN per SRS Ne r= ree 


er cee ce SE OU ete OE 
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IPWS3SF - SPTAPS Save Content of the Account File to Tape 
INPUT PRUCESS OUTPUT 








e 
e 
[2k >From SF-1.0 


at 
SFDTFTAP [or] x et appre Oe DTFPH for output tape. R4 
: copy skeleton to work area. us pee 
eect ate aaa 1 up for nolabel/standard lapel. ars _? | ' 
a om > Set up PUBS to process mode setting. 4 
$ Upen tape. 
TCS | contented | PUa 


{rcsapa +4 i : annonces | 

TCSAPB sds wee eee 3 < pert 2 SPOPEN > 

| Seria Seeman! -—— ra ISS SEE lee a SME SOI (<n pe 
SF-4.1 

TCh 


2--------- o> A. If any open error occurred, fooe°>[07 ] 
preseht message to central 7 


| Operator and Wnassign tape unit. 





Se rs 


wet re ee rem [oz] Read a control interval from the Account 


APWSESSA | 
Boze foes 


i ccauae 
ecescee > SPADCI 
-———/ 


ace 

es | 

RO | 

| } mr tr te rrr nr n> A. If BOP is encountered: [eee > Vo aN 
ae 


1/O Area 


et Lenytn { 


i 


at 


account records. reper 


a= 
cena | 
PES | 
a | Addr 
ju—— 
< weececsee D> SFDBLK 
SP-U.2 
RY 
[v FP 
| 
_ 


| ARE TT 


I/O Area | | a Sein a ale 
| coer >f03} Deblock control iuterval into its 


ay sitesi eee 


Weate account records to tape. 


4 
' 
4 
' 
i) 
| 
face Nf 
Oo 
£ 


A. If End of Volume not found: 


J 

( 

i) 

i) 

i 
Vv 
ry 
e 
° 

Noe 

emo 
Sc 
ww 


Pen neesevenee 


—--=-->|/05]{ Process End of Voluae. 


4 SP-4.1 


A. eos Pe 


| 


Close the tape to write a papomar 
eiaseage the tape unit, invoke IPWS$SGF 
to woite a SEOPF Pro the Account Pile, and 
to initialize the ACs. 


[o7} Return. 


paca 
< ececevee > SPOP EN 
| 
| 
| 


To erences: 
° 
e 


y’ 


ER Se ST TY RS ers SSS Sp LLNS FE-PE TES Ue ArT PET NERNEY SEP = NE SSP 1A SSS S- TD DGTP Gn GSES SPSS SPY PSPS SC SPENDS? SSE SSNS 


[a Saperstein tte ever wee meer eg oe aerate eto aS | 


542 VSE/POWER PLM Part 2 


Licensed Materiai - Property of iBM 


IPRSSSP - SFTAPE Save Content of the Account File to Tape 





NOTES {| MODULE | LABEL 4 REF NOTES § SODULE j; LAsbEL | KEF 
1 The asseabled DTF skeleton 13 ] eee ars {SRSw 5 The VSE/POWER asynchronous-service { |SPIAP&?7 
copied into a work area. The DTF facility is invoked to establish a } i 
copy 1s then initialized #ath the DOS/VWSE subtask to process the suv } } 
eepe UIs OEmat Ion fr os tne. Command | reguest. { | 
processor. AS nolabe : 
Standard-label tapes can be 6 Subroutines SPUNASS and SFWdTO are {| SFTAPSEN [ 3PCH 
processed, the OTF is set u ! imvoked to unasSigna the tape unit 
according 4 e The user-specified aad to issue this’ aessage: 
tape fens aty as set to the PUB iy 
10791 Account FILE SAVED j SCAF 
pus utzece lee as Bene onous set ice SFTAPE2 j 
acili as invoke Oo establish a ; $CAP 
DOS/VSE” suptask to process the 7 Issue message 1t no storage could { eteetes SGA 
oP ee oe ae  snbtask a waeee be obtained to copy the DIF: | | 
5 sk 2 s' 0 
prevent VSE/PUWER cancellation hg78t NO REAL/PPIX£D STORAGE 
Caused py labei-type processiny AVAILABLE : 
errors. ; 
. | Issue this message 1f an error was | 
2 A control interval may Contain one encountered during open or EOV 
or sore account records. processing of the output tape: 
One control interval as read, and 
BOF 18 signalled by SFPRDCI routane ; 1Q60I OPEN FAILURE ON PAccount 
| to the calier by setting 8&0 to OUTPUT DEVICE 
ZeLO. 
3 The control interval 1S deplocked | sxce SWFC | 
into its account records by SFDBLK | 
routine, and each account record 
is written sequent sally to tape. ; 
When ail account records for 4 
control interval are processed, 
tne next one 1S optained. { 
i 
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Ipws$SP - SFOPEN Open/ZOV Processing for Save Ssedium on FBA Device or Tape 
INPUT PROCESS 


sO 
ene From Caller 


fo] Acquire storage to queue the request for 


vuUTPur 


the subtask. 


If EOV is required: 


tt A. Pass E£OV parameter list and 


----> A. Pass OPEN parameter list and 
{ phasenaae. 


File | 

OPEN eee ame wee ee oe 
' 

3 | 


PuBV fw ao anne -- —---i 


SRb 


> [SkBPARA 


Phasename. 
fe If OPEN is required: 
pea 





99 80 eo ed 08 08 eee Be 90 oe Otay 


——' facility to process the request. 


/-—-———.. 

<" eocecce > IPwSSas 

a Asynchronous 
service 


1 
fost Release storage for service request | 
— block 
To Callerese] 
poet 
*y/ 





fou} Invoke VSE/POWER asyachrun ous-ser vice | 















NOTES } MODULE } LABEL |} REP NOTES | MODULE | LABEL} ; | 
1 Storage for the service request j {SPUPEN [xsi [ 
; : block is acquired and formatted. 
A DOS/VSE subtask is used to 
process the open request fo the Indicate transient fetch 
user*s Poh device and tape, and to requested. j 
process EOV for the tape. 
4 Asynchronous service as called to | SIAS 

As OPEN modules for FBSA are handle the reguest. The task is 
located in the SVA, page faults put 1S wait state until the 
during OP2N time would be : Feyguest is completed. { | 
interCepted by VSE/POWER which in t j 
turn cannot handle thea. _ 5 The storaye is returned to the SALW 
To avoid these problems, a DOS/VSE VSE/POWER” storage pool. 
suptask is used, | 
Sperecoe handiing errors during } 
OPEN/EOV time of lapeled tape Gan 
cause VSE/POWER to be cancelled. 
Gsing a suptask will cause the 
Subtask to be cancelled in this 
case, While the VSE/POWER aaintask 
Still can continue. | | H 
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IPWS$SP — SFOBLK Deblock a CI into :ts Account Records 





Ge 


























IneoT PROCESS ouUTeUT 
oo oe Caller 
| RECPTR a 
<a ; 
| | eon nn ern >for} Is deplocking of current CI already 1n 
progress? 

I/O Area | A. If yes pypass CIDF processing. foe '3[03 | 
| ] RECREST 
CIDF | UC asebaetea ees foul Get number of data pytes for this CI es __? i 1 
——-_____+ from ClLDFP. pew ee ee eg epey 
piaobaada | fo3} Get address of current account record. aw -4 h1 
as Ser H sees See t—4 Get length of current account record. ae | —$ '59 
4 | ; RECREST 
bee ge a cen O4| Update remaining data length in Cl. ? 
. | aimee (aca 
EE a ee ~ | RECPTR | 

5 | | en | \ 
RECPTIR | emmirrer4 05| Save address of next account record. | ere | | 

Seo toco ees 3 
ee ae 
RECREST | | ki5 

2 {06 | Pass remaining data length to caller. =| H } 


— 


{ NOTES {| MUDULE {| LABEL {| KEF NOTES { aODULZ | LABEL 





1 If fieli RECPYR as Zero, a new CI 
has to pe deplockea. 


2 The remaining data length for the 
current CI 28 saved in RECRSST and 
is: decremented each time an 
account record is passed to the 
caller. ' 


3 The length and aduress of the 
account record are passed to the 
caller in registers 0 and 1. 


5 The pointer to the next block | 
behind the one in process as saved 
for late use when the deblock 
routine 18 enterea ayain tor this 
control interval. 


A check is made to determine if 
the current block is the last one 
for tne control interval in 
rocess. If it is tne last one, 
*RECPTR® is set to zero to 
indicate to the deblock routine. 
that a new control interval is in 
precess (the next time the routine 
is entered) - 


To Callereee 
| =] 


eB 
v { 
} | 








3 
& 
be} 





SPDBLK 6 &15 contains the remaining data 

tength within the current CI. lf 
the last account cecord was 
retrieved from the current CI, £15 
1s set to zero to indicate that 
the CI is processed. Upon return, 
the caller may check R15 to 
etre a@ new control interval, if 
R15 is zero. 


Saeed 
oe 


! 
SPDBLK1 
If the save device isa apes the 
address and tne length of the 
account record incliding its | 
header are passed to the call ing 
routine. ‘ ; 
If the save device is card image. | 
for the punch queue, the neader is 
eerie ed off and the address and | 
len of the account record 
without header are passed to the 
calling routine 





eo eres ag rene ene megan ean mS tae oe Ce 


re ere rere manne 
a CD I EER EES IEE I SOL ED NI Ct se SEEN es 
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IPw$s$SF - SPDISK Save Content of the Accoun 


Input 


SPDTPVSK 


| 


TCs 


[TCSAPN } 
____ 


Ch 


APSAPN 
APLOF 


D 





» 


TP 
XTUL 
XTLL 


li 


-----> 


i] 


TP 
PHFCI 


eos ee ee ee et tem 





» 


CB 
APBLF 
APCIF 


| 


i 


Register 0 


co 


AFASPSSA 


1/0 Area 


ial 


eR TT SE PS SD GES SE PIP SE S  SRS <P we Se Sr SG SE eg a PE-ai® SESE SLIT SG SIR 
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t Pile to PBA 
PRUCESS 


vevice 


SF-1.0 


Inatiralaze DIFPH tor output dask. 
Copy skeleton to work area. 
Set fale name to DTP. 


Open disk. 


[nn Ta 
< eeceoe > 
[ pce |} 


SF OP EN 





A. If any open error occurred: 


If extents of save fiie cannot __ 
accommodate content of account Pile: 


nv a 
jo4} Read device characteristics of user’®s 
isk. Se oh 


A. If user*®s file has not same PBA feee > 08 
pirchstee Or CI size as Account &—,/ 
ile: 


8. Initialize CCwWs and control blocks 


for save file. 
[us] Read a control interval from account = Se 
Pile —_----—--- —__——- 
cummed 
< Ree g SPRDCI 
SP-3.1{ 
A. If BOP is encountered: [rss 7 07 


Wreate control anterval to save disk. feos" 05 


[oJ 


| 
> 


Invoke IP#d$$GP to write a SEOF to 
che Becoun Pile and to snitialize 
e e 


eee % 
/ 


Issue aessage to central operator and 
terainate SAVE Account. 


Return. 


ss 


+7 
v 


To SF-1.0 


Property of IBM 


UQUTPUT 


> 


farwsPssa ] 
<i 

[17o Area } 

| a | 


ee ee ae rr care ee I CO OE CAIRN SRE ETRE GORE BD SLATS TORRE EE SOP ESSERE ES SP AT ED ASS SS ET 


' 
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IPWS5eSF - SFDISK Save Content of the Account Pile to FBA Device 





Property of IBM 





NOTES { MODULE } LABEL |} REF NOTES t AODULE | LABEL | KEP } | LABEL | KEF 
1 The assembled DTF skeleton is tSPDISK SRSu 5 The control intervals read froa fExcP [SFDISKL gah 
copied into a work area. The DTP the Account Fale are written to 
copy is then initialized with the the save file in the same CI; H 
disk information frum the command unchan and data are left 
processor. The file name tor the unchanged. One control interval on 
save disk was supplied wath the he save file may contain one or 
PACCOUNT command. pace account records. 
2 The VSE/POWER asynchronous~serv ice 6 The CCB part of the copied DTF ae Exce $aPC 
pace ty is invoked to establish a CcCW*®s and control blocks locate 
DOS/VSE subptask to process tne OPE in the IPW$$SP aoduie are used eo 
ae rages write the save file. 
OS/VSE suptask as used to 
nandle the page faults of th OPEN 7 Issue message: SPLISKEN |S CAP 


modules, located in the SVA. 


3 The number of occupied P38A blocks 


| 1Q791 
on tne Account File is calculated | 


ACCOUNT PILE SAVED 
and cnecked against the extent of 
the save file. As only control 
intervals containing account data 
are copied, the save file may vee 
smaller than the Account File, 

the latter is only filled 

par pealiy: 

f the save file is too small, the 
following messaye is issued: 


1Q81I filename EXTENT TUO SMALL, 


| 
| 
| 
| 
| 
| 
| 
| COMMAND NOT EXECUTED. 
! 
| 
| 
| 


j 
4 A Read- Dev 1ce-Characteristacs CCW | 8xXCP 

is issued to get the FSA plocksize 

of the save file. This plock size 

has to match the one of the 

Account Pile. 

If no match, the save~account 

tunction cannot be executed and 

the following message is issued: 


1Q3CI INVALID SLOCKSIZE FOR 
filename 


A cneck is made for apo ae tee cron 
-of a CI size parameter for the 
save file. It is recommended that 
this parageter pe omitted. If hut, 
it has to match the CI size 
selected pb ep e Eons tor the 
Account Fi 

If no watch: “the save-account 
function cannot pe executed on. 
the followang message is issued 


| 


er I aE EE See UT ie BRS Se ETD HE TES IT 


29322 INVALID CI SIZE FOR 
enamee 


ee a 


: 
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[PwS$$SP - SPCARD Save Content of the Account File to Punched Cards | 
INPOT PROCESS OuTLSUT 


| Boe SF-1.0 
7 


Pan tn wi Initialize card-output area and open the 
109) interface to the Loy ical reader. a ee ee en ee 


Definatioas | | 
| ean nen en eee bane Inatialaze queue record for punch job. fe ee ee Se es | 1 
| = 








IPwSSSP 








! 
i 
| 
i cree 
[v3] Read a control interval from the Account 
| Pile. aa | 
/-—’".. [i 
] < eevsee > SFRDCI | 
SF-3.1 
RO { 
[ I t ee rn am 4 A. If EOP is encountered: [e273 foe | i 
(| [ Coes 
Ifo Area 
(eee 
i ee | account records. = 5 


_ 


— 





fou} Deblock control interval into ats “ 


a 

eeceeee > SFPDBLK 

pee ee ee CREEL ee eee eae 
/ SF-4.2 


fost Copy account record to card. 
—) 














HL 


A. If one card insufficient, Eee = 


generate multiple cards per 
| account record. 





06[ Generate £0J card. 





sent message and invoke IPWS$GF to 
oe mrcte a SEOF o the account Pile and to 
wmnitialize the ACB. 


[os] 
[o7] Close logical interface. 
[oa] 


TO SF-1.0eee 
















8oTes 





MODULE | LABBL {| REF 


{SPCARD SOLI 


| NOTES | MODULE [ LABEL § ker l 


5 an £03 card is generated to close {SPCARDENISCLI | 
| 





1 Initialize card seyguence tu assign 
a vt bob card sequence tu each 
accoufat record, accompanied by an 
gecendeny Ruaper for each card of 
a aultiple card-account record. 


the card streaa. 
ScAF 


« The queue record 15 initialized 
fur a punch jop with a2 hame, 
class, priority, and disposition. 


I 

! 

t 

| Bach card has an eight-pyte 
$ Invoking SFRDCI_ routine, each | SPCARD1 


5sig0.°° nNuaber in positions 


Positions 73-78 fora an ascending 
nuaber for each accouat record 
while positions 79 and 78 are used 
to_increment the card numper if a 
multipie-card record is processed. | 


control interval as read from the 
Account File until £OP is hit. 


4 The control interval is debivucked 
into ats uccount records, and each 
account record is punched to card. 
If one account record does aut fat 
oh one card, multiple cards are 
puncned for this record. 


SPCARD2 


a ee 
re re See eee eer 
werene oretewe manger sre tere teen cone GMM enmpenee came Monin intoreir 


Oe Oe ee NUT eS AONE Sa Go Se NES 


a Rt CD A 
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IPWS$SL — Mainline. 
FH PROCESS 


pepe bron caller 
—,/ 





Locate Member 


00 20 00 on ee eens eres rem 


proseresscever veces 


; 


—— 
> 
[save a ] 


Pr 





i 
| 
c 
| 
| 


oe 


NOTES } BUDULE | LABZL | REF 
1 The caller*s registers are saved t SSAV 
an the save area addressed py | 
register 13. 


i 
fort Initial House-keeping 
A. Save caller*s registers 
=< = 2402] If *FIND® request: 
SL-1.1 
-----3[03] If *GET RECORD*® request: 
Optain next record(s} 
SL-1.2 


senna PONT If *PURGE® reguest: 


| Release all storage 


iG 


goa aaa cia | O5[ Exit processing: 


A. Restore caller’s rey:sters 


vUTEUT 


Register 13 


he. 


< 


SL-1.3 


ee coe ee CR Pc LE TD STE PS TNE TE OT LS ae SERS | 


°} 
ot 
a7 


! 
| 
| 


NOTES } BODULS | LABEL 1? KEP 
The caller"s registers are $HET H 
restored froa the save area | 
addressed by id Seg aster 13 and | 
ceturn 1s made to | 


the caller i | 
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IPWS3SL - Process FIND request 
INPUT 





| 


lel 
xe? 


ue) 
o 
eC 


r 


PDSL 


a ee 
ae 





| 
| 


i 
! 
Register 1 { 
eT | ails 
L>PARMLIST : > 
| ; [23] 
XJIPM oR pis ge 
i 





XJPTYP | 


[z] 


0 


ee ae re oe SY ene a A SN I SN SPS NPN SESE SE RENTED AD EMERY <n NN ce nS SS STE 
r 
Oo 
co v“ 


| 


NOTsS i 


1 #If thas is tne first SLI request 
storage for the SL-workarea (SLWwA) 
is reserved and its add 
stored in the partition control 
biock (PDB) of the related task. 
The storage descriptor for the 
SLWA is set ay The SLWA cuntains 
among others tne buffer area for 


ress is 


ten 8U-byte logical nemper records 
and address fields for pointers to 
the current and last record within 
the puffer area. 


pan If the first two characters of 
the name area are "$$", the 
second character is Changed 
according to the id of the 
artition peing serviced. 
sti toc Bc, 1 fdr Fl, 


: 
fhe SLAL chain as scanned to | 
docate any SLME addressing the 
same aemper. it found, a 
hesting error occured. Message 
TR36I “SLI NESTING ERROR, BO 
bookname is issued and SLi 
A eretodrmars is terminated py 
entering the PURGE function. | 

t 


3 A SL member element (SLAE) is used 
to describe a_ member. It contains 
nore eoene information, Dovuknagze, 
sublibrary and others. A SLMZ 
exists for each source Statement 
labrary member currently in the 
insertion process. 


See ED EES ee SES eA ee eae 


3A If no storage could be 
obtained, SLI processing is 
terminated by entering the 
PURGE function. 

38 Sublibrary and pooknage are 


copied from the parameter list 
Pieter to by register 1 at 
unction entry. 


PROCBSS 


ece >From 
/ 


MOOULE { LASEL 
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MSaanline 


Set up Sl-workarea, 


: if not already 
presen 


Lnaatiai processing 


set up partition 


If ap 2 xeavhe ¢ 
nage 


dependent boo 


if nesting error, 
terminate SLI processing. 


assue message and 
up SL-pember element 


A- Reserve storage for SLME 


C. Chain new SLMHE on top. 
Set up service ceyuest block (SRB) 


A. 
3. Insert required pointers 


Reserve storage for SRkb 


C. Set up request type 


Pass service rey¥est to asynchronous 


B. {Insert values from parameter list. | 
| 
service | 


Set input switches 


Exit, return to mainlinecee|} | 
I 
] 
{! 


cl 


ot 
/ 


NOTES 


The just formatted SLAZ is 
weued as first entry in the 
LME stack. The current SLA 

poadter is updated to poant to 
he new SLAE. 


| REF 


SLPFISD {$RS¥ 3c 


4A Paixed storage is acquired for 
the SRs8 because it Contains an 
£CB, which must be testable 
without the occurance of a page 


fault. 


The pointers to the 
SL-workarea, the SL member 
element and the partition 
control blocx are stored into 
the SRB. 


The "*PIND MEABER® request type 
ius inserted. 


48 


ee Gain GR 
a eee rere cote ene mea eae 
Oe CN I TNS ee SP SS A 


4c 
SLFO7 








5 Register 1 1s loaded wath the 
address of the service request 
block and asynchronous service 1s 
called. If the request 1s not 
successful, SLI prucess ing is 
terminated py euterang the PURGE 
fuactione 


6 On the highest level tne read 
reader switch is set to indicate 
that a record from tne reader 
snput queue must be read as next 
in order to process * $$ DATA and 
$SLI update sateazents. The read 
SSL switch ais set off because the 
*PIND MEMBER® handling by the 
asynchronous service implies a 
read of the first member records, 
so that for a subsequent "GET 
ReCORD* reguest data are 
avallable. 


SLF35 


SRkSV 


Sen tae cE eS ONC ULNTED SRENEES E REEDS SAF OL Att EE STUER SRE eT 
ae ae eS a RS RT PN ES GSAS ce 


ae te a et Eo Te ES A 
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MODULE } 


er ere 


ee a ee cee EE OE ET TSE A RST SAC SE 


SRSSLWA 


LABEL 


SLF4> 


SLz50 





| &&oP 





| sxsw 


eo rn se ree re cre gee ge eye TE a ee Sr GR ES Se ae Ee 


“ 
= 
> 
”" 





Licensed Material - Property of iEM 





SL-workarea | 


ol | 
f =| lee Si ton “Mainline 
SLF1 a eg ale yo 


) 


IPWS$$SL - Process GET RECORD request 
SRBREQ 
RBSLwa 


InPot PROCESS vUTPUT 
did a 
{SRBSLAL 
[SapsieD 





[oa] Analyze status: 
suffer area 


i 
| | 
| 
== 


eee | 


A. If data mode is in progress: 


ewe ee 


| 


fe 
= 
| 


B. It previous SSL record was not 
processed due to a $SLI update 
Statement. 





-—/ 


fh Oe Been ee ones st ered eeceeses secs os 


of SLI processing. 


fies 

lo ee 

[= 

t| 

If SSL member record available: a5 05 
f! 

j 


[o2] 
_ | 
fo3} If end of pook, terminate current level 
es 
a | 





eS | 

SaaS | 

= 

= 

ag | 

~> 

| 

| O4[ Set up SRB for Get RECURD request and 

poss request to asynchronous serv ice.- 

f request not successful, terminate SLI 

rocessing. 

f end of book, terminate current level 1 

| of SLI processing. 
| 


Handle $SLI update statement, if 
applicable. 


CL statesaent, if applicable. 


a: 


exit, return to Mainlineeese 
es 

ers 

- / 
v 














NOTES REF 


{| MODULE | LABEL 


SLGETR 





NOTES | SODULE | LABEL | 





This routine is entered when a non 
first time request is amaade for a 
logical record from the SSL book. 


5 If a $SLI update statement is 
resent, a check is made wether 
he update statement must be 


SLUO5 





It data processing is in PEOTEOS=> pas to the caller. 
exit will pe done’ to signal data i 
processing tv the caller. eunooete update functions are 
su rted: 
TA It the last read in record is Peelete statement | 
not a /*, /& or /*SLI - insert after or before stat | 


statement, continue data aode 
processing. 


< If the internal buffer area of the 
SLWA contains a next menaber 


| : 
| pe 
record, this record is processed. | 


- replace statemnt. 


| 6 If VSE/POWER end of data record (* SLJO5D 
$3/*) make normal Dos /N Ss, end of 
| data record out of it (/*) 
ry VSE/POWER end of job record tad 
| see) make norgsai DOS/VSE end o 
3 The current level of SLI record out of it (/&). 
processing aS terminated by 
entering the PURGE funtion, which 
will resume peoces= 189 on next 
nesting level in case of nested 
SLI or terminate in case of single 
SLI processing. 


4 The pointers to the SL-workarea, 
the SL member element and the 
partation control block are stured 
into the SRB. The GET RECORD 
reyuest type is inserted. Register 
1 is ioadea with tne address of 
the SRB and asynchronous service 
is cailed.- 

If end-of—pook or an ore 4s 
returned, SLI Breoring the 
terminated py enterin he PURGE 
function, which checks again for 
end-of-book to control f 
processing. 


SLGO25 


! 
| 
| 
| 
| 
: 


| 


aurther 


ER GS SY LET SD GE oR eS A ean TEI EN ET ae Fo 


i a 


| 
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LPWS$SL - Process PURGE reguest 
INPUT PROCESS : OUT LUT 

















PDS Ie t. ] 
| [22° From caller 
_ | ei 
{ | PDSL } ween nn ee => 01f LE no source liprary work area coo 2104 
(SLWA) 1s preseats / — | 
| TCG | 
[oz] Delete SLME(s}: | 
SLAE ftom A. Pick up current SLAE. | | 
: If queue empty: [eee 
SLMNXT macs sees ess ss4 i—,/ eva | 
‘ 2 t-----> Be If last qusued SLNE, restore general j|—_.___ ; : { 
{| : : ! purpose bytes. Sop ee ie if | 
[SLGP | jo-------- sacs ss 4 \ 
{ _—_—_______—_ || 2 | C. Remove current SL&E from queue (the PRES ; i 
1} . next erak 6 made ae eee ccae a 
| : | one) and release i ge. = —}| [Sisine 
: | nee D. If end-of-pook processing and nested aaa ot 
SLaA 3 : i SLI, resuse PEocensing on next 
FT toate Teeter > nesting level. i 
| ; t-—--5 | Otnoerwise: [eoe >LO2A 
: ——,/ | 
j fos} Release SHB space and SL-workarea ace e 
— and indacate Bo SLI processing ia PDB. 
> 


fou} Pass reader record back to caller and 
a 


| return to Mainlineeece 
3 


i 





| NUTES | MODULE | LABEL | REF l HOTES } SUDULE | LASEL { KEP 


In case of nested SL1 aud 2D If end-of-pook is flagged ia 
end-of-book processing the current the SLWA, the flag is’ LCeset and 
l 











! 
source ares memper element H if there is a next SLAE on 
(SLSE) as unchaaned ana released | e@- nested SLI), the 


reentered at asynchronous 
service request for next merper 


| chain &d 7 
and peccres2a3 on the next nesting | GET RBCORD function is 
record (Ss). Otherwise the | 
t 
| 


| level is resufied.- ; 
Otherwise SLI processing 1S, 
| ter@inated py abate all 
related work spaces and Clearing deletion process is continued. 
the SLWA poster in the partit.on 
control biock. 
released and returned to the 
VSE/POWER storage pool. 


The SL-workarea is released and 
the pointer to it in the partataion 
control block is cleared. 





1 The SlWA pointer of the toh fae oes SLPURGE 
control block is examined. If it 
is present, work spaces must be 


released 


2B The Chaan pointer of the just 
adaressed SLME 15 examined. If 
there is no turther SLSE on 
chain, the general purpose 
bytes saved in the SLME are 
restored into the TCB. 


ae ee Se ee we a ES 


3 The storage used for the SRB as 


eee we gre mmen qerenaee' 
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S¥SIN TAP& READER TASK 


SAINLINE 
syoo 


’ 
Preparation 
to head 


Initialize 
storage 





SY¥10 





SY-2.0 SY-3-0 











Deblock ing 
for Blocked 
Records 


SY-5.1 





End of input 


SY¥-6.0 


Routine Exit, 
oe 
SY¥-7.0 





Chart SY 
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IPws$$sy - Mainline 
INPUT PROCESS OUT PUT 


SRE SI STS aT NEASNES Sa  P- SSS SEYuP up-c SP SP SEN GASSES SOS ETE aS GD oe GN OS or A UG Se SE 


554 


are’ supported. 


Support is provided for ISM 
standard labelled tape files as 
well as unlabelled tape files. 


2 zepe Control Bliock (TBB) contains 
cessing Like cuu, I/O-area 


BRIAR CES. CCB, olocksize, queue-ID, 
etc. 





ob 


00 /3pros IPWSSCM: PSTART TRD,cuu 


PUWER Part. | [pa 
[cervis Area] ne Initialize storage ele G a md 






























Teach 


073 [0] 
/ Routine exit, termination 
SY-7.0 


To termination routine IPWSSTR eee 
ae 


i 
| 
| = Ead of input | 
7 | SY-6. i 


TCB ome recor oss coer n= bane Check for successful reserved ooo” 
[o-} Tape Control Block. NO TBB: / 
TCTa 
Inp.tape ; ae 
—s a >| 03] Read 1. record or block to check eo —> 
° . 1 walidity by means of IPWSOTP. §lock1 ae 
. ° Record H 
I I 
a , >| 04] Check fo tape vai2dit jose’, > 
Hi os If tape a ad, issue’ message. : 
,Ba ween nme ween ne 5 
TSEL . 
i eee af 
[re"s Preaparation to Read ee | pti | 
SY-3.0 eels CcCw2) | 
ere / 
lap.Tape TBVA X 
o—e fe 
- - “elf aesa tere cece a fcc ycewzp.. /y 
t { paesatare Block1 f 
° * Block 2}... 
pak i ee ea Deblockiuiang 5 Rec.1,Rec.2 
Cowl iccwzt. S¥~5- 0 Rec.n 
Blockt1.. 
Block | 
tS 08 continue till end of input is eee m 05 


| h 
| 


fe ee ee | |i 


[wores § SODULE | LABEL | REP Tf NOTES MODULE | LABEL | REF REP | 


NOTES SODULE | LABEL 
VSE/P OW ER prev aioe full tape SYSIR 3 IPWSOTP-macro “3 IPWS$SOTP-macro calls 1PW$$O0T-phase | || |S¥z0 |$OTP 1eW$$O0T-phase SY20 [Pon 
reager support for fixed blocked from where read zap Service 
and unblocked tape input. routine of VSE/POWBR Nucleus phase 
will be invoked. After ever 
The maxiaum blocksize for blocked I/O-operation a check is made 
tape input is 4030 bytes. whether task has been stopped by 
operator. 
and blocksize auSt be a if yes, the SYSIN-tape-RDR task is { 
acl sole of 80 bytes. t 
For a blocked tape input fixed 
length records or 81 bytes a5 invalid record tpt as be $uTO 





5AI INVALID TAPE MOUN 
: t,cuu 
is issued and task is stopped. 


' 
End of input is indicated by 2 | 
tape marks. 


ormation forget es to tape pro- 


terminated. | 
| | 


' 
ecere Size must be 80 bytes fixed geese.| || 
t 


Fee | | | 
: 


oe SS ger ee ES 


a a as ae fe es 
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IPw$$SY - ITnitaalize Storage 
INPUT PROCESS ouTeur 


TCH 
__tfrcpr 





Register 1 


(Device Type| 


| TCB 

a = 
a | 

| 





Store device type an TCs. 








=| [Device Aree 





Nucleus CAT 
Address of ~-~------------f 


[o} 
| Uz} Build Tape Control block (TBB). ETS IE! 
i 


EDGE TE 
Did we get a Tape Control Block? {———] 
A. NOs coo” 


Reserve 4 KB I/O-area from 
POWBR partition GETVIS area. 





GETVIS 


Open interface to Logical Reader 
by means Of IPWSOLI macro. 


{G¥LO | 


To SY-1.0 see 
3] 


foe [== Return to spainline. 
| 
























NOTES 





{ MODULE { LABEL wOTES § soDULE LABEL 













1 On entry at this point the device S¥10 5 Phe logical reader scans each 
identifying information passed by record fetched froa I/0-area, 
the Command Processor in register perforrgs any pecessary JECL 
1 is stored in TCB. operations and passes the record { 

: . to Data fale. 

2 sA zepe Coatrol Block is built by OTP i 
1nvok in Opes Tape Routine by For the logical RDR the S¥SIN RDR }{ 
means of 1PWSOTP macro. es 18 a Rormal physical RDR 

aSKke 

4 The 4Ks storage is reserved froa SY06 SRSv 
the VSE/POWER partition GETVIS 
area. 
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ITPWSSSY - Preparation to Read 
InPout PROCESS OUTPUT 





Be From SY¥Y-1.0 


























T38, T3IFG / { 
[8iocked or I 1 
[Unblocked | tem eee tenn enn e----2/04) Check for blocked format on tape 
A- If unblocked repare read for ooo” 
unblocked format - 4 [v3 
TB, TbEN 
Te foz] Prepare CCW chain in I/O-area for >} No.of eee 
| read operation biocked format. | — 
e oe | 
A. Calculate no. of CCWs to be feos fos I { 
| created in I/U-areae tf | hs | 
| TSb fos tS fo3] Prepare CCw chain in I/O-area for | Tyb,TBCn | 
| {suffersize } | read operation unblocked format. emeraiaiss IO [no. of CCis } 
| [fength tore] |---—-——— | i | | 
length A. Calculate now of CCw¥s (TBCR) 
a | 
to be anitialized in 1/0-area. | 
. 1l/fG-area 
[os [eee >|04/ Pill up CCWs for read operation A . | 
TBB,THAV - 4 ’ ‘ eek CC, 
| blocked as well as unblocked format. pl eoce | 
I/O-area Addr | eas . Sy GRICe ear e ERE | 
= t ane Calculate data address within I/0~area. acs ee td ot | 
fos} Return to Mainline (read tape). | 
To SY¥-1.0ecee 
e 
| 
-/ 
v 











NOTES | MODULE { LABEL j| REF NOTES § SODULE | LABEL | KF 
1 s¥50 4 Data addr.: RA= - t | 
Dependin oa blocked or unpdlocked TBAV¢é {TBE sey STBRL*THCH t t 
foraat o a certain CCB in . ' | 
TBS and readecew is set up in TBRA= start addr. of data within | | 
I/O-acea. R1 holds virt. address 1/O-area. 
| of I/O-area (workspace). TBAV= virt. start address of | | 
i/O-areae 
TBCN= Now of CCws j 
TBRL= Record length } 
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IPWSS$SY = Read Tape 
INPUT PROCESS OUTPUT 


kd 





From SY-1.0 

















CCCH 
Chain Flags age Set chain flags in CCB and get start 
esti cia da ayes address of t7d-area. . 
x*1a01° | 
| Register 1 
Start of eae {o.] Load start address of I/0-area. 

address ot 
I/O~area SSS eR arn | 
iy 


< 


[o3] Read tape using : 
nucleus tape service routine 


by means of IPWSRDT aacro. 


fou} Return to Mainline. 











NOTES { MODULE | LABEL | REP NOTES t SODULE | LABEL | REF t 
In both cases (blocked as well as sy55 SRDT | 3 Immediate stop code *S* in TCB is $RDT | 
unblocked format) the channel checked in gaainline. Wrong length, ; 
I program in the I/u-buffer is unrecoverable I/O0-error iS cheCkeda j 
| executed and a max. number of and handled within tape service | 
Loaxcat records are read into routine in nucleus. 
1/O-area. The I/O0-butfer as filled | 
up to its maximum with only one Read tape is completed now and 
| read operation respectively. | | control is given back to | } 
t t deblocking routine. 
a a See eee ee et 2 ' 
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IPwWSSSY 
INPutT 


Devlocking for unblocked format 





TBS, 


TBFG 
Blocked or 


| 


TBB/TBCN 


No. of CCWS 








Calculate 
unblocked 


loop count for deblock ing 
forkat. 


TBB/TBRL 
Record [3] Load record length. 
|Leagth 
CCW/CWDA 


Data 
Address 


7 


Calculate start of data and record 
address within 1/0-buffer. 


| 


I/O-area 


[Rect,Rec2, I 
[-- 2+ -Recen | 





Pass logical record to logical RDR 
routine by means of IPWSPLR macro. 


[oe Ea 





TCB/TcIrT | 

[stopcode I Scien asia ata anaes ta >|06]| If task is stopped by operator, 
| { terminate. 

R ster 2 

ent eb | -----$fo7l Loop till all records within) 

C000 sf tte r ere + i— J T/O-buffer. are passed to logical 
| reader. 

Register 5 { r—. 

eee O08} Return to Mainline. 

Return i S oeetetnetnchenteainad 4 fos} 

[Return - 

| nee 4 














NOTES 





} MODULE | LABEL {f REF NOTES 





1 Each logical record in 1/O-buffer {sy70 SPLE 2 
is now passed to logical reader 
routine by means of IPW$PLR macro. Mainline. 
Logical RDR invokes data 5 


Ranagement which passes records to 





Data file. ! 
Register usage within thas | 
subrout ine: 
unblocked input: 
RO: Address of log. record 
R?: Length of log. record | 
RZ: Loop control’ register . 
| ROS Pointer to CCW currently in | 
a 


esse | 
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j Unblocked } wen en = ==>} 01f Check blockformat on tape. If blocked: 
| Depblocking for blocked 
forsat 


[-=. 
[-=° 








| 


q| 
“$ 
/ 






when EOP 1s found, loop count is 
set to zero and return is made to 


Put logical record. 


ina 


To SY~1.0 ese 
3 | 


e 
es 
[+7 


OUTPUT 





Register < 
No.of rec- 





Register 1 


Length ot 
Logica 
{Record 





Register 0 


kecora 


Address 


est 
—— 


Logical RDR 








| 
| 


eT 


cm 
o4 


Sepa SUT Sr rr 9 GD SAR SEE EE PS EOS SS Ss EP TE SR re PN Se DAN PS 
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| 
| 
| 


i 
| 


| 
| 
| 


| 
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IPWSSSY - Deplocking for Blocked Pormat 
INPUT PROCESS OUTPUT 
| Be | | 
| | See Sitom SY-5.-0 
| H as 
TBB, TBFG i 
[ x*so* } ------------- — , P 
LL ———_________3 t----> Check for EOF on tape. [eee > 
When EOF reached, returh. / 
T33/T BRL Register 14 
ftescre | ie, >}O2] Get record length. 2» |Log.Record 
Length } {Lentgta 
| a  } no 
CCW/CWDA | Register & 
[seext of | ——, [o3 }[r*' Load begin aidress of data block. soe ee ree ee 
ata a ee ae 
*4) | 1/0-butfer | 
R ist 8 Ee ft P| 
shears ated -| a a | | kegister 0 
hee [ow J free’ Point to record to be passed. ,! LE emery t 
H 3 i 3 { oa pee oe Record | 
& > Address 
{ ! 
1/O-area } Logical RD& 
Block1 : ae > e . | 
Block2, ee $[05} Pass logical record to logical RDR I | 
Block.a routine by means of IPW@SPLR sacro. . ° 
TCs/TCTT . - t 
[st opcode | rn rrr anna >106 ts stopped by operator, 203 [09 | | 
Register 38 | 
| ES | , crc. b 
Record: (} -pee settee >|07{ Loop tall all records within currentjfees >} 04 
| [Address | | block are passed to logical reader. 7i 
| | oe : | Eke | 
} Register 3 Bt echt { 08 Proceed ae end of block is ee) 
fos | fooe > 109] Return to Mainline. 
| 
Register $ rr To SY-1.0 eee 
Return. ° of Sc SereStS=tH-7> 4 rer 
Address | «7 













{ MODULE | LABEL | REF NOTES 





AODULE | LABEL } KEF 


t 

Each logical record in 1/0-pufter | SY72 ae 
as now passed to logical reader j | 
routine by agaeans of IPW$PLR-mwacro. | | 

| | 

| | 





2 Register usage within this 
subroutine: 
Blocked input: 


RO: address of log. record - Logical RDR invokes data 
ki: Length of log. record Rahbagement which passes records to 
R2: Loop control register Data file. 
R3: slock counter ; : 
R8: Address of record within input 
block. 
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IPwS$SSY - End of Input 
INPUT PROCESS UUTPUT 


e} 

& 

eee SFrom SY-1.0 
| 4 


on eee nnn ee >for when end of data 13 indicated =te 
toc iastloe jou 


x*og* ; [oes tog ical RDR will be invoked “| | 
| iage. 
| | Loyical RDR& 
! | 


| 
| 








fo2} Get EOJ record and pass it to logical - e 
u reader by means of IPWS$SPLR macro. 


ere i pe pg ce nec as ab Op i FS ree gm Sl eS 


oe DES gp ee ap eS re Sn Da enSPPRO=PaS OP SSN: “AEP ADO GG ES ND nN SS eS SS ST OE SSS SS 


| 


Message | 
| FO87I... | wes =e => [03] Infora operator: EQJ added. 
| Reg.1/keg.0 
Reg.1/Reg.0 if | oss 2 2 
= at : - } > | 0000 
Rec.Length Eo [oa | ooe foal Indicate end of job. ! | 
Rec.aAddr. | | 
ay a | 
Reg.1/Reg.0 | | { 
x*®0000°8 = = om =>} 05] Invoke log. BDR to close 
H current Job by aeans of IPWSPLR macro. 
Kegister 5 | 
[return } : 
{Address | \ Sstaateaateeinahetnethetnaateaatataienanne >{06{ Return to Mainline. 
eed 
i 
| 
To SY-1.0 a3] 
e 
i 


, | 


| NOTES { MODULE | LABEL | REF l NOTES | @ODULE | LABEL | K&F 
3 Msge: 19871 EOJ ADDED jobname jno | ($wTO 5 B1=0 and RO = 0 indicates to |SY7¥ seLe | 
is” issue | logical RDK, that all records are t | | 
paSsed and interface with data j t 
Ranagerment can be closed. | { | 
[rr NN 
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IPHSSS¥Y - Routine Exit, Ter#ination 
INPUT PROCESS ouUTPUT 
bal | 
eas, 
jets 
—/ 






for} Close interface to logical RDR 
by seans of IPWSCLI-macro. 





x*008 


TCH/TCTT 


Stopcode = | e--<-e re -- Let 02] When task is forced to sto 
{stopcode | [02] workspace is released. is 


keg -0/Reg.1 | 


Messaye 
1Q291... 





_—--__ | > J 03} write message tu operator. | 


[address of } fo Teraination Routine anes) 
eo 


GETVIS pe 
Lockword -/ 
v 
Register 38 
Address of fo 
Term ination 
Rout ine 


Meaaeien 3 [ow } Eee 77 [om] Link to task tereination routine. 
eel 
| 
| 


i 






























NOTES { BODULE | LABEL { REF ROTES | SUDULE | LAseEL | KEF 
Close logical interface SsY¥90 {$SCLI 4 roe EBs 19331 STOPPED task,cuu J {Suto 1 
#111 pe issued by teraination i 
3 MSg.: 10291 END OF INPUT ON $wtO routine 





will be issued. 






task,cuu | 


a 
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{Timer Task 
Mainline 
TI-1.0 
ney 
| 


Task Entry Task Exit 








| TI-2-0] TI-3.0 
! 
| 


— | 
Ti-<z.1 
eee | 





DUS/VSB 
Subtask 
t 
TI-4.2u 


Chart Ti 
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IPWSS5TI - Timec Task Mainline 
INPUT PROCESS OUTPUT 





{ 
Be From Initialization | 
Attach DUS/VSE suptask | 


~---->/02] Reserve DSB and af shared account tile 
reserve ACB 


| 7 
: {(23] PUST the DOS/VSE subtask for LOCK of tne {~~ 7~— 
3 Q-file pecmcnamermeret cael | 
: lr 
DAB rama ee em Cicer: >[oa] Task Entry =| 1 
a sy mint me | | 
| {}4RSO i f i 
| od $05] Release DMB | 
PCB Seemann iy es 
{108 POST DOS/VSE subtask for T1 oe 
Oe oe eo ato —™ 
pices ] : 
———SSe i-~--->/07] wait until reactivated py the DOS/VSE 
subtask 
keserve DAB 
| | | 





| MODULE | LABEL SOTES { BODULE | LABEL { HEP 


1 pATTACH 
The farst time the timer task 
receives control, it must attach a 
DOS/VSé subtask which will be used 
to assue the LOCK and SETIMg 
requests so that the VSE/POWER 
main task does not enter a wait. 


SGAA 5 To prevent any other task in our sTisd JSRLE 
$CNC processor from updating the DAB 
while it was being used by anotner 
processor, we had amade a reserve 
Sf the DNS. We now own the DAS and 
so we sake a release of the : 
resource so that all tasks waiting 


activated, after tase T° seconds 
Or when there is no further work 





3 The DMH must be acquired for POST  {|T1I15 a 
exclusive use by this processor. for this processor, a reserve 1s 
This is done by issuing a LOCK 6 
request for the Q-File. Return 
from the LOCK is only received 

when the LOCK 1% complete or an 

ercor has occured. Therefore the 

subtask must be posted. 


again made on the Das to prevent 


| 

If no subtask is currently on the DHS can process again. 
available, VSE/POWER is not able ; 
to do its tiae slicing and as 6 The maxigus time allowed to one Post 
terminated (VS2/POWER cancel saacro BE Ocee oe to have control of the 
arta hag Pees issuing the sessage aB is governed oy time ijatervai 
WADI O SU3TASK AVAILABLE POR T1 (speCafied at VSz/PONER 
I generation time)- The DOS/VSE 
Control 1s gaven to the DOS/VSE Subtask 1s activated to post 

VSE/POWER again after time 

interval Ti has elapsed. 

z AN initial reserve DSB is $BSK 7 During the time interval T1 the oaPC 

rejuested an preparation for the ot ike 1s available exclusively 
cycle of LOCK,RELSASE — or update activities for this 
RESERVE, UNLUCK during norgjal | 5 
processing. In case of shared o, the interval is shortened. 
account file support, the AC# also 
must be reserved. 8 when the timer task is again SKS 


| 
i TrTTr. | 
| subtask which Later returus 

control to the tamer task. 
| T1110 


further updating, in preparation 
f pI 


for the UNLOCK Of the Q-Eile. 


after another DAS reserve request 
was gpade or after time T3 has 
expired. 


4 Entry 15 made at this point when 
the timer task was in the wait 
state and 
1. either a DMs reserve reyuest 
was received or 
2. after a time interval of [3 
seconds. 


9 Exit is nade froa the routine 


rocessor.e If there 15 no work to 


een ee ne Ge Roane aR ED ey SEE 
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IPW$STI - Task Entry 
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ce 


PROCESS 


bees 


- la 


| 
fi = ou 


t----=- 2} 0 Insert our SYSIb and write back the 


--------2f 06} Post class table if necessary 


| [oe 


| 
| 


coe Fron Mainline 


&----- >[oz} If stop code S is set in TCB wee 


Read the master record. 
It another systea 


Licensed 


| | 


; {for} waat tall reactivated by DOS/VSE subtask 
+f- 


ry 


ailed and/or PRESET 


has been entered and/or account fale 
recovery as needed, go to recovery 


f—_——. 


< eeccoe >[ewssay 
co / See eee ee en a Pe ee 


[Recovery Program 


If shared account fale: move inforaation 


ay-1.0| 


froma DMB into the AC8 and release the 


ACB 


Master record to disk 


If RJE supported:- 


A.}Scan LCS and SUCH chains > 
eas 


eg N Se ee 


Detach DOS/VSE subtask 


reactivate Termination fask ana 


detach self. 


To Mainlineese 
e 


To VSE/POWER Task Selectionese 


e 
det 


7 
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IPWS$$TI - Task Entcy 






ACS. 


NUTES 


The DOS/VSE subtaSk perrforas the 
LOCK for the Q-file. Unatil 
completion the other VSZ/POWER 
tasks can run if they use the 
Q-file in read only mode. 


If P2ZND has been entered then the 
timer task aust be detached. The 
stop code S is set by the 
termination task when all 
VSE/POWER tasks have completed 
their work. 


Now this processor has exclusive 
write access to the y-file. The 
aaster record is read from disk 
and cneckea for possible abnormal 
conditionse If the SYSID 1s not 
zero then it means that another 
processor abnormally terminated 
when it was owner of the Q-file. 
It may mean that the Q-file chain 
ointers are not correct. If the 
RESET command nas peen entered 
the command peveeeore passes one 
or more SYsIDs via the PR&SsT 
SYSID TABLE (lapel TcwW1 ot TCB). A 
nonzero SYSID from tne DMB is 
added to this table and the 
recovery progtas 1s called mum 
order to delete corresponding 
x~-state gueue sets and repair _ 
arenes broken yueue-file chains. 
f tne account file is shared and 
the account-file SYSID faeld of 
the DMB 1s not equal to zero the 
Recovery rr ogtae ils entered again; 
the account File is scanned for 
the farst SUF record ina order to 
update tne ACB with valid position 
and capacity information to 
continue weiting account records 
without deletion of account of 
another processor. 


If the account file is shared anu 
resident on CKD device, the record 
address, the residual-record 
capacity, and the residual-track 
papeese! muSt pe moved From the 

DMB into the ACB. 1f the account 
fale is shared and resident on 
FHA-device, the current block 
number, the current residual | 
capacity and the free space in CI 
ace moved from the DAB into the 


The ACB 1s then released. 


{ MODULE | LAMEL 


| 
| 
| 
| 
| 
| 
| 


a re gr eee ETS eee ge Rare EEE FPS caenREEND pee UN Cah DEED Go OS SOS es SEP RSD RAS GND GE: USD SALTS CSOT 


TIz0 


TI50 


| REP 





SAFC 





5 
6 


fne VSE/POWER SYSID 1s insected 
anto tne master record 1n position 
SSID and, if tne account file 1s 
Snared, also in position SSac. The 
master record is written back to 
dask. If VSE/POWER abnormally 
termanates, it is poceinte for 
another processor to recognize the 
fact and do recovery. 


Tne live pit of a class-taple 
entry is _unposted if there as no 
work to do for a system whach is 
scanning a class chain. In a 
shared environment, one class 
Chain Can hold work for ditferent 
rarges systems. Ali systems are 
waiting for class-table posting if 
relevait tasks have peen started... 
fo enable automatic dispatching of 
such tasks, a Dit in the 
SYSID-CLASS-TABLE 1s set so that 


each processor Can recognize a 
work-to-do condition. The timer 
task scans that portion of the 


SYSID-CLASS-TASLE which 
corresponds to the own SYSID and 
perpores posting of the class 

able according to the bit setting 
ion the SYSID-CLASS-TASLz. 


If RJZ support is included in the 
VSE/POWER generation and there is 
remote output waiting, then 

VSE/POWER must try to find a RESIv 
that matches the entry in the 
REAOTE table. If it is tound, 
output-available flag is set. 


It the Q-file is stiil locked, the 
DOS/VSE DETACH implies an UNLOCK. 
The termination task is 
reactivated in order to fanish up 
termination processing. 


the 


{ NOTES [| MODULE | LASEL [| KEP t 


jiee [enne | 
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Poa | 
Poo 
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a ae 
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DETACH {Ti zv0 {dber 
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YPwS$STL ~ Task Exit 


Input PROCESS 





ourPuT 


| 


ee re Ce en A 





----->}01} If account file is shared:- 
prc 


o-oo eserve ACB and aove information froa 
1 the ACB anto the DMB. 


9 0 ee omy 


i] 
| 
l 


| 
zero tne SYSID and write the agaster { 
record back to disk. | 

| 


o 
N 





for 





n TCB chain. If a task 1S waiting 
She DMB or ACB, the WORK-TO-DO ECB is 
postea. 


fone re ecos tees sees reas sem 


! 

’ 

1 

' 

! 

some remeeae Ny ame 

co 

w 


Eee gaantaae fF = 
: 
| 


Bl 


t 
i] 
' 
' 
t 
' 
' 
4 
4 


POST the DOS/VSc subtask for UNLOCK and 
next tamer interval (T2/f3) 


Return to mainlineces 
n°: 
s 


of 


L eivstveiveataaveners 


bed Daca te toate ered 





f NOTES | MODULE {| LABEL | REF if NOTES {| SODULE | LABEL | REF ] 
1 #%4If the account file 1s shared aud t 4 The VSE/POWER processor aust #sait poet 1F1100 
resident un a CKD-device, the at least Tz seconds before it can f 
current disk address, the current assue another Lock. This is to 
residual record capacity, and the allow a slower processor the 
current reSidual track Paveceey chance to get access in 
ace moved trom the ACB into the | | Competatioa with a faster | 
Dad. {f the accuvnt file is shared rocessor. | 
and resadent on an FeA-device, the | f 3 is the time after which : 
current biock nuaber, the current VSE/POWER must issue a LOCK, at 


Whe 


residual capacity, and the 
free-space in CI are aoved from 
the ACB into the DMB. 


there was ho reserve DMS request, 
to enable it to check that no 
other processor has put any work 








| 
| 
| 
| 


SOR ee A I EN I SE Sg EY Pe HES SN GY 





| 
| 
| 
| 
| 
| 


ae nies mm Gene mega tin SO CS ime gue 


in the Queve which must be 
TI90 $¥TQ processed py tnis processor. 
Posting of the wORK-TO-DO ECB T193 
causes BnAp Of waiting for elapse } 
of tame interval T3 within the 
DOS/VSE Suptask. 
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IPWSSTL - RJE Support 
INPUT 
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NOTES 


1 There aay be work tor a rerote 
user on the VSE/POWER ; phere 
which has been proparce 2 ah other 
processor. In this case the user 
on the VSE/POWER processor has not 
been posted and iS maybe waiting 
for work. Tae RESOTs table within 
the DAB has bits posted 
corresponding to all rermote IDs of 
terminals which have work to do in 
the queue. A copy of this taple is 
reduced by iog.cal and (NC) toa 

pit re tae correspond in ° 
e 





goad ged on rmanal:s on the 
Lp hg a et roa cocessor. If there is 
D tor Pais processor 


VSE/DOw ER returas tu task-entry 
processing. 


PROCESS 





____t sopure | Laser 1 wer | BODULE {| LABEL | 





out PpuT 


TI-z.0 


obs available for 
has processor 


If£ there are no 
reaote users of 


Search first/next posted bit in the 
ceduced copy of tne REMOTE table 
wacfoce 


Calculate the REMID for this 


A. If no further entry is found 


{ 


B. Else: 


entry 
Cneck Remote ID type: 


A. If it is a BSC RESID ... 


Be If iat 1S a SNA REMLD eo 


Ce ELSE: 


Scan tne LCb Chain for a 
R2SID and if found, post 
available flag 


Scan the SUCB chains for 
REMID and if found, post 
byte and the SNA Manager 


hi >1{02 
eee rcuang 7 oz | 





Caesars | | SUCK 
Reset Remote ID bat position of this eae poet | | 
processor and retara’ $ [suL1s | 
To sea ~~ 
* 
Vie i 


“4 
1 


REP NOTES 

If _a match on REAID 1s tound then 
a flag in the LCB is set to 
indicate that work is available 


AODULE j LABEL keP 


{R355 
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IPpa$$TI ~- Suptask 
INPUT 





e 
e 
| eee DAttached op ier Tamer Task at | 
| ~areg [a eetaehars 10n time | 
| | caine | 01} Wait for posting by the tiper task 
| ace -----2fvz] Set up timer interval T4 and LOCK the 
DAL | : Q-file. If Lock failed, issue aessage 
t Looks Sat he H and terminate VSE/POWER 
farta | - 
——______.) <= fost Post timer task and wait for next ee ee 
—! posting ae ss 
afta) ~>fat | 


FO OF Oe OF Od oe Od OF Oe eee FE Oe 09 08 0808 00 OF 88 Oe Or Oe Oe ee oe 





NOTES 


} 1 The tirset time tne DUS/VSZE subtask 
| receives controls it has to 
c 





establish the addressability of 
Car,vNs,TCs. It then waits on the 
farce lock rejuest from the timer 
task. 





| Time interval £4 15 needed to get 
back control from DOS/VSE if a 
LOCK request takes more tiae than 
T4 seconds. In this case there may 
be an abnormal condition on 
another processor, (@ege- the 
95385 may be locked by another 
SE/POWER and this system is 
unable to do its UNLOCK). The 
possible reasons are: 
- Recovery in proyress 
- Save account in progress 
- Any wait condition 
- peocesser tore an a pactition 
wath higner priority 
{ A timer+interrupt-driven warning 
message wiil be issued.- 
If the LOCK table is full, meosade 
1Q34I LOCK TABLE SPaCB EXdaUSTZ 
is issued and anterval f4 is 
entered ayain. If another LOCK 
error occured, one 10851 
INTERNAL MACRO CALL FAILED 
RC=RKAM 15 issued and VSE/PUWER is 
canceiled. dowever, pefore setting 
up T4, it is checked if PEND has 
been entered. Then the stop code 
*s* is found in the TCB and the 
Nurtal processing as left via 
Bose ang tne Tamer Task for 
ermination. 
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-----5fo4] Issue SETISE for time slice T1 and wait 


| = on elapse of interval 117 or no-work | 
= condition | 

| a : 

| ----3 05) POST timer task and wait for next SEs 
SaNW " oos<=<= | posting epi tet 
| [ty {oo} UNLOCK the Q-fale | | 
[uwr2 |! | if an error occured, terainate VSE/POWER 

patahatatetetetees 7 $--<S— fo7} If T2 not equal zero, set up anterval Tz Te 
farts Hi : : ra je and wait onvits elapse . 
ee > gk 

| : bowen ne $fou) Set up interval T3 and wait on its coo” fox 

Rea Gee aa elapse or a reserve DMB request /| 


Licensed Material - 


PROCESS 











ees | 


} HODULE | LABEL 


| REP 
{WAIT { 


NOTES 


The timer task gains control at 
task entry step. 


WalT 








Control comes from posting tor 

wnterval T. The DOS/V¥SE Subtask ' 

waits on elapse of the tame siice | 
' 


SETIAE TSO5 Tl or the no-work condition. The 
UCK no-work condition ECB is pores by 
the nucleus just before the SVC 7 
2S issued. During antervai T1 

lag A Sedgh t is dispatchable and can 


o its work watn exclusive write 





access to the Q-file 


btu bo ae 
cl 
tel 
e 
Ll 


The timer task gains control at WAIT 
reserve DSB request to allow 

another procesSor to yet write 

access to the Q-file. 


! 

| The timer task has done ail { 
necessary upd : 
VSE/POWER can unlock the Q-file to 
allow access py the other CPUs. If 
ah error occured issue a reg 
: Bol LUreamal MACRO CALL PAILEL 


if T2 not equal zero, ¥SE/POWER 
waits on elapse of TS seconds. 
duwever, before setting up T2 and 
after elapse of TZ, it 1S checked 
if PEND has been entered. Then the 
stop code "S* is found in the TCb 
and the normal processing is left 
via posting the Timer Task for 
termination. 


Pe A ED ES RE EN (GE AT 





{ff there is no work to do, | WALT 
VSE/POWER waits on elapse ot T3 

seconds or a DMB reserve reyuest. 

If the nucleus recognizes a 

reserve DMB request, 1t posts the | 

work to do ECB. | 


eee 


EE ee reg: 





f sODULE 


OuUTrur 


| 
| 
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TS40 
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CHART TR: _ LIPWSSTR 

cr pe ed te ae je Ghee Aa ge ee gE ee ON. ge prin Fe wees gee SE. mee ebay Se PE en NI og a ae Se eg GP we a CE a 
| ITPWSSTR - VSE/POWER Task Terminator i 
F KS = SS Sey areca ieee | 
| Lapel { Routine j 
(Ss ee ee ee ee ara | 
{| TRCS | Entry processing and ioop check i 
{| TRO8 | Register house-keeping i 
{ TR17 {| Check tile type in which I/C error occurred | 
| TR26 j Account file error recovery i 
( 2R38 { Queue tile error recovery i 
| Tx00 { Data file error recovery \ 
{ TxX20 {| Queue/Data file clean up | 
| TX36 j Write Account record A 
{| TX78 | Execution writer wrap up i 
| TyYOO { Account processing termination / 
| TY20 { Close and unassign of tape device i 
| TY30 { Unassign unit record device | 
| TY38 {| Release all resources i 
{ TY12 {| Execution Reader wrap up i 
| TY48 { PNET receiver / transmitter wrap up i 
| {i Release all workspaces (real - virtual) 
| | Final wrap up | 
a ci ie a i ni i mn Sibel ey nc i ma min re i eae es nett me pe ies nl 
QO ag ee ee IS ee gE OOM EG ae Ee SN ge ee nr ge TO a gre Ne ee er CE ee ee ee a Te pe pe ee Sa te ee pe 
| Services Used i 
t a aes en ea ge SS ee Se SS Sed 
{| Service ij Macro 
PS ee OTe ee eae ee ee a ee 
{| Task Management { IPWSDET i 
| { LTEwSWFEC | 
F Ma GC MRSA EC I ee | 
| Resource Management | LPWSRLR j 
{ j IPwSRSR j 
(SS ee SS a a CR a na | 
{| Storage Management | LPWSRLW j 
| { LPwSRSW j 
| {| IPWSRLV jl 
t ne 
| Message Service ij IPwSGAM | 
| | IPWS$WTO i 
oe Sr a ee ee ee ee ea 
| Disk / Tape Service { LPwWSWTC d 
I | LPwSRDQ | 
| | IPWS$CTT d 
eS Se ee ee ee ee ee ee oe 
{ Timer Service {4 LPwSRDC i 
u ac i A a a a a es 
Oto ees ok at m= i santy A Vs Sg ap == sper eet aN AS RY Sod OSE Sy wap yer A GTi ee ge hr pe ee oy an pe me A yp ae] a 
{ Functions used | 
aaa aca Ta Sa a a a aa Sa A a TR | 
| Module {| Macro r| 

Se ee eS ee ee Se SSSA 
| IPWSSAQ { LEWSAQS 
{ IPWSSAT } LEWSCNC 4 
| IPwS$AS { LPWSIAS { 
j IPWSS$DO { LTEWSDOS | 
{| IPWSS$FO { LPwSFQS { 
| IPWSSGA/GF {| LTPWSCAF { 
{ IPWSSLU {| ITPWSULP | 
| IPWSSPA/PF | IPWSPAR i 
{| IPWS$PD | ZTEwSPDR | 
en a ee a ed 
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F 

{ Called hy 4 
Sr FN Rc TI aa EL | | 
| Module | Description { 
Eee Saha aac aa a nn Re a ee ee eR 
{ IPWSSNU | VSE/POWER Nucleus when an i/O error occurred d 
{ IPWSSLW { Logical Writer { 
{ IPWS$LR | Logical Reader d 
j IPWSSER { Diskette Reader j 
[Sn Cn ein im rie et mn nih i ris sr il i is manip imi itt piles el 
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{Labels {Chart TR: IPWS$$TR - Task Terminator iModified Data { Reg. iCauis 
, i {Fields jUsage | 


{Entry to this routine is from any 
{failing VSE/POWER routine. 
i 
TRSD {The first 16 bytes constitute the 
[section descriptor: 
l 
j*TRCS release! 
{ 


— eo om me oe ee ee 


I { | { 
( { | { 
{ \ i { 
| i | i 
{ i i { 
{ i 1 i 
1 { | i 
{ { i { 
i | | i 
\ { i | 4 
| { O: work register | i {RO i 
i { 1: work register | | {R1 i 
| | 2: work register j j {Rez | 
1 { 3: work register | i {R3 j 
\ | 4: Module control biock pointer { j {R4 | 
| { 5: Queue record pointer | | {R5 j 
| {| 6: Disk management block pointer | i 4 R6 i 
| {| 6: partition control block pointer | j j i 
| 4 7: work register { { {R7 { 
{ {| 8: work register; link register { | {R8 { 
| | 9: base register | j {R9 i 
| 110: pointer tp permanent area i | {R10 | 
| 11: address of TCB j | {R11 1 
| {12: reserved for Nucleus use | i (Ri2Z { 
i {13: address of save area i / {R13 j 
| {14: link register { | {R14 i 
| 115: 2nd base’ register | | (R15 { 
{ | i | d { 
{TROY {if the failing task is the initiator | | { { 
j |task or the command processor task, | i i i 
{ |recovery 1s not possible, message j { j d 
i {710821 1/0 DURING ttt, VSE/POWER | {R3 J IPWSGAM 
| {TERMINATED is priated and the job j | { { 
| [XS (Canceled: . 306s eee eee eee es wee PLTROT i d I 
{ | | 1 i 
{TRO6 Jlf this routine has been entered { | i { 
| [before (meaning that more than one j j j j 
| {unrecoverable I/C error has { { j { 
| |occurred), message 1Q75I1 MULTIPLE j | {R3 jiPwSGAaAM 
| J|TERMINATION OF TASK, VSE/POWER { i | 4 
| | TERMINATED is printed and the Jo% is { | 1 { 
| {|canceled....... ata Sate teS eS Sie ates fe tale dS ps >{ TROT { i ij 
{ | I | 4 { 
{ {OtherWiSe DLAaNCh tO... cane ecacccee ae > | TROB | i 1 
t | i d | i 
{TRO7 {Cancel VSE/POWER | | { {iPwsCNc 
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jiModified Data 


” 
JLabels 


TR10 


TR12 


TR14 


TR16 
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jChart TR: IPWS$$TR - Task Terminator 


|The addressability of the. 


{ 
{save area iS set up in register z | 
jand the failing task's registers 0 { 
fand 1 in SVRO and SVR1. | 
{if the TCB is not owned by IPWSSsA | 
{(TCTI # C* ACT"), pranch to.......-. >4|TRIZ 
| | 
{Otherwise, the account trace | 
Jindicator in the failing task's TCB | 

j (label TCAT) is checked to see if any| 
faccount function was active. No suchj 
{function is active if the main { 
{routine had only just started, was in| 
jthe ‘active state, or had just been | 
jended at the time the failure | 
joccurred. In any of these cases, | 
jbranch to.........4- a 196 ea eee owiehe ees 2 TRAO 
t j 
{Otherwise, (failure during open, get,| 

Jor close function), branch to...... >{TR16 
{ I 

{lf the task had output to spooi files| 
{(TCGW+8 = PUN), check spool i 
JEUNGCCLON. ACCEL VAY al oseei cess ose ses >{TRI2 
jOtherwise, (the task's main routine | 
{active), branch to .... ota awe wa of ERAS 
i | 
{Now a check is made to see Which 
{spool function was being performed. 
fIf£ the function trace indicator in 
{the TCB (labei TCFT) indicates that 
{the task has just been initiated 
jafter the logical end of the spool 
{functicn or a ‘ready for input! state 
{during the spool function (TCFT = 
ixX'O0", x*40t, Clot, C'E', Cti', or 
{C'H") branch to...... Sy aoa etal tenes ina aria 
| 

{Otherwise, (spool macro being 
fexecuted and the task's registers 
{have already been saved by the 
[fURCLEVOn), branch tO cscs secs doweee > 


{The pertinent registers of the 
{failing task (register 4.- register 
{8) are saved in SVR4. 

| 

{Now Space is reserved for a new 
{cegister save area, addressed by 
{register 13, and the TR workarea. 

\ 

{The TR workarea is used to save: 

}*« Some TCB fields 

{*« Disk address of bad Q-record 

j« Message formattilg area 

|The TR workarea iS anchored to the 
{ TCB. 

| 4 

{if it 1s a Save account task and | 
{termination code is 'C', brancn.....>{TR27 
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i 
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SVR1(IPWS$DSV) 


SVR4 (iPQ$SDV) 


TCMW(IPWSDTC) 


=e] 
NR 


=v) 
_ 
ioe) 


Licensed Material ~- Property of IBM 


—_— ee a eae ae 


-IPWSRSW 


—_- & oe Ee ee ee Oo ee 


— oe me eo & = 


em re te ec ne ce ance me ee ee ee re er cere ine me nee nme ee a em sate a me mee ce re meme me me cee ae ar ne me ne eee ew ee ee ee ee ee ee ee 


— -_— me 


_— oe ee ee oe ee eee ieee, eee ea ia ee 


Licensed Material - Property of IBM 


ee mn me a cee me ee nee ee we mee wre me me ee ee we ee me ee ee ew a ee a we ee me es se ee ee ee ae ee ee ee a oe ee ee 


{Chart TR: IPw$$TR - Task Terminator 


{ 
jand the disk management block is set | 
{up in registers 5 and 6, | 
|crespectively. If this routine was | 
Jnot entered due to an unrecoverable | 
{I/O error (TCTT7~=C'U'), clean up the | 
| QUCNES at oan ae eedaw a eate be aman ee PT RZO 
| ‘I 
{Otherwise, the VSE/POWER cancel code | 
fis set to ‘canceled due to unrecover-| 
fable I/O error (QRCN = X'70'). j 
{|Addressability of the synchronous | 
{save area is set up.in register 1, | 
[register 2 is set up as MCB counter {| 
j (set to 8), and register 3 is pointed| 
{to the first MCB (A(CAQ1)). i 
| 1 
{Now a check is made to see if the MCB 
Jof the failing task indicates a \ 


Isystem MCB. If so, branch to...... >|TRzz 
{iz the failing function is in the {| 
jaccount file, branch t0....5.22252. 72|TR2Z6 


{Otherwise (failing device is not a j 
{system module), branch to ......2.. >| TX22 
| { 
[The ‘failing device found' switch \ 
{(X'FF') is set in the work space 1 

| (address in register 1) and a branch | 
{table is used to bianch to the proper| 
jroutine. The failure may have | 
joccurred in: | 

i* Queue file; branch to........202..>|TR38 
j*= Any data file; branch to. ....2.4% >|4TXOO 
{ 

| 

{Message 1Q611 IRRECOVERABLE ERROR ON 
{AFILE N CUU is printed in the......> 
{subroutine. 

| 

{If no task is waiting for an account 


_ 


be] 
ca 
~ 
© 


(TURGEON, branch: 10s. 2s. bose eokaws >| TR31 
{If a task was waiting for a put 
Jaccount function, branch to w.....2. >4 TRIO 


{if a task was waiting for a get 
Jaccount function, the termination 
{type in the TCB is set to timmediate 
Istop' (TNTT = C'S*). 

| 

{For a task waiting for either a get 
jor put account function, completion 
jof that function is simulated by 
{restoring the task's registers and 
{setting the return address as if the 
faccount function has been compieted 
{successtully and the task is set 
|dispatchable. 

| d 
{Branch to check the next task.......>|TRz8 
{ { 

{lf there is no queue space for save | 
faccount, (TCTT='C'), branch... .......>4TX22 
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{Fields 


QRCN(iPw$DOQR) 


TRED 


TNTT(iPw$DTC) 
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| INRE (IPWS$DTC) 
| TNRC (LPWSDTC) 
1 


1 
| TNSF (IPWSDTC) 


Usage | 


R5,R6 
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{Fields 
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{| Job accouating support is suppressed | 


| (MRJA = C* *) as well as put account | 


{record support (CAPA = 4X*Q0'). Then| 
[message 1Q74I ACCOUNT SUPPORT i 
{FUNCTIONS TERMINATED is issued.....->{TY70 


‘4Iif the account function was not save j 


faccount, branch tCO..wwee naan noveansaer  ITXZZ 
| | 
{Otherwise, If the account file was i 
{saved into the Punch queue, branch..>4TYOO 
JIn all other cases, branch..........>4TXZz 
{ | 
| | 
ueue Recora Routine I 
| i 
{If Q-file resides on an FBA device, | 
{get disk request word out of MCB. | 
{The CCW real address is obtained fromj 
{the CCB addressed by register 1 and | 
{placed in register 1. Using the i 
|VIRTAD macro, the corresponding | 
{virtual address is obtained from the j 
{real address. Then the address of thej| 
{complete MBBCCHH field is obtained inj 
{register 8. If this address is not i 
{that of the master queue record, { 
Pbranch LO... ec awa sec acewe ance sccsaeae PITR4A2Z 
{Otherwise, the error occurred in the | 
{master queue record and VSE/POWER { 
{must be canceled. Therefore, the DMBj 
{is reserved and message 1Q631 | 
{IRRECOVERABLE I/O ERROR IN QUEUE | 
{MASTER REC - CUU is printed.........>|{TY70 
\ | 
{Message 10761 VSE/POWER CANNOT 
{CONTINUE is printed and VSE/POWER 
{is abnormally terminated. 
i 1 
{Message 1Q611 IRRECOVERABLE I/0 ERROR 


{ON QFILE N CUU is printed in the... >|TY70 


{subroutine. If the error occurred 
{during a ‘reserve queve set! function| 
L(TCFT = C*'R'), the free set is ij 
{inaccessible. In that case, branch | 
LO. aaa eaeaa'e wa ate Cet Webi ete eebees, OPIRGo 
{If the error occurred during a 'get | 
{next queue record’ function i 
((TCFT=C'N*), branch tO... esneweee >|TR56 
{If the error occurred during ‘get 4 
jmext queue record in set! (TCFT=C'S') | 
POOAaANCh tO. sw wane swecsesuwaesacseceees >4TR50 
{ff the error did not occur during a | 
{'free queue set' function, branch j 
(COssu Soiees uisw eee banees a seede sawe Oy TROG 
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{CAPA (i PwSDPA) 
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IPwSGAM 


IPwSRSR 


IPWS$GAM 
IPwSCNC 
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z 
{Labels [Chart TR: IPWS$$TR - Task Terminator iModified Data fReg. «Calls 
{ {Fieids {Usage {| 
{If the error occurred during a | 
j*celease queue set' function (TCFT = | 
{C'F') and if the record in error is | 
{the new first record in the tree set,{| 
{the pointer to the first record in 'y 
jthe free set is reset to its original| 
TR44 jvalue and the function trace j 
jindicator is set to ‘release function| 
Jcompleted* (TCFT = CE"); then branch 
| E Onis 20s Sian ein 60.8 Ss 2S Sin es ew wees wale ece PP EX22 
| i 
TR46 {Message 1Q67I FREE SET NOT ACCESSIBLE| 
jis printed and the partitioa is 
jcanceled via a branch to ..4.......-. >{TR4O 
| i 
TR50 {Delete Specific Queue Set from Systemj| 
{Files 
| 
{The disk management block (DMB) is 
{locked.. 
{ 
{The previous Q-record pointer and. 
jclass-id are saved. 
| 
{When the failing queue record is. not 
{the tirst-in-set, the first-in-set 
iqueue record is read in. . 
[Subsequently the addresses on the 
{previous-in-set and the next-in-set 
jin the queue sets preceding and 
{following the set in error are made 
{to point around the erroneous set 
| (point to each other), the queue set | 
jin Error -1S- deleted. oss cccccucaecses > [TIKOG 
{The DMB is released. i 
| i 
iMessage 1Q64I JOB jobname RDR/PUN/LSTY{ 
{SET DELETED is printed in the...... >|{TY70 
isubroutine, and branch to account | 
[LOUTING ats os sins even ee* ee > 4 TX36 


MROF (1Pw$DQC) 


TCFT (iPWS$DTC) 


PwSGAM 


bi 


IPWSRSR 


YCQW (TPWSDMC) 
QOCCL(IPWSDMC) 
IPwHkKDQ 


QOCQW (iPWSDOQC) 
TCGW(1PWSDTC) 
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iPwSRLR 
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TR56 {if the error occurred during an i 
{LPWSGQS function, the class chain in j 

{error is not known and must now tLe { 

jfound. To do this the DMB is | 

i 

i 

1 
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IPWSRSR 
|jreserved using register 3 and the R3 
jaddress of the bad record is saved 
{in TCGW. Then queue space is reserved, 
{if necessary and the address of the 


{task class list is ioaded in reg 4. 


ee Le ee ee ree 


TCGW(IPWSDTC) iPwSRSw 
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{Chart TR: LPWSS$TR - Task Terminator 


{With the address of the class entry | 
Jin register 7, a search is made for a| 
[live entry. If no such entry is { 
|found, the task is detached at .... >|TX26 
I 
{When the gueue set in error is found,| 
jit is deleted in the .sscaeesesecae >| TRIB 
{subroutine and message 1Q65I UNKNOWN | 
{RDR/LST/PUN SET DELETED is printed inj 
(RReeeksw es Ore aes Goes nae bewweeneoa a OLLI 
{subroutine. Then accounting is { 
[POLL Orned -Lissacvscce etwas So eetawes: >) TXS6 
| 
{For add to queue and delete from 
{queue functions, the known class 
{chain is now scanned for the record 
{in error. To do this, first the 
jaddress of the failing record is 
{saved in TCGW and the message space, 
jJand the queue record information is 
{saved in the message space. Tnen 
{queue space addressability is set up 
[in register 5. Then the class type 
jis determined from the queue record 
{identifier (QRQI) and the address of 
j{the class table is loaded into 
jcregister 7. 


——_— a ee ee ee ee ee ee 


l 

{Through the ciass ID and the index toj 
{the class entry (both found in 1 
{register 8), the address of the classj; 
{entry in error is loaded into | 
|register 7. Then new gueue space is | 
jobtained and the real.and virtual | 
{addresses of this space are saved in j 
|TCQA. — I 
jThen the record is deleted in the . >{TR76 
{subroutine, and a message is set up. | 


7 | | 


{Message 1Q065I UNKNOWN RDR/LST/PUN SETI 
| DELETED is printed in the.......... >| TY7O 
jsubroutine. Then the DMB is released| 
Jand, if the current (not the failing) | 
{record is the tirst-in-set, branch { 
LEOy sh bn este bo SR Oe eae cae eee > Pin TeZ 
(Otherwise, it tne failing record was | 
jthe first-in-set, Lo more gueue file | 
{clean up is required, so branch | 
PEO aia eae e a Uele Siahe) ae Sis alee Sea e Slee a wa wee: OP TRS6 
{ I 
{if the function trace indicator shows| 
{that an add to queue function was { 
{being processed at the time of the | 
{failure (TCFT = C'A'), the request is| 
fexecuted and branch is to.......... >{TX 36 
{Otherwise, the queue set is deleted j 
{from the qaewe and a branch is made | 
[Pose ceases ee Reeves iS ea eeolanere snes: Pe SG 
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Delete Bad Record in Chain: 


R 


I 

{ 

{Registers used by this routine are: 
J} 1: relative record address 

{ 2: address of field containing 

\ absoiute disk address 

{ : address or queue space 

{ : ceturn register 

| 

I 


link register. 


ee A 


q 


{The reiative address of the first 
{record in the chain is loaded in 
[cegister 1. Register z contains the 
jaddress of the field in which the 
jabsoiute address wiil be returned. 
{Branch and Link to0....2. 2.22 2cwe see > 
{to get the address converted to 
jabsolute. if the failing record is 
jfound, branch to......... oo ee 
\ 

{Read a queue record. When the bad ] 
{record is found, branch to0.w......... > TR8B2 
{if the end of the chain is found | 
{before a bad record is hit, the task {| 

{jis detached at... ssewanananaccns oes D>|TRYO 
{ | 
{Set the queue record seek address to | 

{ zero. | 


—_——_— oo OO oe ee oe oe Oe ee ee ee ee 


TR8O 


| I 


{Set up queue space addressability in | 
jregister 5. Get the relative | 
Jlast-in-queue pointer in register 1 | 
Jand gO tO..s.siesece. Seles esis eerie es OOP TEAS 
jto have the. address converted ({abso- j| 
jiute address in TCQw). if the bad { 
{record 1S not the last record, branch| 
PUGweiicnG eek wel at ees ewe eene ee Ree 
{Zero the last, and bad, record. If | 
{the queue set constitutes the entire | 
iclass, the entire class is deleted { 
fand a branch is made to....... e2eee P|YTRIY 
| | 
{Otherwise, read a new record and, if | 
{the previous record was the bad one, {| 
[branch toO.w...20ee02e sveteNe~e% esweneaae >|TREB 
{if the beginning of the chain is { 
{ceached (reading was backward) before| 
ja bad record is found, the task is j 
{detached at....2.222% re eS ee ee ee >| TRY6 
| | 
{The reverse pointer (to the bad 4 
{record) is updated to point to the | 
{queue set before the bad record and | 
fthen written back. If the bad record] 


|lwas the first in chain, the new { 
jaddress is converted from absolute toj| 
{relative in routine........4 wie. ew. bua ff TX16 
jand updated in the chain. { 


| | 
{The next in queue pointer is updated j{ 
{and the record written back. { 
{ | 
| Branch to.....+..4..--. Sie Siar ace eee SS, ster Pe PTROY 


meee ee ee ee eee ee ie 


Fields 


QOCQw (iPWSDOC) 


TCOW (A PWSLTC) 


TCQW (IPwSDTC) 


QROP(iPWS$LOQC) 


QCQON(LTPWSDQC) 


iReg. (jCaias 
iUsage i 
4 i 
| j 
d | 
1R1 \ 
bR2 \ 
4 ! 
{R5 i 
{R8 i 
{R14 i 
| ] 
i l 
d i 
{k1,Rz j 
| i 
i | 
i j 
\ i 
di i 
{ i 
d | 
i {IPWSR 
I | 
| i 
1 i 
i | 
il \ 
1 | 
{ \ 
i i 
[R5 1 
{ 4 
i R14 dd 
| I 
{ | 
1 i 
| | 
! i 
4d 1 
4 i 
( i 
i j 
| \ 
| {iEPwdR 
\ { 
| i 
i i 
{ \ 
i | 
i i 
| | 
| 1 
i | 
{ { 
| {iPwow 
{ d 
| 1 
l i 
| | 
I d 
i i 
| {iPwSw 
1 | 
\ \ 
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{Labels {Chart TR: IPWS$TR - Task Terminator {Modified Data ji Reg. Calls 

j { {Fields {Usage | 

j ee cme a i a em ae ee ee ee ee ee me ee a ne ne ee a ee ee a ee ee ee ee a ae a ee a a ee ee eee 
{TRI2 {The forward pointer is cleared and | QCQN(IPWSDOC {2EWSWTc 
Jwritten back. The new last record | 
jaddress is converted from absolute to] 
Jrelative in COUtiNe..~.cewesescaness P|TXI6 
jand the last-in-class pointer is set,| 

fas well as the active indicator. | 

l | 
{Indicate record found and pass con-~ | 
{trol back to the calling routine... >{R8 

I | 
jindicate Q-record not found 

| 

jThen control is returned to the 
{calling routine via register 8. 


rr 
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KR 
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fee) 


TX00 Data File. Routine: 


{If the error occurred on a data file,| 
jmessage 10611 UNRECOVERABLE i/O ERROR| 
[ON XFILE N CUU is printed in the.... >| TY70O 
Jsubroutine, and, if the error { 
Joccurred on a get data record | 
{function (function trace indicator { 
{TCFT = C*G'), branch to... .sewvw es OY TXO4 
I i 
{if the. function was a put data record] 
{function (function trace indicator i 
{TCFT = C'P'); message 1Q641I JOB { 
{jobnane RDR/LST/PUN SET DELETED is | 
[ PELRCEO Dis soa Siw ewe w esau ees SPLIT 
ithe function is ignored because the {| 
{queue set has not been added to any 
jclass chain, and accounting is 
[performed atwwne senses se nanan secee -* 


Vv 
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{ 
TXO04 {With the use of register 3, the DMB 
jis reserved and the queue set in 
jerror is deleted at.~.... 2s sew eaaaee PD 


TR50 


Delete Specific Queue Set in Class 
Chain Routine: 


Registers used py this routine are: 


relative disk address 
absolute disk address pointer 
work register 

address of class table 

return register 

link register. 


£fFONWH = 
ee 82 80 ec 68 se 


a a ee nn 
—_ 


T X06 {The address of the applicable 
{ (RDR, LST, PUN or XMT) class table 
{is loaded into register 7. 
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jModified Data 
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TX10 


TX12 


TX14 
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‘|register 8. 


{Chart TR: IPWS$TR - Task Terminator 


{The index to the class tabie entry is| 
{calculated in register 3; register 7 | 
jis then pointed to the relevant entry| 
{in the class table. If this is not | 
jthe first set in the queue, the | 
{previous set's pointers must. be { 
fupdated; this is done via a branch { 
02. ct eed aia See die Wate a tsiets ck soba we eee Ie 
(Otherwise, if this entry is also the {| 
{last in the queue, the entire chain | 
{is deleted and the calling routine is| 
{returned to via link register 8. | 
| { 
{If the entry is just the first in the] 
{chain, the absolute address of the | 
{next in chain is obtained in register| 
{2 and converted to relative inw.... >|TX16 
{This relative address is returned in | 
{register 1 and saved as the new first| 
Jin set:‘address, the active indicator | 
jis set (CTQL = X'80'), and branch { 
sto Serene ene ee ne Pere Deind Gaede aaeceee Oh Le 
I. { 
{Read the previous set's first record, | 
{update the hext queue. set in class ij 
{pointer to point around the bad queue| 
jset, and write the record back. | 
{ 


{it this is not the last in set, 


bDranch = COs se scees See See ee eee et OP TEXT4 
{Otherwise, the absolute address of 

jthe queue set previous to the bad 

{queue set in Chain is obtained in 
{register 2 and converted to reiative 

[Ae oa haw Saree eee ka a oes a es Aes EG 


|register 1 and saved as the new last 
Jin set address, the active indicator 
fis set (CTQL = X!80"'), and return is 
{made to the calling routine via link 
[register 8. 

{ 
{The address of the previous set is 
{saved, the next set in the chain is 
{pointed to and obtained, the previous| 
jset pointer in the next set just | 
{obtained is reset to point around the| 
{bad queue set, and the next Set's { 


| 
| 
| 
l 
\ 
\ 
\ 
i 
{This relative address is returned in | 
| 
{ 
i 
| 
I 
{ 
H 
\ 


‘}first record is written back. Then jf 


{return is made to the caller via link{ 


| 

{Disk Address Conversion Routine 
| (absolute to relative) 

\ 


{Registers used by this routine are: 


— a ee ee ee oe eo ee oe 


{ 

| 0: work register 

{ 1: relative record class 

{ 2: absolute record address pointer 
{| 3: module control bleck address 
114: return register. 


— eo oe ee Oe ee ee Oe ee oe ee ee oe ee ee ee 


{Fields 


CTQF (1 PWeDTC) 


CTOF (LPws DTC) 


CTQL(LPWSDTC) 


QCQN (A PWS DQC) 


CTQL(iPwWSDTC) 


| TCGW(LPWSDTC) 
1 QCQW (LPWSDQC) 
i 
i 
| OCON(IPWSDOC) 


—_— eee ee ee ee ee oe ee eo i 


{Usage | 


a9) 
©O 


9) 
tO 


fy 
-_ 


IPwHkR 


iPwSw 


my 
KR 


rO 
an 
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i] 
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LPWR 


IPWSW 


ee 
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DQ 


TC 


DQ. 


TQ 
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= 
{Labels  |Chart TR: IPWS$TR - Task Terminator {Modified Data { Reg. jCalls 
j | {Fields {Usage | 
| ce me a ee ne em a ee ee ee mee me re ee we ee re we wre we re ee ee ee ee ne es ne ee ee ee ne a a ee ee ee ne es ee ee ee ae ne ee ee ee ee oe we we ee eee oe 
{7X16 {The cylinder number is obtained from | 

jthe field addressed by register z j R2 

jand placed in register 1. The R1 


{starting cylinder humber of the queue 
{set is subtracted and this value is 
{multiplied by the number of tracks 
{per cylinder and the number of 
{records per track to obtain the 
{relative record number in register 1. 
{Then return via register 14, 

| 

{Disk Address Conversion Routine 

{ (celative to absolute) 


l 
{Registers used by this routine are: 


ae) 
-_ 
- 


>: work register 

relative record address 
pointer to field containing 
absolute address 

module control block address 
return register. 


Rao 
es te 

ro bo by 
Kao 


= WwW 
=e) 
w 


1 


— a oe i i oo oo 


| 
as 
_ 
co 


| 

{ 

( 

{ 

{ 

{ 

l 

| 

{ 

I 

\ 

| 

{ 

i 

{ 

| 

\ 

{ 

| 

| 

{ 

{ 

{ {The high order bits are stripped of 
{ {the absolute address, the DMB address 
| [is set in register 3. Then the 

| {relative track and relative cylinder 
| jnumber are calculated in register 0; 
I {the remainders.of these values are 
i {the relative record and track, 

{ {cespectiveliy. Together with the 

| {relative cylinder number these values 
{ Jace stored in the relative disk 
{ 

| 

{ 

{ 

| 

| 

{ 

| 

| 

| 

{ 

| 

i 

{ 

| 

| 

{ 

i 

{ 

I 

| 

| 

j 

i 

| 

{ 

{ 

I 

i 

{ 

L 


=] 
w 


to 
oS 


jaddress field pointed to by register QCOW (1 PWSDOC) 
|2- Then control is returned to the 
jcaliing routine via register 14. 


ee Se ee ere eee BS ee 


oo 
iN 


R14 


a] 
~ 
nt 
oO 
io) 
te 
0) 
A) 
b 
ctr 
oad 
© 
to 
= 
o) 
c 
@ 
nN 


{This routine is entered at TX22 in 

jthe case of unrecoverable I/O error. 
{This. entry point (TX20) is for PSTOP.j 
{Theretore, 'canceled due to PSTOP' is| 
{set in the VSE/POWER cancel code | 
{= (QRCN = X'30'). 


( 
{ 
i 
\ 
{ 
{ 
{ 
{ 
| 
{ 
| 
I 
| 
l 
{ 
i 
! 
| 
I 
1 
{ 
{ 
{ 
| 
| 
l 
{ 
i 
l 
i 
| 
| 
{ 
| 
{ 
{ 
| 
l 


i QRCN(LPWSDQR) 
| , 1 
TX22 {Entry Point ror Irrecoveracle I/C | 
{ ELCLOL { 
I | 
{If the function trace indicator { 
{(TCFT) is set to X'0O0O* or Cf * (main | 
jroutine just initialized or rcinished | 
{meaning no queue function has yet | 
{been invoked or logical end of spool {| 
{functions successfully reached), no | 
[clean up is required; in that case { 
re re >| TX30 
{Otherwise, if writing of an account | 
{record was pending (TCFT = C'E'), oc | 
{af the error occurred during account | 
{record writing, (TCFT = C'L'), retry | 
jon the account function is. effected | 
diel Ba Gia Ghee awe wie oe Bai ues eras onl ERS 
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TX24 


TX26 


TX32 


TX34 
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{Chart TR: iPwysTR - Task Terminator 


{ii the function was writing to spool {| 
j(output, TCFT = Cf'R"', C80", CP, or | 
{C'A'), branch LO kbs 6-3 Soe we See S eS >4{TX24 
| | 
{Otherwise (reading from spool), chneck| 
Jthe input function at........22222% >| TX40 
{ { 

{if this is an execution processor i 
jtask (TCTL = C'E '), it must be the {| 
{execution writer, so branch to..... >{TX78 
{ | 
{The Error occurred On a non-execution| 
{processor task. The address of the j| 
{queue space is obtained in register | 

{1, and, if there is no queue space | 
PODaGNCH EO. weiss cat ne twacaee cas bueia ee Ope 
| ! 

iif this is not a reader task, cranch j 
lhOss 2) leg veer weawewhe secu eceeiewo irk oe 
{ i 
{Otherwise, load the address of the 
{message. page into register 3 and the | 
jaddress of the message. area into | 
{register 1. j 

{ 1 
{The text of message 1Q64I is moved j 
jfrom the message page to the message j 
jarea. j 

\ | 

{A link is made to the message. routinej 

{to log message '1Q64I JOB jobname RDR{ 
[SET DELETED! 2.22 n2nncccnwacnes eistoanve DYTYTO 
{ | 
PBrANCH. (Ones oceans Oe eo eS ote we ele 3 DT XS6 
I 

}General Exit from Queue/Data File { 
{Clean Up 


| 
jif the task was an execution 


{| PLrOCeSSOLr, bDLAaNCh tO eswenescccneas >{TX7B 
{If RJE task, branch tO.....s.eeec0e- PITY 38 
{ | 
{if task. was not a kRDR, LST, or PUN | 
{task, branch tO....uasacereoas waneee >FTXB4 
{if tape spooling or cther tape | 
{function, branch tO....seveesccanee >| TY2Z0 
POEREL WLS Cin oo 5:6 0s. 00S Steet esseee es PP LY0 
| | 
jOtherwise, if the device used py the | 
{task 1S a tape , branch t0ss.66200s% > |TY20 
{if not (unit record device), branch {| 
[Ost ee tava cl eekesew cee oededwate PPT ead 
| { 
{if it was a save account function, { 
[DEEN £0s cae ed ones ade euasawawen D400 
jOtherwise, if the. task was the status{| 
(task. (TCTI=*P PS" jiu wsewetuwewsawss >| TY30 
Jit not, the task iS an unknown task; | 
Jin that case branch toO.s.....nccenee >| TY38 


ijModified Lata 
{Fields 


TRMS (TRWS) 


R1,R3 


Chart TR 
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{Labels 


‘ee a oe 


Ly 
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TX39D 


TX40 
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{Chart TR: IPW$$TR - Task Texminator 


| Write Account Record: | 


jif the task was owned by an execution| 
{processor, the accounting function is{ 
fignored; branch tO... cemweseenseee >| TX2Z6 
| | 
{if the task is a receiver/transmitter| 
jor Poftload task, branch to.....+..2>{TX32 
| If this.is a print status task.....>|TX26 
{ | 
{The current time value is obtained { 
{via an IPWSRDC call, and then stored {| 
jin the queue record. | 
| | 
{The virtual queue file address is { 
j{ioaded into register 1, and the j 
jlength of the account record which. | 
idepends on the class type (RDR,LST, {| 
jor PUN) is determined and placed in | 
{cegister 0. If it is none of these | 
| 
{ 
| 
{ 
4 
| 
i 
| 
{ 


{class types, branch t0....22ee0c0ee >| TX34 


| 
Jin case ot stopped list or punch 
jtask, counters for pages, 
{lines/cards, and number-of-copies 
{ace updated and moved into the queue 
| record. 

{ 
{if the start time is zero, bypass 
{writing the account record and branchj| 


(Oth assetw lew ese ses cute cecesscatee > PEXooD 


i { 
{The account record that could not tLe | 
fwroitten before is now written. j 
i | 
{if task is not a RDR task, but { 
jdelete queue set must be done, it is | 
{performed now. { 
branch to w..acasaceeanae ab ve eiaete Seaton DPLLXS2 
1 
input Mode Data/Queue File: { 
| 
[1£ TCTL = C'P PS*, no clean up is i 
{necessary, so branch to...... nen e 41 TX26 
{Otherwise, if the function is neitherc| 
{punch nor list, branch to.........- >{TX52 
jIf the device used is tafe, { 
(branch to. .....e.2eesae erode eacewaca >| TX36 
{ i 
{Z£ a PSTOP command without RESTART { 
jwas issued, branch to0.....eseeeeeee >ITK5S1 
{Otherwise (TCTT = C*R'), get the. | 
f{address of the logical list save areaj 
{in register 1 and point register 4 to] 
fthe account counter DSECT (LACS). | 
{ 
{Read the first queue record. 


[The remaining number of. copies is 

jsaved and the increment is set in 
{cegister 0. If restart is active, 

jupdate the restart page count in | 
|cegister 0, and branch to0...-.402.22-. >|TX50 
{If restart is not active, update the | 
{current page or card, depending on I 
{the class type. 
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[Fields {Usage 


QRET(IPWSDQR) 


bs) 
—_ 


——_— oo oO Be ee BE ee Se Se oe Oe Be ee Be ee ee ee oe oe 


JQRNE (i PwoelQR) R7 
jYURNP (LPWSDQR) 

| QRNA (I PwSDQR) 
{QRNR(LTPWSDOQR) 
{QRNC (LPWSLDQR) 

| 

| 

i fs 

co "t 
I 4 
j H 
i i] 
| d 
d il 
i i 
| i 
| j 
| | 
| | 
| k 
l i 
\ { 
| j 
{ ( 
4 i 
{ j 
i | 
| { 
i i 
l i 
{ i 
| {R1, 
| { 
i | 
| 4 
{ | 
\ | RO 
{ i 
1 d 
4 { 
| {RO 
j LACP 1 
{ i 
{LACR | 


bo 
Bo 
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{Calls 


IPWSRDC 


aPw$PAR- 


{LPw$DQS- 
| ILEWSFCS 
j 


o_o oe oe ee oe ee ee ee ee ee oe oe ee 


IPwoRDQ 
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jLabels {Chart TR: IPWS$TR —- Task Terminator {Modified Data #Reg. iCalls 
{ l ‘ {Fields {Usage | 
SS SSeS Fe Se ee eee he a ae a oS eS et ee ee ee a a 
{TX50 {Save the restart page count in the j QRER(IPWSDQR) 
| {queue record. { 
i i | 
(TX51 Jif this is not a physical writer { 
{task, branch tO...eaunsenccce ave wea 2 TX52 
| 


jIf the device being serviced is not 
fa 3800 printer, branch tO.s..enn0.22 >| TX52 
{If the output is not for a 3800, { . 
PDE AN Ch: C0 soe ac aes Se as etd wea waa es asaae >| TX52 
{Using register 1 as a base address | 
|for the TCB extension area, the 
{current copy group index is saved in 
{the queue record. 
| 

TX52 {lf the function during which the 
jerror occurred was 'get next gueue. 
jcecord', ‘get next data record', or 
jat a stage in between these two- 
{(TCFT = C'N', C*'G', or Cfl'), branch | 
(PE Osc so dao a eG Gare eae er pareree ae >| TXE68 
{ { 
{Otherwise, based on the values in the| 
{indicator, the queue set may he | 
{deleted or, if it had already been | 
{deleted, it may be freed. If deleting| 
jis not required, branch to......... >| TX54 
I i 
{Otherwise, after deleting, branch { 


QRCI (LPwSLQkR) 


LPWSDQS 


TX54 {If at this stage a 'release queue | 
{set' function is not indicated (TCFT | 
[= ChE"), DLARCH (LO: cua diese Sew Sam Pe oO 
{ | 
{The already deleted queue set is { 
{freed and a branch is made to...... >| TX36 
1 { 

TX58 {A test is made to see if 
{the queue set has been released 
jsuccessfully. To do tais, the DMB 
{is once again reserved, the first 
jin set queue record is read and the 
{queue record identifier is inspected 


{ 
| 
| 
] ITPWSRSRK 
| 
{ 
\ 
jto see if the gueue set was treed. { 
| 
{ 
| 
| 
\ 
i 
| 


LPwokdDe 


{(QCQLI = C'F") or reused for another 

{queue set. Then the DMB is released 
{again and, if the gueue set was not 

{freed before, it is freed now. 

{ 
{At the succesStul completion of tnis 

LrOuLiIte,, DEANCH Oss sowed Se vitae eave i> 


A OD AP AS SN A SO EE SO ce eS ee SE ce Oe ee mt te EY a EE eS ee ae et mS ee ae aD SN me cute te me“ A SAN ne pe cei te eR em em a enue em ie meee ce wee cee ee we a ee me nee ee ee ee ee ee, 


IPwdRLE 


LPwS$FQS 
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ee ee eee 


TX76 
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TX78 


tim oe oe oe ee ee oe ee oe ee 
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‘|Routine for Non-Tape Device and 


{Chart TR: 1LPWSS$TR - Task Terminator 


{Non-Deleted Queue Set 

| 

{The DMB is reserved. The first 
{record in the queue set iS now read. 
| 

jThe execution switch is reset and, if| 
{the task was ended by a PSTOP | 
{command, the cancel code in the queue] 
jrcecord is set to ‘canceled due to | 
JPSTOP'. The 'copy' counter and | 
{*cemaining copy' counter are updated | 

{if cequired. The restart information| 
jand the current copy group index are | 
jsaved in the first-in-set. queue { 
{cecord. If this task does not 1 
|belong to an execution reader, branchj 

PEO hee ore ie ahaa a Selo lesa ate eee Siew ele te eren of PXTC 
{ { 
(Otherwise, the disposition is reset | 
{from either 'K* to 'L* or from 'D' to 

{"H* (to prevent the job trom being { 
{dispatched immediately). 

i 

{The queue record iS written. 
{ 

{If RJE task, then branch to........ >| TX64 
{if reader queue record then branch | 

PRO is 6a e Sia es ees Pe ee oe ee ee ee aon 


{ I 
{Iz list orf punch queue record then I 
| 


{the tine bit in the master class 
{tanle is set, the DME is released | 
jand a branch is made tO...wweseeneas >| TXIE 


| 
{ Execution Writer Wrap-up: 


i 
{Register 1 is pointed to the 
{synchronous register save area, and 
{tne failing task's registers 4-8 are 
{creloaded. Register 6 contains the 
jaddress of the PDB and register 4 
{that of the device list entry. If | 
jthis is. an execution reader, an error| 
{has occurred (this is the output mode} 
{handler); tneretfore, branch to..... >{TY38 
1. | 
{Otherwise, get the queue space | 
jaddress. If no. queue space is | 
favailable, branch to.....eeswecawe se >4 1X86 
| 
{if the execution writer uses tape, | 
POrAaANCh tO... savas vcwcsenacscscacanse >|TXB4 
{Otherwise, if the current record oi 4 
jthe first record in the current queue| 
{set is a bad record, bypass { 
{segmentation. and branch to.s.......- >4{ TX86 


— ae oe i 
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iModified Data 
jFields 


| ORXS (IPwS$LQR) 
| ORCN(IPWSDQR) 
| 
| QRNC (iPWSDQR) 
| 


[QRRK (IPWSDQR) 
{QRC4 (LPw$DOR) 


QRCR (LPWS$DQR) 


ORDP (LPWYLQR) 


—_ oe ee Oe te ee oe oe oe oe 


CTQL(IPWSLQC) 


_— = eo oe oe oe we oe Oe Oe ee oe ee ee oe ee oe = 8 oe oe ee ee ee ee 
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oO 
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IPWSRSR 
IPWSRDQ 


iPWSWTOQ 
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Labels {Chart TR: LPWS$TR -—- Task Terminator {Modified Data | Reg. iCalls 
| |Fields {Usage | 
| poo ne worn 
{TX80 {if no output was generated, reiease | | JaPwoFos 
{the queue set, and branch to....... >{TX86 | i 
{Otherwise (bad record somewhere in l i j 
| 


{the queue set), segmentation of the | 
{queue set is effected. This is done | 
{oy forcing end-of-data (blank data i | TCCC(LPweDTC) iPwoPDk 
{field, length of one, NOP CCW). and \ {TCGP(iPWSDTC) 
{setting an 'I' disposition to 'D', ij JQRDP(LPweDQR) 
j{whize at the same time setting the | | 
[queue record identifier to 'reader'. {| {QROQT(IPwWdDQR) 
| { l 
{Now the queue set is added to the j 
iclass chain; branch t0.........222+ >| TX86 
I { 
TX84 {Message 10611 IRRECOVERABLE i/O ERROR| 
{ON CUU is printed in the........... >{TY70 
|subroutine. i 
i 
TX86 {Control of the device in the user 
{partition being spooled is passed 
|[back to the execution reader Ly 
{setting the address of the 
{controlling TCB (that is in the 
idevice list entry IPWSDDE) in the 
{partition control block (IPWSDPD) to 
{point to the execution reader TCB. 
{The execution reader task will 
{initiate an execution writer task to 
{continue processing. . The execution 
jcreader is set dispatchable, as well 
fas the partition. Then messages 
{10681 SEGMENTATION FORCED FOR jokname 
jnionn ttt CUU and 10691 DEFAULT 
{OPTIONS TAKEN FOR jobname nnonn ttt 
{CUU are printed. 
I 
{lf the device is tape , 
junassign the device using registers | 
{O0, 1, and 3. Then branch to....... >TY58 
| | 
TYOO [Save Account (PACCOUNT) Task Wrap-up | 
| Routine { 
{ { 
{lf the ‘railing device found! switch | 
jis set, the failing device was not an{ 
foutput device for put account, so { 
{branch to..... loieeie we a elev wns was saot aie aaae P|TYO?S 
{ { 
{|Otherwise, message 1Q611 1 
|UNRECOVERABLE I/O ERROR ON PACCOUNT { 
{OUTPUT DEVICE is printed in thew... >| TY62 
{|subroutine, and branch is to....... >| TYO4 
{ \ 
TYO2 {If the account file was in the j 
iprocess of being erased or if the 
{operator requested deletion of the 
faccount file, branch toO.w....2020058% PD 


IPwSAQS 


TLIC (iPWSDTL) 


TCEB(iPwW$DTC) 


LPWdGAM 


IPwSGaM 


— te me ae ie ee ee ee ee ee ee oe ee 


tPwSULP 
K3,k1 


{ 
TYO4 {The ACB is reset to 'put' mode, and 
{its original values are restored. 


LPWSCAF 


— mh = oe oe oe Oe me ee oe eo eee eo ie 
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e 
{Labels {Chart TR: IPW2$TR - Task Terminator {Modified Data | Reg. 4Calls 
| {Fields {Usage jf 
{Message 10661 ACCOUNT FILE KEPT and { {LPWSGAM 
{message 1072I PACCOUNT TERMINATED are| i 
j printed. | {LPWSGAM 
{ | 
'|{Reset save account active indicator | 
{If the activity was on disk, or if { 
joutput spooling was active, branch | 
[COs cw ccmescccawessmaswecsnessaaccee >I 
jOtherwise, the CCB pointer is \ 
{obtained in register 3; if.no CCE is | 
fjinitialized, branch to.....scewsees DP TYOSB 
{ | 
jIf the activity was not on tape, q| 
OPER CH POs s seaweed tome ee es ee ao PT LOG 
{Otherwise, the CCB pointer for the { 
{tape is stored in register 3 and set| 
{to a dummy SVC value. Then a fetch | 
{is simulated to close the SA tape | 
{fiie~ This is done via $$BCLOSE. | 
{First storage tor a service request | 
{ is acquired and formatted. the SRB | 
i 
\ 
1 
! 


= = Ge Se SS = oh SS oS SS Oe Se Se EE on 


| $$BCLOSE 
| IPwSRSwW 
R14,R15| 
{iPwsias 
{ LPWSRLW 


{then passed to asynchronous service 

{for processing. On return the SRB 

jis released. 

{ 
TYO06 j{Unassign the device and branch { 

jto.. ese 2 ae eo2enraeee aeetetesaeaeawzwensaaeaerne2n anne 4+ 82 & >{TY38 

i | 
TYO8 {Set up a dummy CCB and point register{| 

{3 to it; then unassign.the device and| 

{branch EO oe eS is ee. Be oe ose ew, Boece ale >| TY06 

{ { 
TY20 {Close and unassign tape : 


{ 
I { 
{Register 7 is based on the tape { 
I 
| 
| 


IPWSULP 


LPWSULP 


_— om oe oe ee oe ee ee ee ee ee ee ee ee oe ee ee 


to 
~] 


{control block. If no unrecoveratle 

{1/0 error was encountered (IPWS$TR 

jentered via a PSTOP command), or if 

{the error found is not a tape error, | 

PODaADCh tOssc canned cawestuacaaaeseeaaee PL TY2Z2 

{|Otherwise, message 10611 | 

{ITRRECOVERABLE I/O ERROR ON CUU is 1 

J printed. if thes .<s.scicwevewewca saw OF TYTO 

jsubroutine. Then branch to.....02- >| TY ZH 

| { 
TY22 {The command is issued to rewind and 

{unload the tape. 

i 
TY24 {The tape unit is unassigned; then 


| IPWSCTT 
{ 
| 
| 
[DranCh £Os.6465 4 see aiees Geiewes ee 2hTY Sd 
i 
\ 
1 


IPwsULP 


| 

TY26 {Validate Unit kecord CCB and Unassign 
{the Device 
{ i 
{If an unrecoverable i/C error was | 
{encountered (TCTT = Cf'U'), message | 
41Q732 STATUS DISPLAY TERMINATED is | LPwSGAM 
{printed. i 
{Additionally, if a ECB was supplied | 
{to be posted on completion of the | 
{print status task, the ECB is posted { 
| | 

TY28 Jif the unit record device that failed{ 
{is the console or a spool. management | 
{task, it need not be unassigned, so | 
[OPANChH COOK. sca cwvswesw css wacencaaces AP TYI8 
{Otherwise, unassign the device at... >| TY36D 


a ei eee ee ee ee ee ee ee i ee ie ee ee ee ie 
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= 
{Labels 


TY30 


Lae] 
ra 
bo 
iN) 


TY34 


ry 
e 
Ww 
On 


TY36B 


TY36C 


Pe ee ei ee ia 


{Chart TR: IPWS$S3TR - Task Terminator 


| Unassign the Unit Record LUB: 


{if the entry condition found was not 

Jan unrecoverable I/O error, branch. {. 

| COw 6:4. o siaie ees eke law ol ehelw lela ale eles owe wee PITYS4 

{If the ‘failing device found' switch { 

{is set, the failing device was not a | 

junit record device, so branch to... >{ITY32 

| ( 

{Otherwise, message 1061i 

{UNRECOVERABLE I/O ERROR ON CUU is 

[printed ti: thes. ssees soak caeegaans. > 

{subroutine. 

| 

iMessage 10711 TTT,CUU TERMINATED is 

| printed. 

{branch to....... Or ee ee ee ee > 

{ 

iMessage 10331 STOPPED TTT,CUU is 

| printed. 

{ 

{In case the current task is a spool 

{Management task, then Lypass this 

{coutine and branch to release 

{resource t0O......... ia letat a Ue dss afar eijetel ae 

I 

{if task is not a reader or list task,| 

([DPaneh. £Ovi sewevs ciwee ta yuns bela eae: REY S6D 

| I 

{if the task was the SYSIN or off- i 

{loading task, branch to......2.02.. >| TY38 

| { 

|Load register 8 from register save i 

jarea. j 

{ | 

{If zero, work space is already | 

jreleased,. branch: TOsasaen~ sscewe saa Df 

| \ 

jflet register 1 point to CCB (1 { 

Jbuffer). i 
i 
| 
{ 
| 
{ 
| 
| 


| 
< 
~ 
© 


a] 
< 
12%) 
fon 


— i oe oe ee ee ee ee ee 


TY38 


{ 
{1f£ task is writer task, branch...... > 
{ 
{If this buffer is active, then let 
{cegister 1 point to the other CCB. 

{ | 

jIf task is not a writer task........>|TY36D 
{ 1 
iCheck if CCB is already posted. .This| 
fcould be the CCB having the I/O error| 

jand the reason to be here. { 

i 1 
{lf not posted, wait on I/0 j 
{completion. | 


t 
| 
t 
i 
I 
! 
I 
{ 
1 
| 
j 
! 
{ 
| 
I 
| 
t 
! 
| 
I 
| 
| 
' 
' 
t 
{ 
| 
! 
' 
I 
' 
t 
' 
t 
' 
t 
' 
! 
t 
\ 
| 
{ 
! 
! 
! 
I 
| 
| 
! 
t 
' 
| 
' 
t 
I 


i 
j 
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a 

Modified Data | Rey. iCalls j 
Fields |Usage | { 
| 

i | i 
| | i 
i | 4 
| | \ 
i i \ 
{ 4d | 
| i | 
| { i 
| | d 
| il i 
| | | 
I \ | 
| | ( 
{ d I 
| i { 
| JIPwSGAM | 
i 4 | 
1 | i 
4 {IPWSGAM { 
{ | | 
j | i 
| d i 
4 | i 
{ i | 
i | i 
\ \ | 
i | | 
| | ( 
{ | i 
\ | | 
{K2,R8 i j 
| i i 
| | | 
| | i 
| j d 
{ { i 
| | i 
i { i 
{R1 { | 
{ | { 
| i | 
j i i 
| | { 
| i 
i \ i 
[R14 i | 
| i | 
i i 4d 
7] i { 
{ | i 
| 1 i 
( | { 
| | | 
| { | 
d {iPwSwWFC | 
i | { 
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' 
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! 
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590 


[Assignments made for this task are | 
[now to be unassigned. j 
{ 1 
{Load register 2 with the cuu field | 
{from the TCB. | 
{ | 
{Load the branch index to request for | 
ja generic unassign into register 0. | 
i I 
{Load tne address ot the VSE/POWER PIB] 
{into register 1. j 
| 1 
{The current unit record device is | 
{unassigned. { 
L- | 
{I1f the task is not a reader task, { 
{branch to......4266. eee eae ee ea | 
{ { 
{If the 3540 PWS is not already { 


jreleased branch toO...secswcewsesaeas >| TYS7 


| | 
{if the reader task has not been ] 
jactivated in combination with a 3540 | 


{diskette reader, branch toO......2.. >|TY38 


| | 
{Load the address of the register 7 { 
{fieid in the physical save area of { 
{the TCB, which can contain the | 
{programmer unit humber, as a CCB likej 
{field into register 3. { 
i i 
{Point register 1 to the PIB of the i 
IVSE/POWER partition. | 
l i 
{Load register 0 with the branch index| 
{to request to unaSsign the programmer | 
{logical unit in the CCB like field j 
jaddressed by register 3. | 
{ 1 
{The programmer logical unit assigned | 
fto the 3540 diskette device is 


{unassigned and pranch is made...... >| TY38 


{ { 
{Otherwise address the 3540 PWS and i 
{cteioad register 3 with the address of] 
(PELU - 6, to use this part of the | 
[physical work space as a CCB like 4 
{field. | 
| i 
{Point register 1 to the PIB of the 1 
{VSE/POWER partition. | 
| | 
{Load register 0 with the pranch index] 
{to request to unassignh the programmer | 
{logical unit in the CCB like field 
jaddressed by register 3. 

{ 
iThe programmer logical unit assigned 
{to the 3540 diskette device is 
{unassigned. 

| 

j|lf there exists a high levei Pws, 
{this 3540 diskette device has to be 


{UNASSIGNEd CODe sw re sce scanner cacccce D|TY37 


{Otherwise branch to continue... 226 >| TY38 
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{Chart TR: IPWesTR - Task Terminator 


I 

{Register 7 contains the address of 
[the tirst resource, and register 8 
jcontains the number of resources. 

| 

{A scan through ail ceontroli biocks is 
jmade. If the control block is for a 
{function or a device that is 
{supported py the present systen, 
flocked, and owned by the task, it is 
jnow released. 

I 

| 


{A scan through all lockwords is made. 
{if the task owns a lcckword, it is 
{celeased. 

{if the task is an execution writer, 
{scan all data fiie MCBs and wait for 
{completion of any outstanding doukle- 
{buffer requests. 

l 

| Fxecution Reader Wrap-up: 

I 

jaf the task is not an execution 
{reader, branch to........2.4. ee eee 
{ 

{Estaklish addressability of the ECB 
{in cegister 6. 

l 

[Release DMB to prevent execution 
{writer waiting on locked. resource. 

I 

{Get the number of entries in register 
{0 and the first entry address in 
icegister 4. 

l 

{Scan through the reader table and, 
{for those tasks that have been 
{started, reset the ownership, set the| 
{task termination code to stop (TNTT =| 
iIC'S'), and post the live indicator in| 
{the event control block. Then wait j 
(tor the writer task to sign stop I 
jcompletion. | 
{ | 
{The VSF/POWER control flags in the 
juser partition are reset, as well as | 
jthe partition control block. j 
l | 
{Then unassign SYSRDR. If the parti- | 


— ae oe oe ee Oe ee ee ee ee ee ee eee ee ee ee oe oo eo 


{tion is writer-only, branch to..... >|{TY18 


| { 
{Unassign the device specified in the | 


jentry. | 


{Modified Lata 
{Fields 


——— ee oo ee ee ee ee ee ee Oe ee ei oe ei eee 


{TLCT(LIPWSLTL) 
{INTT (2 PwSDTC) 


1 
{ TNEB(iPwSDTC) 


POWFLG1,2 


| 

{ 

i 

{ 

{ 

| POWPCE 
y 

i 

{ 

\ 
{TCGw (i PwyLTC) 
i 


— eo oe kh ee ee ee oe, oe oe oe ee oe ee eee ae, 


mn mee te ee ae a ne a we ee a re ee a ee ts me ee ae me a ne ee ee en we ee re a ee ae ee ae ee ne ee ee ne ee ee a ee ee ae ee ae ee 


Reg. {Casls 
Usage 

{ 

{ 
R7,R8 | 

{ 

| 

I 

| 

d 

| 

i 

\ 

{i PWSRLE 
R7,k8 4 

{ 

| 

\ 

| 

i 

| 

1 

I 

‘ 

i 

i 

| 

| 

| 
k6 i 

i 

i 

(iPwskLR 

i 

| 

| 

( 
R4 | 

d 

| 

| 

j 

\ 

| 

Ja PwHwWkC 

| 

| 

| 

d 

‘| 

{ 

( 

{iEWSULE 

{ 

\ 

{iPwsULP 

i 
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{Labels [Chart TR: IPWS$$TR - Task Terminator {Modified Data i Reg. |Cails 

{ I {Fields [Usage | 

H a nn ne a a a ne ee ei os ee ae mn ee nn ee ne ee we ee ne a ae ae a ae a ee 
| TY18 {Point register 4 to the next entry in| R4 


|jthe PDB and continue to unassign, via| 
{branches to TY16, untii ail units 
{have been handled. 

{Message 1070L TASK FAILURE, STOPPED 
{TTT is printed. 

{The user partition is canceled 

I 
J]A1ll Data file MCB's are scanned to 
|check whether the execution writer 
{task has any I/O still pending while 
{the task terminated. This is done 
{by locking the appropriate MCB. and 
{checking if the task did issue the 
{last i/yO. it yes, the execution 
{writer task is put in wait state until 
{the I/C completes, if not already | 


| 
| 
| 
| 
{ 
i {ITPwSGAM 
i 
i 
i 
1 
{ 
i 
| 
| 
H 
| 
1 
Jdone. If an 1i/C error occurred, | { 
| 
i 
| 
{ 
| 
i 
| 
{ 
i 
{ 
| 
| 
{ 
| 
| 
| 


{| TREADY 
| 


IPwS$RSR 


—— mm a 


a ee OO oe ee ee oe 


LPWHWEC 


Imessage 10611 IRRECOVERABLE I/0 | 
{ERROR CN cuu is issued by routine...>|TY70 
{An Indication is set that the I/0 { 
{request is handled and the buiier 


al 
-_- 
£ 


MCTV(LPWSDNC) aPwSRLw 
{ MCOT(LiPWSDMC) 
Ispace is released. Finally the MCB {| LPWSRLR 
dis unlocked. { 
| | 
{ 
{ 
{ 


{ 
{ PNET Receiver/Transmitter wrap up: 
| 


{if task is not a receiver or trans- | 
PMPCCCL vin ose A Neuse Se Re ee See ee oie Jef LY PN3O 
| \ 

{Pick up proper address of error exit | 
according to task type. . r] 
(Restore registers and branch to error| 

(exit teieev close see etateds caVGu tue ek To 


——_— = 
—_ 


—— en oe ee i ee ee ee ee 
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{Labels {Chart TR: IPWS$STR - Task Terminator (Modified Data {| Reg. jCails 
I {Fields {Usage 
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{ 

{ 

| 

| | 

{ {The address of the first page is 

| {loaded into register 8. 

| | 

({TY44 {The address of the first butfer 

i {control word (BCW) on this page is 
{ {loaded into register 7. 

{ | 

{TY46 {The. buffer length is obtained in 

| Icegister 2. If the length is zero { 

| {(end of page), branch to......22.2.2. >| TY56 
{ [if the length is positive (buftrer not{| 

| fin se), Pranch toO.sac6s + cacesscavs OL TYS4Y 
| jOtherwise, load the positive tutfer | 

{ Jlength into register 3. 

{ { 
{TY48 {The length of the next buffer is 

{ {loaded into register 4. If that 

{ jbuffer is not active or if end-of- 
{ {page is reached, the buffer after 
| {that is obtained. This process is 
| {continued until a second active 

| {buffer is tound or end-of-page is 
I 
| 
| 
I 
{ 
I 
{ 
I 
{ 
| 
I 
| 
| 
I 
{ 
\ 
{ 
| 
{ 
i 
{ 
{ 
I 
| 
{ 
{ 


= oe oe oe oe i ee eo oe 
oo vel mm 
& iN ~~! 
——— a oe eo oe oe 


—_——_— mn _— a 
ee) 
- 


— oe oe ee ee ee oe ee OB ee oe 


I 
{ 
| 
i 
| 
| 
4 
{ 
( 
{reached. {i 
[ { 
TY50 {Two active buffers. have now been { 
|found, or one active buffer has teen | 
{found and end-of-page was reached. { 
{|The address of the second Lutter is | 
{saved in register 6 and, if the owner] 
jof the first buffer is the present { 
{task, the first buffer is released. { 
{Otherwise, the first buffer is 4 
{ignored, the address of the second i 
jbuffer is updated to make it the i 
|rirst buffer (address now in register| 
17), and a search for another active {| 
(buffer is started at..-..s,0222-225 >| TY46 
{This process iS continued untii all | 


IPwSRLW 


— oe ee ee ee ie ei 


{work space is released. 


—_ oh oe ee oe oe ee ee a oe oe ee oo ee oe oe ee 


1 

I I 

TY54 {The BCW pointer is updated aad the | 

Jnext buffer checked at......22.24.:, >| 

TY56 {if end-of-page is reached, switch to | 

{the next page (address in register | 

{8); if there is another page, branch | 

VE Ois bis sere Sake Se oe aoe eee eae ee >| TY44 
(Otherwise, ail active work Space has | 

{been scanned. 
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Lapels |Chart TR: IPWSSTR - Task Terminator {Modified Data ikeg. {Calis 
| | jFieids iUsage |} 
JTY57 {Release all acquired virtual storage | | IPwWSRLV 
I | I l 
{ {li this is not an RJE task, branch 1 | 
{ REOx co. Gis cas Soe ba oa boa en Sea eases TT LO? i 
| jif this is not an SNA reader or | | 
| Jwroiter, branch tO... ase ane ccrecese > | TY06 | 
ITY58 {If this is an SNA inbound processor i 
| {task, the address of tne inbound i 
{processor is toaded into register 2. | 
| [Otherwise the address of the SNA | 
i joutbound processor task is loaded | 
{ jinto register 2. | 
( { l 
{TY64 {Addressability of the SNA work area | 
| {(WACB) is set up in register 3. | 
I { { 
| {The address of the RJE,SNA error | 
| {routine (WAER) is loaded into | 
| {register 1. { ] 
{ {The processing Switch in the SNA work] { 
{ jarea 1S Set to X'FE' to indicate that/| ij 
| [the logical iaterface is closed. ] 
{ {The RJE,SNA error routine is branched j 
{ {to via register 1. i j 
{ { | | 
{TY66 {The addresses of the related RJE,BSC | | 
| |routine are loaded from the task save] | 
| jarea and a branch is made via { { 
| |cegister 14. i l 
{TY67 {If not a spool management request { | 
{ [.(8CTIi¢* Id") 5 Dranch £0.25. ssewwac 21TYOS | 
{ | 
| \ 
i i 
I 1 
{ { 
{ i 
{ | 
{ { 
{ 1 
{ | 
{ { 
{ { 
| i 
{ { 
{ | 
| i 
| | 
{ | 
( { 
I | 
| | 
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\ { 
{ | 
{ 1 
{ i 
{ i 
| 1 
ct 
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= 3] 
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—o oe oe = a= 
Ls] 
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WASW(IPWSDWA) 


— ee oe oe ee ee ee oe eo ee ee 
= 


Phase 
JPWSHSTH 


—— 
bs] 
—_ 


{RI4-KY 
{R14 


TCXA(IPWSLTC) 4R15 
CASF(iPwSDPA) 459 


{The adaress of the error routine i 
jis set up in register 15 and the basej 
{tegister 9 is established. { 
{Direct branch to termination routine 
jin IPWa$sM. 


{ 
| 
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| 
l 
| 
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Pel 
Ww 


TY64 {Addressability of the SNA work area 
{| (WACK) is set up in register 3. 
iThe address of RJE,SNA error routine ] 
| (WAEK) is loaded into register 1. | 
|The processing Switch in the SNA work{ 
Jarea is set to X*FE* to indicate that| 
{the logical interface is closed. l 
|The RJE,SNA error routine is branched] 
{to via register. 1. 

\ 

TY68 {The task is detached. 


wASW(iPw$Dwa) 


=e] 
-~ 


Write Message to Console Routine: 


Register used py this routine is: 


bo 
-_ 
Bong 


14: return register. 


a oe ee oe oe 


TY70 [Write a message to console using aPwowTO 
[message Service and return to the 
[calling routine via return register 


(74. 
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Se ee ee ee ee a ee 


IPW$sTt 
Termigation 


| 11-1.0{ 


t | 
Gather _ nal 
Account ing 
Ianto 
e 
Ti-1.1 T1-1.2 
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IPASSI4 -— Termination Processing 
INPUT PROCESS OUTPUT 





bab 


= 





IP Rootphase 





wait until terminator task is 
re-activated by the coamand processor. 


Ifa FSb7 TONER control io partition is 
dormant (in eee Rate) message 1025I 
part-id IS IN oP STATE is issued. 


Wait until all tasks are detached. 


A. Detach asynchronous Duap subtask 





8. Detach asynchronous service subdtask 


Print status report | 


f—-——.. | 
< eveccee > Print Status Report oe 
—/ |) 
IP-2.2 


. cemote tble 
It accounting support: a 


ae a awe ae a ee —e 
A.-|Gather VSE/POWER accounting 
inforgjation 
19-1, if 


eee ee eed 


snared 


: 
| 
| 











- terminate Notify message task 
SYSCOA 


[ropris3 } 


: 


MRDB 
NROR 
| NROP 
fess table 








[07] Pinal housekeeping 
(close queue files) 





= Tas foo] If Notify Message Processor is active: |{——— 
19-1.2 -_ 


remote tbhle | fos} Write final termination aessage 


POWPLG 1-2 


snared | 
A. Turn off flags in SYSCOM and COMREG 


Be aia other cugponents, that 
VSE/POWER is terminated 


COAREG | 


caT 


{Cacl | 


t._-________3  } 


uty 


| 
[z] 


U9} VSE/POWER is terminated by issuing EOJ | 
macro. 


ee tr re ee So nr EE ES SP CRE SS A A EY Ce SEEDS CRT aN GED SEAT DO SOSA CAE PSD se cnt 
— 











$$ , 
NOTES {| MODULE | LABEL | REF | NOTES |} SODULZ | LABEL | KEF 4 
| 1 The command processor dispatches t (SWFL it 33 An internal avwacro call LPWsIAS } t {SLAs { 
| tne Initiator/ Terminator task } TPYE=DETACH is issued to detach ry 
when a PZND comaand nas been the asyuchronous service { 
| entered oy the central operator. | untae 4 wean aaa | 
attached a 
Z cae. miley 4 es ore Bacle fd scannee COSREG T7100 ha i iNitialization time. | | 
o see a -controlled 
partition is sn the stop state. If | | 5 VSE/POWER accounting information | t { 
S an information message jas sent { 4s gathered froa the DOS/VS# 
to the operator, who BUSt Start accounting table and a final 
again the partation to coerce execution accounting record 
processing of the currea quese followed py an EOP record is 
SAUEy sat 38 aeons e. 10231 written. 
part=i 
t 6 If Notify messaye task is active 
3 This is tne case when only two or [SWFC the TCB is released and the Notify 
three VSEB/POWGR tasks are still task is set dispatcnapnle 
active (termination task, command 
processor task and tamer task when 8 Message T1190 satu 
shared spool ing) - 211) VSE/PowEe HAS BEEN 
The task-detach routine, located : 
in the VSE/PUWER nucleus, posts SA Reset address of VeE/PUuee Tiy5 
ene skSMaEe SE baie ak Only when 4 OF partition in S¥Ssc 
asks are sti alive. 
3B A SUBSID macro instruction is SUsSID 
3A A ternai macry call: $GTE issued, to i1nfora other 
TPWSGTE LENGTH=(RV) where 80 as coa oapenents (e.g aed | that 
set to zero, is issued to VS&/POWER is terminated 
indicate the partly failed Area : 
is to be dumped if required. It a bad perirh.c code (»=0) is 
gaven bac gessa 
3A A internal macro call SILAS i BSI INTERNAL BRCRO CALL FAILED, 
IPWSIAS TYPE=DsTACH, TASK=DUMP =rrmam is issued and TSese Case 
is issued to getach ” the ke teraination is canceled 
asynchronous dugp subtas 
@nich has been attached at 9 VSE/POWER is terginated by issuing [Bud 
VSE/PUWER initialization time. i an EOJ macro instruction 





Onn 
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IPw3$T1 - Gather Accounting Information 
INPUT PROCESS OUTPUT 


| 


| | 
| | to | | 
| =I 
: 1 {oa} Build accounting record | | | 
oo | | | 
3 write execution account record (for |} | | 
Dosey se Acct 3 VSe/POWEK partition itself) | [I Account Kec. | 

Ste ee Peel esse aad = (oe 
SETS a drite Hor record | aaa | 


Exit, return to seo 


By 


ee a ee ee re 








NUTES — | SODOLE { LABEL | REP NOTES { SODULE Label | RoP 
Gather neccessary accountin Px00 | - The DOS/SVSE account-timer value |GETJA 


! 

anform@ation for £ inal VSE/POWER | | I} 1s updated t t 
accuunting record from DOS/VSE ; 30 | | anes 

partition=accounting taple. | - The current time is received $xDC | 

and stored into the execution t { 

= pa eet is LS gg re fOr the | | account record | | | 

execution account record being 

built 2 PAN 

1 {| 3 A null record (record length = ) | | gran | 

- Information from the vUS/VSze COM k Eo aS wratten to indicate x£O0F to | t t 

accountiny table 15 moved into the accounting | | 

execution account record ' 


| CC a ne nS a 
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IPWS$S$T1 - Panai housekeeping 
INPUT 


DMs 


faevice info ] 





a 
oD 
a 
ad 
o& 
Hh 
fad 
o 
ras 
7) 





——— 


4 


i 


— 


master record 








c 


lone 00 0s oe ne 08 oe oe 29 OO Ee HED OF Oe BSF Oe OF EP He Fe Oe Ht os OF Oe CE OR ED Oe FOL Ee ee see cee 


remote tole 


| 
E 
J 





SSF2 
SSID 





Ke 


find 
a ref ee 


{ 
{ 


Wooo ce ec as ce oeeces ns ee ee ey 


Initiator/terminator 
TCB 


TCEB 


IP work area 


' 
| 
i 
| 
' 
i) 
t 
PRTETeCerereTererer ere Te Tere re Tere ryy 


fia 


Cre ge cae ee ee ae, a ae ghey A A AEN hp ga eg TCE ey Se ee eee Oe 
i NOTES MODULE | LAsKL | REF if NOTES ! SUDULE | LABEL | 





fecue E a LOCK reyguest for 
uevue File. Returh from the 
lock is complete or when an 
error nas occurred. in the 
dater Case message 

INTERNAL SACRO CALL 
FAILED, 
VSE/POWER termination 158 

canceled. 





19 OO RE oe ee eee OF ee OF OF OF oF FO Ee Os 80 Oo ne BOM 


the 
ock is only recieved wnen the 


kC=rrma is issued and 


Licensed Material 


PROCESS 





Mainline 


Deactivate page~fault appendage overlap 
routine 


If shared spooling: 
Set stop code an tiger task TCB and 


tas 


c. Lock queue-file. 
If an error occurred, 
teraination 


cancel 
Read master record 


Decrease use count by one 


| post work-to-do £Cs8 
conan? d B. Sart until re-actavated by tamer | 
Remove sysid from sysid bucket ce 


Rewrite agaster record 


0 Close 


file applicab. 


uniock gueuve tile. 


I1£ shared spoolin 
P 2 4, cancel’ termination 


: aaa 
ueue Peet data file, and account | 
e. 

If an error occurre 
Exit, return to eit 
e 


ok 
- 7 
v 





| 
| 
| 
| 








| 1 ane pagers aut corersaep routane is orn T7220 } 1 fiesta a é - a 
eact ivated se count is decremen 
| H | one to reflect tnat this ¥S6/ DOWER 
| ene Shared spoclsny functign and | {| system terminated properly. 
e timer task are terminate 
| 4 Tne sysid is removed fros ay 
ZA The timer task 1s forced to | | j ny sysid bucket, Shou ang woaich ! 
complete, wnich detaches the | systems are Snot aig he same gueue | 
DOS/SVSE Suptask and rewr ites file and data 
the DMB if necessary. The timer 
task then detaches itself. rd 
| 25 When tne timer task nas | | Iswrc | 7 ‘The queue file is unlocked to 
t fanished its Processing i allow other processors to access 
{DUS/VSE suptask 1s detached), i the queue f 
it reactivates the terainator } 
task 
ee The gueue-file must pe acyuared |LOCK 
for exclusive use by tnis 
processor. This is done by 
| | | | 
| | | | | 
' t 
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c4iass table 
AOC 
remote tpole 
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CHART XJ:  IPWS$S$Xd 


SS = eo a eS ee ee eee 





a ce ea te A te ERE re ER NS A NR IE A A A Nc MS I 





c. 1 
{ IPWSS$XJI - VSE/POWER Scan Execution JECL Statement | 


| --—-------—--—---—---—- 

















{ Label j Routine i 
Se SS Se a SS es 
1 xJ00 { Function Entry i 
{ xXJ18 { Handle CTL, RDR and EOJ Statements / 
| XJ30 { handle JOB Statement ij 
{ XJ60 | Handle LST and EUN Statements i 
{ xXTOO { Update Tasks i 
{ XA08 { Process Positional Cperands i 
i XKOO { Process Keyword Operands i 
4 XJ78 | Handle SLI Statement i 
{ XJ86 { handle DATA Statement i 
l a 


te cece cs a apes aera cece cee cece cg“ eu Sa Se Un wesc i eee Ae ES SG Ee ee ence et a 


























GC eB ye a as Pp ST eek ns ep a ee oe ag ets AR EIT Le Peg GS Wi Lena Ey ME elec CS ee ge a ete ES TET RE ae Ate ep ate oe ee ae a 
{ Services Used i 
SS ee ee ee ee ee ee ee SSS toes 4 
{ Service {i Macro 
|-_-—__-----— + -- ee 4 
{ Task Management | IPWSATT i 
j j iPwSwFc | 
j | IEWSWFI i 
¢ St SS SS SS SS are See 
i Resource Management j IPWSRLR j 
j { LPWSRSR j 
t SESS +--——_-___ 4 
{ Storage Management { IPWSRLV | 
j | IPWSRLW i 
i | IPWSRSV | 
{ {| IPwWSRSW \ 
{| Message Service { LPWSGAM i 
| | IPwSWTO | 
| { IPWSWTR { 
[ i a es ia <n Som Saal sp Sg cp Sms tn oa Ss Sy sas as i ct a ek ts ac ah ee gm at hg a i a a gO ed 








henson aerate ioateeioaaiensi nn a a a a RS A 


{ Functions used ij 





t a nnd 
i Module | Macro | 
aga =e ee ee Se eee 
| IPWSS$GD | sPWSGDR i 
4 IPWSSLU { IPWSULP i 
} IPWSS$SL { IPWSGSL \ 
[ a I a a a a i a a a a a rani oncom eae 





a A TE AF 


{ Called by IPWS$SXJ ( 








i i are A aan An inci aapRiaihy SAIS eat ae oe RO ee ee ee Ee eee ee eee eae Rt ee eee oe A wee ct ape eT ep eS ATT a A aE STE a I 4 
{ Module { Description i 
(Se +— Ie i a RET 
{ IPWSSXR { Execution Reader i 
{ LIPwSSXW { Execution writer / 
L a ee a ee a ee eed 
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pr rn nn nnn rn nn en enn rene 

{Labels [Chart XJ: IPW$$XJ - Scan Execution iModified Data | Reg. {Calls 
j{JECL Statement {Fields {Usage j 

{This routine is entered whenever a 

{JECL statement is encountered in the 

jinput stream. 

\ 

{The first 16 bytes constitute the 

{section descriptor: 

j'XJCS release!’ 

\ 


{General Register Usage: 


pal 
Cy 
~n 
1) 


oe 


3) 
oO 


**x%* - Service work register 
*%x%x%* -— Service work register 
**x*x* - Service work register 
***%x - Service work register 
*x*%x%* - Reserved 

LFWSDQR - Queue record space 
IPWSDPD -— Partition control 
block/Base register for 
subroutines 

**** - Addresses keyword being 
checked 

***x%* -— Task control block (TNDS) 
**xk%x - Second base register 
IPWSDPA - VSE/POWER nucleus 
ETPWSDTC - Task control block 
*x*x*%* -— Reserved for nucleus use 
IPWSDSV - Task save area 

**** - Function linkage register 
XJCS - Function base register 


{R14 
[R2 


as] 
B ay 


DAML WH 2 © 


me Wh mm OW © 
es e@ es 08 @8 ee 66 e@8 


ah od ooh ood oh ed 
— oe ae ee Oe ee eee eee ee 


~ 
ee 


| Note that the usage of registers 0-8 | 
{in the analysis routines starting at | 
jlabel XJ40O may differ from the above.| 
{ I 
{JECL Statment Analysis: | 
| | 
{Save caller registers. { 
{Establish second base regiser using | 
{register 9 { 
{Reserve space for a second function j| 
I 
| 
| 
| 
l 
| 


_— 
=_ 
— - oe oe Oe me oe oe oe oe oe oe ee ee a waa ee ee 


IPWSSAV 


o> 
qQ 
(ow) 
o 


iPwoRSw 
|xcegister save area. 
\ 
{Establish addressabiiity for the new 
{save area in register 13. 
{ 
(Check whether a continuation card 
{from a writer-only partition is being| 
i{processed. If so, branch to.......2+>|X5S38 
i 
{The address of the statement is { 
jloaded into register 4 to locate | 
{the operation code. If no operation | 
{code is tound, return to caller | 
Jwithout processing the statement....>{XJ06 
| j 
{Save the address of the operation { 
jcode, Which is contained in register | 
{1, in register 7. i 


> 
Gq 
(7) 
Nh 


—_— ae oe ie ee ee ee ee ee oe ee ee ee ee ee oe 


—_—e_ oo Se ee 
_— oo oe me ow we ew we ee ow oe BR Oe oe ae ee oe oe ee oe ee oe ee oe ee ee ee ee ee ee ee ee oe ee oe = ee ee ee Oe oe Oe ow ES oe ee oe. 


(me ee ee ee ee i ee eee ee 
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Labels {Chart XJ: IPWSS$XJ - Scan Execution {Modified Lata | Reg. jCaals 
/ {JECL Statement {Fields {Usage | 


- 
l 


{xJ04 {Match the operation code against the | 
{entries in the JECL statement routing| 
{table to determine which handling { 
{coutine to branch to. | 
I { 
{If a match is found, branch to the | 
{appropriate handling routine via \ 
{table XJ12......2..0-2220.5. ww eww sccees > |{XITZ 
{If no match is found, return to I 
{caller witnout processing the 
[StaAtEMENtn cca aswwsec cans senaaseesecs>| XI06 
| I \ 
{Return to Caller Without Having Processed the Statement: 
I | | 
XJ06 {If operator corrected JECL statement, | { 
fbranch toO.....sesceewe cena. ew arerccee >| XI10 | 
{ { l 
XJ07 {Return the additional save area spacej | IPwdRLw 
{to the storage pool. { | 
| 
i 
{ 
{ 


| \ 
{Return to IFWS$XR. via link register | 
{14, with return code 4 to process the| 
jstatement. j 
{ | ( 
{Return to Caller After saving Processed the Statement: 
{ \ i 
XJ08 {Branch and link to the 'pypass | 
[statement! loutine..... ese ae ness ceeae rf KII18 
{ 1 
XJ10 {If not operator corrected JECL, | 
{branch COs das os tie ah 26S eS eect > | XT14 
{ i 
{Release space acguired for card. 
{Set up request word. 
i 
XJ11 jlf SLI in process, release parameter 
jlist space. 


IPWSRET 


LPweRLw 
TCRW(LPWSDTC) 


IPwSRLV 
XJ11A {Return the additional save area space IPwWSRLW 
{to the storage pool. 

{Return to IPWSS$XR via Link register 
114, with return code 0, to process 
{the statement. 

\ 

{JECL Statement Routing Table: 

i | 

PCT Lac. i sa eee see ee ee See Siete os es seves > (1I08 
|XJJB LIOR Sea saw seca ale: Ceeecnica caee hats PIO 
( PBOdD. ws ces m ree vcccwerccs ance scewseseen > {xT 24 
| [RURS Soc ose tee eerste sae oe bateue od sue 
{XJLT SD orale eee Sis 0 hak ae ewe We a ere eee > {XJ60 
{XJPR (PRT. asm cw nw acncesecscvcesccesescess> | XJ60 
{| XJPU | PUN. sce os Se wee tae ee eee e se see eae sesies [2d60 
{XJSL FSLiGi views ceca eens eeetGeeece saw <> kale 
j [URTAS oso sab See Sassen eee ewes ees AGO 
{ { 1 


LIPwSRET 


= se eee Gee Oe ae OE oe Oe EE ee oe ee oe oe OE ee ee we ee ow OP ee & Oo Oo OE aw Ow 8 Bw Se we OF OP Oe EO a oe Oe Be a oe 
—— oe ee Oe ee ee ee ee 


= 
aa 


eee ee ee ee eee ee 
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ie 
{Labels {Chart XJ: IPW$$XJI - Scan Execution {Modified Data { Reg. {Calis 
1- JJECL Statement |Fields jUsage | 
{Handle CTL, RDR Statements: | 
{ | 
{Since CTL and RDR Statements need not| 
{be processed at execution time, these| 
|statements are bypassed together with| 
fany of their continuation statements. | 
| 
XJ 18 {if there are no continuation cards, {f 
{ceturn to caller via link register 14| 
l 
{Save return address and base 
{register. 
{if the continuation card is for a 
{writer-only partition, branch and 
jlink to the writer-only partition 
froutine.~........5-.. ee ee ee er ed 
{ 
XJ20 {Get the continuation card. 
{ 
XJ22 {Restore the base register and the 
Jcreturn address. | 
{Branch to check for more continuation| 
(CAvOSi cues we eee ews gore awa ea See kod 
{ { 
{Handle EOJ Statement: 
i | 
XJ24 {If current SLI work space address i 
{1S ZerO.. 22. wean. Soba el S.blb le eS ees Salawea lk 2b 
l \ 
{Release SLI Workspace 
| 
XJ26 jif the EOJ statement is not for a 
[writer-onLy partition ...c22% Bate oaeies ake 
{ 
{Set job boundary switch to X'80'; 
{clear job number field and indicator 
fend of data on EOJ to ignore output 
Jtill next SS$JOB. 
{ 
{Set up register 4 tor scanning the 
{entries in the PDE to shut down any 
jsubordinate writer tasks. 
I 
XJ28 j{Address next entry. 
Jif end of tablew.......... aia taser weeee>f{XI08 
{lf disposition not equal N.....2.-.2>(XI2B 
{ { 
{Set device class to L if printer or P| 
{if punch d 
| 
XJ29 {Release ownership of device.........>4Xd28 
| { 
XJ2B {Check the entries in the PDB and if aj 
jtask has. been started: 


R14 


RI4,R15 
RO, R4 


LPWSGDR 


— he ee 


R14,R15 
RO, R4 


IPwhGSl 


= = Be Oe oe ee oe te ea ea ee ee 


XJ08 


— a a ee ee ee ie i ee ee ee ee ee 


| TCJB(IPWSDTC) 
| PDIN(1PwDPL) 
| TCGP (IPWSLTC) 
i 


—— ee eee ee 
a 


—_—_— oe oe om a 


TLCL(LPWeDDE) 


— ee Che shin 
— eee 


— 


IPwSULF 


_— oe ae 


| TLTC (IPWy DLE) 
il 


I 

I 
« Reset the ownership in tne device { 
dist entry in the PDB. i 
Set the 'stop' termination tyre i {TNTT (1PwWoDTC) 
Post the event control block of { {TNEBt2 (A PWSDTC) 
the related task. | { 
| 
{ 
>{ 


—_—_—ee = oe oe oe oe 
ee 


[wait for posting by the list tas ALPw$wkFa 
jand..... aioe a veieaw carat ee rr ee Paar 


L-~--+--~—- eee ee + wee + + + + 4 


| 
i 
i 
l 
I 
l 
l 
l 
l 
{ 
{ 
i 
! 
d 
i 
| 
l 
{ 
i 
l 
| 
I 
{ 
l 
{ 
i 
l 
| 
l 
i 
i 
l 
j 
i 
| 
i 
i 
i 
i 
i 
{ 
{ 
l 
1 
i 
i 
1 
{ 
{ 
| 
{ 
l 
{ 
l 
l 
l 
i 
( 
I 
l 
{ 
i 
1 
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{Labels 
( 


XJ30 


XJ32 


tt a a a ee ee eed 


beeen Cuse Set Soe Se ee ee ea eee eae eee ete ee ere ee See ee ee 


{Chart Xd: IPW$HXJ - Scan Execution 
{JECL Statement 


{Handle JOB Statement: 

i 

{The content of the job statement is 
{used to construct the job header 
{record and tne gueue record for the 
jensuing job. 

| 

{Set the job boundary Switch to X'*FF* 
{to indicate job in progress. 


{Check for a record length of 7z or 
{more. af the record length is longer{ 


{and a writer only partition is i 

{serviced, it is.set to .71. { 

{Branca and link to get the statement | 
{Operand to..... sb-ss8 “a Sia, fe '-9 anste Taliae soaweeoe >t XAND 

| 

* if there are no operands branch i 
EO steie b lea! e:s Sie writs eS! aire ones te'S 8 eis ial a wee ereie a Po kU O 

« If there are keyword operands { 


DLAUCH “LOs «isa oa tae eee ewe aus cl XKOZ 
iit there are positional operands | 


c 


_— = oe oe oe oe 


branch to....... a tace eo 0ne ete -erw we Secaraele PAU Se 
| 
{Load the address of variable 'JNM® { 
{ror error message 10511 in { 
{cegister 7. j 
[Branch and link to scan the job name | 
{to 2saaeaesstsae2eceeesen32 32 0222 @ewaeseeness 2-2 8 @ exveer> | XS24 
{ i 
{Move the job name into the queue 
{record and the job header record. { 
| { 


Jif there are no more operands to be j 

{processed branch tO... w een nce wes 2 >| XI56 
{ j 

{Branch and link to get next: keyword. >jXS40 
{« If there is a next keyword....... >{XKO02 
i« If end of Statement..w.s.2scaeawes >| XI56 
le If an error has been detected.... >{XAT5S 


l | 


{Job card parameter routing tabie: i 

{ | 

PO NM a ios eee: cial ee eee: ees ee ee SS nas ena 22> | XI32 
KW SeB Bas vasa ads gas. Soa ea a wh ands eve 
[DISPH ssa seen oes bk mig cree wile’ Keep bee eet tae kU Oe 
| PRi=.5s6sS ema es Mie PER Rea Ae Swe LRU Oe 
PCRASS= eG eten acaee sods Bde raat oils Abast sans >, XI5z 
[PADS eeiecsade wes Lh ap tas are aah cali eal) nah eames >4 Xd50 
{SYSID=.........-. S eiere wilev iw ata Sisaeeevevea> | XDA 


PXDES TH eaita thet cine oe arse t ous i PNOO 


WQLDESTH=).0 sas usa Seats ewes ie 6 aaa LP NOS 


{ PDEST=.....22000- envrewvavaa ec an eaeeca ae >| PNI0O 
CNY EY a eke as 65:5 Sa we eS wile tee Stele eects Of] PN US 


TCJB (i PWS$DTC) 


oa eo SB oF oe oe ee oe ee ee ee ee fe ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe ee Ee ee ee oe Oe 2 oe ee Oe ee ee ee ee ee ee ee ee ee Se 


R7 
hE 
QRNM (IPwSLOR) 
NJHGNAM (IPWS$DNR) 4 R4 
R1,R4 


Chart XJ 


em a me re a an ee re ew ee a me ae em ae we eee arte ne ewe ee re re ewe ee ee ee es ee ee ee ee ee ee ee ee ee a ee 
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c 
(Labels {Chart XJ: IPw$$XJ - Scan Execution {Modified Data j Reg. {Cails 
{JECL Statement {Fields {Usage | 


tee Sem Ste ine ES <Q SO ca cen AO “OND SOND YS AE OPO SED ND ey SAE a AS a SE ES EA ee ERS cee OD Se ce ee ee ee ee eee ee ce ee ee ee eee ee we ee ee ee ee ee ee oe ee ee ee eee ee ae eee 


{Process USER keyword: 


| 

{The USER operand must be specified 
{from one to sixteen alphameric 
{characters, unless it is enclosed 
jin single quotes. 


{for errox message 1051I in reg. 7. 
QRUL (LTPWSDQR) 


NJHPUSER 
(LPWSDNR) 


qGet the user information from the 
{statement and move it into the queue 
(cecord and into the job header 

{cecord. If the user information has 

{been specified incorrectly, issue { 
Amessage 10511... cn crwsescweccwceesne PIXTS5 
GHandle next operand... cscs sswwcvee >| XI33 
r| { 
(Process SYSID Keyword: 


| 

{ 

I 

j 

f 

{ 

| | 
XJ40 {Load the address of variable '‘USER' | 
{ 

! 

I 

1 

{ 

| 


o- 


i 

{The SYSID parameter must be '1' to 

i'9' oc 'N'. If N is specified, the 
4{SYSID field in the Queue record is 

fset to X*'Q0*. 


i 
XJ4A {Validate the operand.........222022->{4XS60 


l 

JI£f nothing specified... 2.22 ea sees ee >fXT4C 
i I 

{If the operand value is 'N', indicate] 

fno specitic CPU wanted and branch ..>|XJ4C 


QRSID(LEwSDOQR) 


= om om ae oe Oe oe ee ee Oe ee ee ee oe Oo om Oe Be Be oe Se ew Oe ee oe te ee 6 oe ee ee ee Oe Re ee oe me oe oe Oe oe eB Be oe ee ew oe ew Oo = 


| { 

{if SYSID is not between '1i" and .'9', | 

{branch to report ELrlOr..... 22222022 ->4XTB5 

i ! 

{Move SYSID value into Queue record. 

J 
XJ4C {Move default/new SYSID value into 

| job header record. 


{ QRSID (1 EWSDCR) 
{ 
I 
I 
i 
{Handle next operand... ccsseesesenes >| XI51 
1 
{ 
| 
{ 
! 


NJHPSYID 
(IPWSDNR) 


I 
{Process PWD Keyword: 
I 
{The PwD must be specified as up to 
(8 alphameric characters. 


{ 

XJ50 | Validate the operand........... eee ee > 4{XS60 
{If nothing specified, branch to..... >4XJI501 
| ( 
{Else move password into queue record. { 
| | 

XJ501 {Move default/new password into jock { 
{header record. | 
{ { 

XJ51 {Point to delimiter and branch to get | 
(NEXt OPeTAN, wnwsscrsaccaccsececoese >| XJI3 
{ | 

XJ52 {Point to delimiter and branch to get | 
{next operand eaeea@m aeeeoesteenesessveeaaqanewswesaeeasese > {XI33 


ORPW(iPwWsDQk) 


Es) 
a 


NJHGPASS 
(IPWSDNR) 


b 9) 
w& 


— ae Oe oe ee Oe oe oe Se 


R1,R3 


1 { 
XJ56 {if not writer only partition ....... >4{XJ08 

1 d 

{If statement is to be logged, issue jj 

{message 1Q471. , | 

l { 

| Branch EO 6e-e arses een eeoeoeeeseeweeaesas 8 oe weee>f{XI08 


fe ee em. i ew ie ee oe i a «ee me oe ee ee me es ee ee ea a 


ae ee ee ee eee wee tee ne we re ee we ee ee ree ee re ee ee ee we ee ee es me ee, 
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Cc 
jLabels 
\ 


—_ 


PNOO 


PNO5 


PN10 


PN15 


——— oe oe oe ie og eee eee ee oe ee es eo oe eee ec ie ai ee ee oe i 


-|Valid formats are 


{Load address of keyword verb LDEST 


d 


{8 and branch to........22- Bech es aoch panes >| 


jChacrt XJ: IPWS$XJ - Scan Execution 
jJECL Statement 


{Process XDEST Keyword: 
| 


XDEST=* 

XDEST=nodeid 
XDEST= (*, userid) 
XDEST= (nodeid,userid) 


{Load address of keyword verb XDEST in 
{register 7 for error message 1Q51I 
jand save registers 7 and 8. 

| 

{Load address of dummy field in 
{cegister 7 and 8.and 
(branch. tO... seew ance aenes ee 


I 
{Process LDEST Keyword: 


{Valid formats are 
LDEST=* 

LDEST=nodeid 
LDEST= (*, userid) 
LDEST= (nodeid, userid) 


{in register 7 tor error message 1Q511 
jand save registers 7 and 8. 

| 

{Load address of target print node 
jname in register 7 and address of 
{target print remote name in register 
18 and branch to.........._.+ boo eta Srecui> 


— ee oe a ee aie ee oe oe ee ee ee ee ee ee Oe 


{Process PDEST Keyword: 
I 

{Valid formats are 
PDEST=* . 
PDEST=nodeid 
PDEST=(*,userid) 
PDEST= (nodeid, userid) 


—_a ee oe oe 
——_———_ ee oe oe oo a ee Oo 


{Load address or keyword verb PDEST 
{in register 7 for error message 10511 
jand save registers 7 and 8. 

\ 
{Load address ot.target punch node 
{name in register 7 and address of 
{target punch remote name in register 


{ 

{Process NTFY Keyword: 
| 
{Valid formats are 

{| NTFY=YES 

{ NTFY=(nodeid,userid) 
{ 


— 


|Load address of keyword verb NTFY in 


‘{cegister 7 for error message 1Q511 


| 
jLoad address of origin node name in 
{register 7 and address of target user 


{ID in register, 8. 


|2£ not "YES' specified, branch 


| 
| 
| 
I 
{ 
\ 
| 
fand save registers 7 and 8. i 
{ 
| 
{ 
\ 
l 
| 
{ 


{Fields 


SVR7(iPwSoSV) 


SVR7(IPWSDSV) 


SVR7(LPWSCSV) 


SVR7(iPwSDSV) 


{Usage | 


—m aie oe Se oe we ee OE we oe ee ee oe ee ee 


-_— oe we oe oe ee ee oe oe a ee ee 


a we oe oe ee a eo 


eo] 
~ 
=— es oe oe ee oe me we ee oe 8 oe ee ee ee oe 


R7,R8 


— Eo ee ee eee ee ee oe oe oe oe ee eo ee ee oe 


Kk7,R8 


Chart XJ 
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: 
{Labels |Chart XJ: IPw$$XJ - Scan Execution {Modified [Tata } Reg. {Casals 
{ JJECL Statement {Fields {Usage j 
j mm ce ma cm ce em ere ee ee me te ee ee mee ee me ee me ns a et ee ae ee ee ee ee a ee ae me rm a ee ee ee we ee we ee ee we ee a ee oe ae a ee we ee 
|Copy own node name from master NJHGORGN 
{record. (IPWSDNR) 


| 
{Set userid to *ROOO* to indicate that 


jthe notity message has to be routed 
Jto the local console. 


| 

| 

| 

| 

| 

| 

{ | 

{Point to next delimiter end keyword {| R1,R3 
fJand branch tOscsseeswscensasceca, wees >| 

\ 1 

{If sublist notation, branch to .....>| 

{ | 
jif locai node reguested, copy iocal j| 
{node name from master record, point | 

Jto next delimiter and keyword and | 

{branch to....... sla ler Aare: waite! el ava 6 oe ea eo | PBREX | 

I \ | 

{Check if node ID specification starts| | 

{with an alphabetic character and if | | 

jail subsequent characters are in the | | 

{range 'A-Z, 0-9, a, #, $' via branch | j 

Jand link to..... Ub tate tte a! ase Od eae els wise 1 XO LO | 

| { l 

{Move target node name addressed by | j 

{cegister 7 and branch to.........20.+-> | PEEX | 

I | i 

{if empty sublist, branch tc.........>|XT85 | 

i d { 

{lf locai node requested, copy local {| 1 

jnode name from master record into i. { 

ifielid addressed by R7, update pointer] d 

fand branch tO wsaaceaacenccncesasccas> | PEYO { 

{ | { 

PE35 {Check if node iD specification starts] | 

{with an alphabetic character and if | | 

fall subsequent characters are in the | | 

{cange 'A-Z, 0-9, a, #, $* via.branch {| | 

and LiDK. COw sos oct. bie oie eee ws anew a> | XS7O 

{ i | 

j 

{ 

i 

{ 

i 

j 

| 

| 

{ 

i 

| 

| 

{ 

l 

/ 

l 

| 

| 

i 

| 

{ 

{ 


as) 
ira} 
© 
oO 


{ 
{ 
l 
l 
i 
| 
{ 
| 
l 
{ 
i 
{ 
| 
{ 
| 


R1,R3 


ae] 
lec] 
~ 
fo) 


wo eee ae ae ee ee oe ee ee ee ee ee ee ee ee ee ee ee eo oe oe ee ee 
ae] ne] 
ty ty 
ine) iW) 
mn oO 


{Move target node name and point 
{behind delimiter 
J 
{if second argument is omitted, 
{branch to........2.. owiatahe taal © stwievers ss 
l 
PE45 {Check if second argument is algphame- | 
{cic by branch and link to........ a2s>4XS60 
{ i 
{it invalid delimiter, branch to....©->fXT85 
i I 
jit the user ID is specified as 1 to 3{ 
|digits, setup standard format "RXXxX*' | 
jand branch EO is Bea lew wieis 8s ene e 01s oe a oe OPP BSS 
| d 
PE50 {Copy userid specification into tield 


as) 
ta 
£ 
o 


PEEX 


~— ee ee ee ee oe em ee 8 ee ee ee oe ee ee Oe te Re ee ee eae oe ee eee ee oe 


{ 
jaddressed by register 8. | 
{ | 
PE55 {Point to next delimiter. | k1,R3 
{ 4 
PEEX {Reload saved registers. 7 and 8 and | 
{process next keyword.......... weeeesr > {XI33 


Pe eae ee ei oe oe 
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{Labels [Chart Xd: LPW$$XJ - Scan Execution {Modified Data { Reg. {Calls 
JJECL Statement | Fieids {Usage | 
{nandlie LST and PUN Statements: 
{Task Initiation / Termination: 
| 
xJ60 {If partition canceling, then branch 
YEO ia as cae aw oh aa eee esa Si oS Roel sa eos oe 
I 
iReserve storage for the TCE of the 
{new task. 
{Set up register 8 as the base 
{cegister for the new TCB. 
{Set the storage ownership ot the 
{queue record to the execution reader 
{TCB. 
jinitialize the storage descriptor 
{with the information of the storage 
{descriptor of the execution reader 
{ TCB. 
{Reserve storage for the gueue cecords 
{to be generated by the new task and 
{set ownership to RDR TCB. 
{initialize the new queue record with 
{system defaults and with information 
{irom the execution reader task: 
{* Copy body fields from the reader 
queue record 
Copy body extension trields 
insert blanks for default 
compaction name. 
Set class identifier to CfA’. 
- Set rorms identifier to blaaks. 
Set flash identifier to bianks. 
Set disposition to C'D*, 
» Set number of copies to x'0Q1*. 
Set counts to zero. 
Set more counts to zero. 


XJ06 


—_ me 2 oe me oe oe oe ee eo ee ee oe eee eee eo ee oe oe i 


4PWHRSW 


TNSD (iPwSDTC) 


LPWSRSW 


QNBF (1 PWSDOR) 


{QNBz(IPW2DQR) 
| ONCE (1PwSDQR) 
i 

{| QNCL (1PWSDOQR) 
{ONFi(iPwSDOR) 
{| QNFL(IPWSDQR) 
{| ONDP (LPwSLQR) 
{QNNC (LPW2DQR) 
| ONNA (1PWSDOR) 
| ONNR (IPw%DQR) 


— ee ee eee eee eee ee ee eo oe ei ee 


e @ 


eeceere 


e @ 


{ 
{ 
I 
{ 
i 
l 
{ 
i 
l 
{ 
l 
I 


{Set up register 2 as base register 
{for the disk management block. 
}|Check the statement to determine 
{whether a LST or FUN queue record is 
{to be formed. If a list record is to| 

{be formed branch toO....seceae aewesser> | AT64 
I 

{Set punch defaults: 

i« Set record identifier to C'P® to 
indicate punch records. 

*« insert punch default values. 
Branch: (Ot. visio nde Scene Soa ewes nD 


— oe me ee oe ee ee ie 


QNQi (IT PWHDOQR) 


UNSP (IPW»DOR) 
XJ68 


~< 
qQ 
fon 
Bag 


I 
1 
{ 
l 
l 
{ 
l 
| 
| 
\ 
l 
{ 
| 
l 
| 
{ 


Set printer defaults: 

« Set record identifier to C'L* to 
indicate list record. 

* aunsert printer default values. 

« Records before split 

« kecords before message 

« Additional count value 
& 

cS 


QNQI (iPWSDQR) 


1 

{| ONSP (LPWSLOQR) 
{ ONBS (IPw$DQR) 
{ UNBM (LPwSDOR) 
| ONBN (LPW$DQR) 
Setup option byte |QNOP (LT PWSDQR) 
insert defauit iine table {TNGW (LPWSDTC) 
Insert page size {QNER (LPwSDQR) 


em ee te ee ee me me ae we ee are me ce ee a me ae ae me me re ee ee re ae ee ee ce me cre ee we re ee re mee ee mr rm ee me eee ee ee me a mee eae ee ee ee ee cree me nae ee ee ee ee re ee te ee ee oe, 


om ae we Se ee ee oe ee ee ee ee 


_— =e oe Oe we oe oe oe ee ee oe oe 
Meee eae eee ei ei ii ee 


ee i a a es ae em ns ene mse ee nearness ese 
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- 
{Labels 


amt mare sat es a ee ee ne ee a ee ee ae ee a ee cn ee a ee nee nae cae ee ee ee ee 
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{Chart XJ: IPW$$XJ - Scan Execution 


{JECL Statement 


fentries in the PDB. 
{ 


{If segment macro has been issued, 
PDILADCH: £0 6.io's ose Sasa. bee ae Smale eae Sis wee aD 


{Scan the entries in the PDB to locate 
‘(the first printer or punch device 


jdefined. 


{in case of error, pranch to issue 
Imessage 1Q481T .wecsouwsssccanscsescess? 


{Move the physical device address in 


{the queue record. 


{Reserve storage for the data set 


jheader record (DSHR). If no space 
{available, go to exit........ te See 


{ 


‘|Save DSHR address in the TCB 


| 
{initialize DSHR with defaults: 


Total DSHR length 
General Section of DSHR: 


General section length and ID 


eo @¢ @ 


name from job header record 


queue record 
Blank out some fields 


¢ 


Copy output class from queue 
record 
Assume variable record format 


Copy data set copy count from 
queue record 
Set forms ID to blank 


e 


3800 Section of DSHR: 


3800 section length and ID 
Insert modifier 


e 8 « 
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{Set reader queue record identifier 


— me ae ee ee ee ee ee ee ee eee eee ee ee ee 


Set modifier of general section 
Copy print/punch node and remote 


Copy node and remote name into 


Set default record length to 512 


Set default. flash count to 255 


— oe ee ote ee Oe ee ee eee ei” 


Se 


eae te ene em ce me eee ene mine meee cee vee mint mm seme mem em ne we ee eee ee re me ee ee ee em re ee ee wee ae we ee eee me ce ene ee ee mee cae mee ee crm mee cee are es ee ee ee em ee a ee ee we ee ee ne ee we ee we ee ee ee ne ee ee ee 


{Set up register 4 tor scanning the 


{Modified Data { Reg. {Cails 
{Fields {Usage j 
R4 


QRYI(IPWS$DGR) 


\ 
\ 
| 
| 
| 
i 
l 
{ 


{LPwhwTO 


XT50 {2PwowTC 


_— oe i oe oe oe oe ee ee ee 


| 
| 
1 
| 
i 
\ 
{ 


QNCU (IPWSDOR) 


IPWSRSV 


XJ08 


_— 2a Oe oe BO fe ee ee ee 


(All in ZIEWSDNR) 


{ 

i 

| 

{ 

{| TN3E(iPWSDTC) 
| 

i 

\ 

| NDHLEN 
i 

i 

{ 


| NDHGLEN/NDHGTYP 
| NDHGMOD 

| NDHGNODE 

| NDHGRMT 

| ONTN, ONTU 

| (IPWSDQR) 

| NDHGPROC 

| NDHGSTEP 

{ NDHGDD 

| NDHGCLAS 


{oe eee ee oe eee ee ie oe ee i 


—e eee ee ee i oe eo oe oe oe oe ee ee 


{ 

| NDHGRCFM 
| NDHGLREC 
| NDHGSCT 


l 
{NDhGFCB 
j 


oe a eae oe eee oo oe ee, 


{ 
(NDHALEN/NDHATYP 


| NDHAMOD 
{NDHAFLCT 


i 
t 
t 
! 
| 
{ 
’ 
| 
4 
i 
t 
' 
! 
' 
t 
| 
( 
| 
! 
t 
t 
| 
| 
| 
' 
| 
{ 
' 
| 
t 
| 
I 
| 
| 
| 
| 
1 
| 
| 
1 
t 
' 
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{Branch and link to the statement 
fanalysSiS LOUtINe. 21. ccsecwascececeenD 
| 

{if there are no oOferands branch ....> 
{ 

{if there are keyword operands branch>|{xXk0z 
t | 

{if there are positional operands j 
[branch to...... ithe sous ctede keen >] KANG 
1 i 


ee me ee cree nares me cree cap mee cae cane cee cm wee ee me em me cee wee ar ee ee ee ee ae nee ee me me ee ee ee ee we ee ee ee ee ee ee ee we ee ee we ee ae 


XA0O 


XTOO 


oe oe ee we ee Oe ee ee Oe ee ee 


om ie ie ie Oe BE Oe gee see fe 


a 
[Labels {Chart XJ: IPW$$XJ - Scan Execution {Modified Data | Reg. {Calls 
| {JECL Statement {Fields {Usage | 
(rte SSSHsS5-SS> ee ee ee ee ee ee ee eee ee ee ee nm te ee ON OS ees ce Um SE cee ae SE eee ee ce we 
J {VSE/POWER Section of DSHR: i { j 
| { i i t \ 
j {© VSE/POWER section length and ID { {NDHPLEN/NDHPTYPE] i 
| le Insert modifier j { NDHPMOD i | 
i {*« Copy device type, priority, disp.,| {NDHPIDEV i i 
| | user information, number of j {NDHPPRIO { i 
i { Separators, option byte, partitionj {NDHPDISP r 4 
| { id, target system id, compaction | {NDHPNSEP j | 
j | table name from queue record. { {| NDHPOPTN j j 
j j j {NDHPPART j { 
| ij 1 {NDHPSYID i i 
{ | { | NDEPCOMP d 4 
| { { | i | 
j {|SETPRT parameter list of DSHR: i d j 
| { i i | 
{ {* Indicate initialize printer | SPLFLAG1 j { 
j j* Set TRC=NO and DEBUG=NORM {SPLFLAGZ ( { 
{ {*¢ Set flash count to 255 { SPLFLSHC i. | 
i {* Set first copy group to one {|SPLCOPYG i j 
{ {*« Set copy group index to 1 { SPLCINDX i { 
| l* Set length of parameter 1ist {SPLLNGTH F | j 
j* Set default required itilag {TNF 3 (ZPwWSDTC) d 
{ | | 
| | 
| i 
{ j 
| i 
{ i 
| i 
I i 
t i 
\ I 
j | 
Lt 


ee ee ee ee ee ee oe 


t 
( 
‘ 
I 
' 
' 
' 
! 
! 
! 
' 
' 
' 
t 
{ 
t 
' 
! 
' 
| 
' 
t 
t 
' 
' 
' 
t 
t 
! 
t 
4 
t 
4 
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iLabels {Chart XJ: IPWS$$XJ - Scan Execution {Modified Data { Reg. {Cails 
{JECL Statement {Fields {Usage | 

{Update Tasks: 

l 

XTOO {Reset registers 5 and 6 as base 
{registers for the queue record and 
{the PDB (IPWS$DQR, IPWS$LPD) . 

{ 

{if the additional count value is not 
|specified, it is set equal to first 
Jvalue (QNBM). 

l 

iCopy the device address from the 
|queue record into the storage 
{descriptor of the new TCB to deter- 
{mine which execution writer task, if 
jany, the new task wiii replace. 

l 

{Set up register 4 for scanning the 
jentries in the PDE. 

| 

{Scan the entries in the PDB to locate 
jthe entry relating to the nominated 
{device and determine whether a sub- 
fordinate writer task exists for it. 
i 

{if DISP=N was specified for the 
{celated entry, release ownership 

fof the PUB specitied by that entry. 
| 

{Save the address ot the entry in the 
{new TCB. 

l 

{Set the device type. 

| 

{if no subordinate task is running 
jor the reader is task owner 

Lerercy [0 ree ee ee eee > 


QNBN(IPWSDQR) 


x 
be} 
fo) 
wm 


TNCU (IPWSDTC) 


es) 
£ 


=< 
ae) 
_ 
fo) 


b< 
| 
a 
wm 


IPwSULP 


TNR4 (IPwS DTC) 


QNDT(iPWSDOR) 


Terminate the subordinate task: 


Set 'stop' termination type code. 


| 

| 

ie {INTL (LPW2DTC) 
i« Post event control block. 

{¢ 

1 


TNEB+2 (iPWSDTC) 


Exit to task selection. IPWSWFC 


p< 
a) 
LS) 
(a) 


{Check the device class within the 
{device entry in the PDB whether cr 
{not to intercept requests for this 
{jdevice. Ir not, branch to....... tee 
l 
{Check if the disposition is T and, if 
j{so, set the number of copies to one 
jand the copy groupings to. zero and 
{records before segmentaticn to zero 
jand tae transmission count to one. { 
j 1 
XT27 {Check if the disposition is I and, if} JONDP(iPwWSDQR) 
{so, test if this is punch output. if] 1 
Jnot, change disposition to D and | { 
PDraNCh tO. ssc wcen ess censnccscesezccer| XTI0 { 


ee etn ere te te ee ee mr A ce SO ems erm me ree SS am mee te mee mm mim me ome ee em me sm aes re mee mr me me ce meee me sre me ce ee me ere te ee te ene ee we me te ee we ae me re ee tee ee cee ee ee a ee ee ee ee ee ee oe oe oe 


{| QNNC (IPWx LOR) 
| QNCG (1PWHLQR) 
1QNBS (LPwSLDOQR) 
{QNTC(iPWSLOR) 
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{Chart XJ: IPWS$$XJ - Scan Execution 
{JECL Statement 


[Set job suffic number to zero. 

{ 

{Load adress of the master record in 
{register 3 and reserve the disk 
{Management biock 

{ 

jincrement current job number by one 
jand test for overtlow. If overflow, 
{set job number to one. Save new 
{value in the disk management block 


| 
{Release disk management block 


{The data set header record is now 
{updated with values from queue record 
fin the following fields: 

| 


i 
| 
| 
| 
| 
i 
{ 
| 
{ 
I 
| 
1 
| 
1 
{ 
i 
| 
ie Target node hame i 
l« Target user ID j 
{« Output class { 
f* Copy count { 
{« Forms identifier i 
{+ Forms overlay ID j 
{* Copy groups i 
|* Device type { 
{© Output priority | 
{*« Disposition i 
{« User information j 
}* Number of separators j 
|*« Option byte i 
(* Target SYSID i 
{© Compaction table name | 
je Password j 
{ 
JAttach the new writer task into the f 
{systen. j 
| 1 
{Return to IPWSSXR... 1. wa a ewww e nae a 2>4{XJT10 
{ j 
{Get ownership. j 
{ i 
{If no ownership is received: | 
{ | 
ie Set disposition to C'D*. i 
{© Issue. message 10461. | 
j i 
fe: “BRANCH: COs so. eis oie. 5505's bla a ai ese OPK EZ5S 
| { 
{Set the device type code in the i 
{device list entry in the PDB to C'N® | 
{to indicate no interception of | 
{requests for this device. 
{ 1 
[if no TCB present, branch toO....2222.>4XJ10 
| | 
{Release the queue space. | 
{ | 
{Release the data set header record { 
(space. { 
4 l 
{Release TCB storage. | 
| | 
| 2p an Oe ie. go. 18te, (6 ua evoke oles es a a eee ewe be >1{XJ10 
{ 


—_— —_— = Oe oe ee Be oe oe ee ee ee i ee ee oe ee ee ee 


{Modified Lata 
|Fieids 


QNSN(LPWSTOQR) 
i 
{ 
{ 
i 
MRNO(IPwWSDQC) 


i \ 
i i 
i 
I i 
l 
i 
I 
l i 
l ( 
i 1 
{ f 
i i 
i 1 
{ { 
{ (All in IPWSDNR) | 
l i 
i i 
{ NDEGNODE i 
{NDhGRMT i 
{NDHGCLAS i 
| NDHGDSCT i 
i NDHGFORM i 
{NDHAFLSH i 
{ NDHACPYG i 
{NDHPIDEV i 
i NDHPPR1O i 
| NDHPDiSP i 
| NDhPUSER i 
| NDHPNSEP i 
i NDHPOPTN i 
|NDHPSYID f 
| NDHPCOMP i 
INDHPPASS { 
{ 

I 

i 

i 

i 

{ 

i 

{ 

I 

i 

i 

l 

i 

{ 

1 

l 

{ 

i 

| 

\ 

{ 

| 

{ 

i 

i 

i 

\ 

d 

l 

{ 

| 


QNDP (ZLPWSDOQR) 


TLCL(1PwW$DTL) 


Chart Xd 


me ee re i ee wm we es ne a ar a re ae re ee ee ee ew ee ns ei eee ee ee we ee ee a ee ee 


ce er ee me ste ee ete ee em ee me eee we ee ae a ee a we we ne ee se er re re en a ee te i ee ee re ee ee ee ee ee ee eee ee 


j Reg. {Calis 
{Usage | 
i 
i 
l 
3 i 
(IPWSRSR 
i 
2 i 
{ 
| 
4 
i 
{ITPwHELK 
1 
| 
1 
i 
i 
1 
| 
i 
i 
| 
i 
1 
| 
t 
\ 
i 
i 
i 
{ 
i 
| 
i 
jiPwpATT 
\ 
i 
i 
\ 
{i PWSULP 
| 
i 
| 
\ 
{Il PwSGAM 
{ 
i 
| 
| 
{ 
{ 
1 
i 
i 
i 
1 { LPwaRLw 
\ 
1 {iPwoRLV 
i 
| 
1 {aPWwSulW 
i 
i 
| 
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c 
|fLlabels {Chart Xd: IPWS$XJ - Scan Execution {Modified Data j Reg. {Calls 
| {JECL Statement {Fields {Usage 4 


{Error message handling 
{ 

XT50 {Load address of message 1Q48I1 in 
{register 14 and branch to..... ere 
{ 

XT55 {Load address of message 1Q49I in 
{register 14 and branch to........... > 
{ 

XT60 {Load address of message 1Q50I in 
{register 14 and branch to.... ib fa ae saa > 


bo 
o 
pw 


3] 
_ 
[= 


es) 
~ 


| 
XT65 {Load address of 'DISP* keyword verb 
{in register 7 and branch to...... aaa 
I 
XT70 {Load address of 'CLASS' keyword verb | 
Jin register 7 and branch to....... «e>|XT85 
| \ 
XT75 {Load address of 'LST* keyword verb in| 
{register 7. If the current queue 
{cecord is a list queue record, branchjxT85 
{Otherwise load address of ‘PUN! { 
{keyword verb in register 7 and branch|xT85 
' | { 
XT80 {Load address of '[LTAB' keyword verb | 
jin register 7 and branch. ...........>{XT85 
{ 


b * 
4 ti 
©o foe) 
Lea) fon 


Los] 
~ 


b=) 
~s 


m . 
~ 


be) 
py 
& 


I 

| 

I 

| 

| 

| 

{ 

{ 

{ 

{ 

i 

i 

1 

{ 

| 

{ 

{ 

| 

1 

| 

{ 

l 

{ 

{ 

{ 

| i 

{xXT85 {Load address of message 1Q511 in i 
| {register 144. | 
t 7 i 
{XT86 {if SLI in process, release parameter | 
{ {list space and reset SLI indication. | TCF2(iPwSDTC) IPwSRLV 
i { | 

[| xT87 {Load address of partition control i 

{ i 

| I 

| | 

{ i 

| 
{ 
! 
| 
1 
{ 
| 
| 
{ 
{ 
| 
i 
i 
{ 
I 
i 
( 
{ 
{ 
H 
t 
{ 
{ 
\ 
i 
{ 
i 


bo 
fon 


{block in register 6 and address of 


oO 
= 


fecroneous card in register 4, set up 
{message request word and write JECL TCMW (IPWSDTC) 
jstatement that iS in error on SYSLOG. LPWS$WTO 


{ | 
{Write appropriate error message. | 
I 


Ca the incorrect statement is ina { 
{continuation card, branch to........>4{XT88 
i 

{If the incorrect statement is a { 

(*LST*', "PRT', "PUN® or JOB! or *SLI'| 

{statement, branch to..... Pr ea >1xXT90 

l | 
XT88 {Write message '1R33D" on SYSLOG. { 

| | 

{Bypass any continuation card: branch | 

Jand Vink. tO... .. ween soe ewe Swraw case > LADS 

{ l 

|} Branch Oss ww eee es a eieee oS aia idia ee aie | hI 
| | 
XT90 {Write message §1R33D' on SYSLCG 


iFPwWSGAM 


rm 
_ 
ms 


{ iPwSGAM 
l { 

XT92 {If a TCB has not been acquired, | 
(branch tO... scans scans saee Sis ii etehe sere eee | 

| | 
| 

| 

| 

| 

j 


Lo] 
—_ 


{if no DSHR space exists, branch.....> 
I 
{Release DSHR space 


| 
XT93 {Release queue and TCB space 


a) 
= 


IPWSRLV 


IPWSRILW 
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Labels |Chart XJ: IPW$$XJ - Scan Execution {Modified Lata { Reg. iCalls 
| {JECL Statement |Fieids {Usage {4 


a ne ee ee ee ee 


- 
{ 


XT94 {lf error statement from operator, j 
jbranch to...... eae ee eee ee «2>1{XT96 
i { 
{Reserve space for correction. LPwoRSw 
XT96 {Set up space for operator correction. 
I 
{Write a blank and. ask for operator 
{correction. 


l { 


i 
| 
i 
l 
| 
{ 
| 
j IPwhWTR 
| 
| 
{If operator replied EOE, branch to..>{XJ10 
I 
| 
{ 
| 
\ 
{ 
{ 
\ 
1 
| 


{ 

{ 

| 

| 

{ 

{ 

{ 

| 

{ 

{ 

| 

| { { 

| {if FLUSH entered, branch to.........>{XT98 
| { I 

{ {if the corrected card is "* $$ LST" | 

{ {"* $4 PRT" or “* $5 PUN" or | 

| i"* $4 JOB" or "* $$ SLI", branch ...>|xkd02 
{ | i 
{XT97 {Write message 1R33i and pranch .....>{XTI0 IPwS$GAM 
i | | 

{XT98 {Set flush cancel code. TCTTE (i PWS ETC) 
i | 

{ {Set off dump option. 

{ | 

{ {Set off partition dump option 
{ { 
i 

| 

{ 

| 

{ 

{ 

| 

l 

i 

{ 

| 

I 

{ 

| 

I 

i 

{ 

| 

{ 

I 

\ 

{ 

| 

| 


{Branch to release work sSpace......+.> 
{ 

{Statement Analysis: 

{ 

{Additional register usage in the 
[statement analysis routines: 


— ae oo oo Se Se oe ee ee ee ee ee ee ee oe Se ee Oe oe oe oe oe ee ee oe ee ee oe ee ee ee oe 


——_o Oo we 


: End of (current) statement 
1: Translate and test work register| 
2: Transiate and test work register| 
3: Start of (current) (next) field | 
4s (Expected) length ot field { 
5: New gueue record | 
: General work register i 

l 
l 
{ 


6) 
oO 


I 

I 

{ 

l 

l 

i 

d 

i 

i 

l 

| {R1 
{ WZ 
{ 1R3 
i 1R4 
i [RS 
1 [R6 
General work register | 

>: New task control block i 

I 

1 

| 

i 

1 

i 

{ 

i 

\ 


oN D 
my fd 
on) 


The statement is checked to determine] 
whether there are: { 

{ 
« No operands, return........ we aee a> {0(R14) 
* Keyword operands, return....... ee >f4 (R14) 
e Positional operands, return...... >1{8( R14) 


i 
If the statement iS in error .......> 4XT55 


— =e a oe Re Re ee oe ee oe ee oe eo ee oe oe oe oe oo 8 oe 


— ee oe oe oe ee oe 
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{Labels [Chart XJ: IPWS$XJ - Scan Execution {Modified Data { Reg. iCalls 
jJECL Statement {Fields {Usage | 
{Process Positional Operands: j 
{ l 
XAO08 |First Positional Operand: j 
{ i 
{This operand represents the class and | 
jattributes to be assigned to the | 
{queue entry. | 
{ l 
{if the disposition attribute is j 
|Ispecified, branch to disposition | 
Jvalidation SUbDrOUTING 2. www ewe 2 eee? | XS30 
{ 
{if tape support, set no segmentation | / 
{and indicate tape. | | 
i 
| 
i 
{ 
i 
I 
l 
{ 
\ 
| 
| 
| 
i 
| 


8] 
© 
9] 
ay 


e 


3) 
ww 
=o] 
“J 


a 


NBS (LPWSDQR) 
NSi (IPwaDTC) 


hI IO 


{ 
{if punch output, branch to.......2.2..>{XA09A 


I 

{If disposition "I" has been specified| 

{for list queue entry branch to issue | 

{CL LOL MESSAGE. cawwesesessccccwcscce>| XTH5 

| 4 
XAOIA {The disposition indicator is reset. 
{ 
jif the class attribute is specified, 
{reset 'disposition/class! indicator. 
| 
{In case of error, branch to issue { 
bnessage. 1O5t1. «..s2sssen sone ease ee? [ATTY 
j 
{Get next operand .......i.--- wer aeeer {XS4O 
{ | 
{Secord Positional Operand: 


UNDP (IPW$DQR) 


QONCL(iPWEDQR) 


= ae oe oe 
fa i ee eee ee oe ee oe eo ee 


x 
i 
—__ 
© 


| 
{kO,R1, 
jk2,Rk3, 


| 

i 

{This operand represents the forms { 
{identification of the stationery or jf 
jcard stock to be used in processing {| 
{the output. { 
{If the operand is specified, tne | 
j'forms! indicator is reset. 
| i 
{in case of error, branch to issue { 
JmeSsSage 10511. wrcwwccwenevescsvccser| 
{ | 
{The data set header record is 
jaddressed using register 4 as pase. | 
4 

| 

| 

] 

{ 

| 

| 

{ 

i 

{ 

{ 

{ 


om 
ne) 
~~ 


QNFi (1PwSDQR) 


XT85 


_ 
oO 
_—e oe oe oe ee oe ee ee ee ee oe Ee oe oe ee Oe ee ee 


SPLFORMS 


jand the form number saved. (IL PWSDTE) 


{ 


[Get Next Operands sreses sews saresae? 
1 
{Third Positional Operand: 
{ 
{This operand represents either the 

{number of copies to be produced, or 

Jthe address of the tape unit to which 
{tape output is to be directed. 

{it a tape unit is specitied, the 

jaddress of the variable 'TADDR' is 

{loaded into register 7 and a brancna 

jand 1ink is made to the tape | 
[SUDDOULINEG.~ 2. rac a ss racwenarcamasaceas > | XSZ8 
1 i 
[Get NEXt OPEL and. 222.22 awasacwanecsece> | XA2Z2Z 


Ae er NS ee tem ie me mene ene cm ee ee ee ee SPO eS SP SOU mI OE een eS eS eee me ete ete a ee tee ee cite eee ee em ee ee cee rm rm me me ee ee Se ee ee gee em em re ee eee ae eee ce See ae em cee ee ee ae ee ee ee ee ee ee ee re ee we ee ee ee oe ee, 


XS 40 


k2,R4, 


to 
~ 


> s] 
wy 
_— ee oe ee ee ee ee oe ee ii eee ee 
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Ps 
{ 


Labels {Chart XJ: IPwWSS$XJ - Scan Execution {Modified Lata jReg. |CaLis 
| {JECL Statement jFields {Usage 4 
XA20 {if the number of copies is specified, | 


jthe address of the variable 'CCPY' { 
{is loaded into register 7 and a j 
{branch and link is made to the j 
{numeric operand processing subroutine| 
[to convert the operand..... a eee e ne ee >| XS00 
l | 
{Toe ‘number of copies! indicator is {| QNNC (LPWaDQR) 
{reset. { 
{ l 
XAZ2 {Branch and link to get the next | 
lOperahdun.s oe cee ees ccc eae eae es D>] XS40 
| | 
{Fourth Positional Operand: | 
l 1 
[This operand represents the j 
{number of output records to be ] 
{handled before the warniag message | 
{10521 is issued to the operator. | 
{ \ 
{if the operand is specified, the | 
{address of the variabie 'RBM' is j 
{loaded into reyister 7 and a branch | 
{and link is made to the numeric { 
{operand processing subroutine to i 
{convert the operand.... ee ee ee a wa rl 
\ | 
jThe RBM indicator is reset. | 
i | 
{Branch and link to get the next i 
POPE aNnds ios s5 ee 6 ee eee Guede Sass > 1 KS 40 
I i 
{Fifth Positional Cperand: | 
{ 4 
{This operand, which may only be | 
ipresent in a LST (or PRT) statement, | 
{represents the line table to be used | 
{for the emulation of carriage cnannel| 
{9 and carriage channel 12 overflow. {| 
l | 
{A branch and link is made to the line] 
ltable. SUbrOUtING: -. neue sade esac d oacer [SS 10 
1 
{Branch to start a new taSk......22.2.2>{XTOO 
|. | 
{Process Keyword Operands: | 
| 
XKOO {Branch and link to get the next i 
JOPSL and. .2 ne ance cece ascrcsecccnscccer | XS40 
| 
XKOz {Load the address of the appropriate 
ikeyword routing table into register 
{1. (JOB statement keyword table, if 
{a JOB statement is processed, 
{LST/PUN keyword routing table else) 
| 
XKO4 {Match the keyword against the entries 
jin the keyword table to determine 
iwhich routine to branch to for 
{processing this keyword. 
{ 
{if no match found, branch to issue j 
[eELTcror MESSAGE 1050 1ww wwe as ccc eee se ee >4{XT60 
t 
(Branch to the corresponding operand | 
jhandling routine. | 


XS00 


QNBM(IPWSDQR) 


—_—_ oe oe ee ee oe oe oe 


iPwhwTC 


—_—e_m oe ee oe Be ee oe ae Se ee i aoe, i ii ee ee oe oe ee ee oe ee oe 8 ee oe oe ee ee 
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{Labels |Chart XJ: IPWS$XJI - Scan Execution iModified Data { Reg. {Cails 
| {JECL Statement {Fields iUsage | 


{Subroutines: 
l 
{Numeric Operand Processing Subroutine: 
{ 
{On entry to this routine, register 3 
{contains the address of the first 
{byte of the field to be scanned and 
{register 4 contains the maxinun 
{permissible length of the field. 
I 
{Scan the operand field. if the field 
jis in error, issue the error message, 
[the address of which is contained in 
jcegister 7. 
{Convert the value of the field to 
[binary in register 2. 
{Return to caller via register 14. 
( 
{Line Table Entry Subroutine: 
{ 
{On entry to this routine, register 3 
{contains the address of the first 
{byte of the field to be scanned. 
{ 
{Scan the operand field to insure that. 
Jit consists ot numeric characters 
joniy and that it has a length of 26. 
Jif the tield is correct, each duplet 
{is converted to binary and stored in 
{the line table field of the TCB. 
l 
{in case of error, branch to issue 
{message 10511 INVALID LTAB 
[PARAMETER seucceovcen tec eoucacuava se. SI XTEO 
{ 
{Return to caller via register 14. 
1 
|Alphameric Phase Name Subroutine: 
I 
XS24 JOn entry to this routine, register 3 
{contains the address of the first f 
{byte of the phase name. 
|Scan the phase name to ensure that it 
{consists of alphameric characters. 
{ | 
jIn case of. error, branch to.issue the 
jerror message, the address of which 
{is contained in register 7...... ae 
\ 
{Get the machine length of the phase 
j|name in register 4... 
{Return to caller via register 14. 
I 
{Tape Subroutine: 
l 
{Check the tape unit address in 
jcregister 3 for hexadecimal 
{characters. If it is invalid, branch 
{to issue the error message, the { 
{address of wich is contained in | 
{register 7......2..2.., lag asin wale v0 de Sa’ 8 Gas me >{XT85 
{ { 
{Move the tape address to the new TCB.| {| TNPU+1 (LTPWSDTC) 
{Indicate tape support. { {TNSI (LIPwSDTC) 


{Return to cailer via register 14. | i 
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{Labels [Chart XJ: IPw$$XJ - Scan Execution {Modified Lata {| Reg. {Cails 
{JECL Statement {Fields {Usage | 
{Disposition Validation Subroutine: j 
{ i 

XS30 {Get the address of the disposition { 
{table in register 1. | 
| | 
{Match the disposition against the j 
jentries in the table. If an invalid | 
{disposition was specified, branch to |{ 

{issue error message 10511 INVALID i 

{ DISP PARAMETER os co 6 ie-o nis face See ote ew we Lee >| XT65 

| \ 

{Return to calier via register 14. i 

I { 

{Get Continuation Card for Writer-only Partitio 

| 

{If a continuation card is to he read 

{tor a writer-only partition, a return 

jis made to IPWSSXR. 

I 

{Check register 8 to see if a new TCB 

{has been acquired. If. not return to 

{caller via register 14. 

| 

{Save registers 14 through 5. 

{ 

{Store the TCB address in the restart | 

{indicator of the calling TCB. I 

i i 

{Return to IPWS$XR........ aoa sea ei a >4XJ10 

1 | 

{Clear the restart indicator in the 

{TCB. 

| 

{Restore registers 14 through 5. 

d 

{Return to caller via register 14. 

| 

{Get Next Operand Subroutine: 

{ 

{On entry to this routine, register 3 

{contains the address of the tield 

{delimiter of the current (processed) 

{operand. 

I 

{Return in made via register 14: | 

fe If a next operand is present.... >4|0(R14) 

f« If end of statement.... while wee ote O44 CRAG) 

i¢ If an error has been detected... >|8(R14) 

\ 1 

{if the remaining operands to be i 

jprocessed are on a continuation card,| 

jread the continuation card. i 

{ i 

jload the address of the new operand | 

i 
i 
{ 


IPwhwTO 
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a a ee ee ee Oe me ee 
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4aPwSGDR 


jinto register 3. 


{ 
{Return to calier via register 14. 
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{Labels 
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{Chart Xd: iPWSS$XI - Scan Execution 


{JECL Statement 


{Validate Operand Subroutine: 

I 

{On entry to this routine, register 3 

{contains the address of the first 

{byte ot the field to be examined. 

{Register 4 contains the maximum 

{permissible length or the field. 

{ 

{Scan the operand field; if the field | 

{is. not alphameric, branch to......+..>|XT85 

l l 

{Examine the delimiter: | 

{lf a comma (,) or biank ( ) O© a | 

{closing parenthesis, branch to......>({XS62 

. I 

{if not stopped by end of statement, | 

fj branch EOisiw Ssietss 7 se 2 ase Sje:0 aia aleeewe od XLB5 

( I 

|Get the machine length of the operand] 

fin register 4. j 

{ { 

{Return to caller via register 14. { 

{ I 

fAlphameric Operand Subroutine: i 

{ l 

JOn entr “co this routine, register 3 | 

{contaifis the address of the first { 

|[byte’ of the fieid to be examined. i 
{ 
t 
I 
{ 
1 
I 
l 
| 


— we ee ee ee 


{Register 4 contains the maximum 
{[Permissabie length of the fieid. 
i 
{Scan the operand field; the first 
{character must pe alphabetic. Valid 
{characters in subsequent positions 

Jace A-Z, 0-9, o, # and $. If the 

Joperand contains other characters, 

branch tO... ses rccs ac rcasscaswsceser 4fXTBS 
{ | 
j{Examine the delimiter. If a comma (,)1}] 


Jor a- blank ( ) or a closing paren- j 
(this, DLAUCH tOseves es iaaseaucds sa cawl [XSTZ 
{ { 
{if SLi in process and the delimits { 
{in a point (.), branch to...... Sieve OLE XST2 


| { 

{if not stopped by end of statement, jf 
{branch COs! 006: Soak eine eo ae Se as a wee | KL OS 
| l 
{Get machine length of operand in 
{register 4, 

{ 

{Return to caller via register 14. 
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{Modified Data 
{Fields 
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{Labels {Chart XJ: IPW$$XJ - Scan Execution {Modified Lata | Reg. iCalls 
{JECL Statement | Fields jusage { 


jHandle SLI Statement: 


{ 
XJ78 jIlf SLi is not supported branch .....>|XJ84 
{ { 
{Reserve parameter list space. if not. | 
jsuccessful, branch waseracsaavasasae> | XIO8 
I { 
{Indicate SLI in process \ 
l { 
{Blank character fields of parameter | 
flist | 
{ { 
{Branch and link. to get operands ....>|XA00 
[© If no operands preSent 2.2022 ewe es >| XI08 
{« If keyword operandS wesc ween nano r {XISOO 
fe 4£ positional operandS 26.42.0242 2222>{|XIS20 
{ { 
XJSOO {Scan the keyword table to determine | 
{the appropriate handling routine I 


LPWSRSV 


TCF2(1PWSDTC) 


XJPMER,XJPTYP 
XJPUID,XJPPWD 


20) 
te 


ert 
_ 
es) 
- 


a 


{ j 
{ | 
{ i 
| { 
{ | 
I i 
\ { 
l | 
| | 
{ | 
I | 
{ i 
I l 
{ { 
1 | 
{ { 
{ | 
{ | 
| \ 
{ | | 
{ J MEM= w2snssccccrse Sie dwar es was, s.btere ea «0 {| £0530 j 
| { ICCF=..... Ee ee ee ee ee eee ee ed eve TS, { 
| f DL B= 2s aid oo erate oe oe eee eo eww ace we ase | XTS60 | 
| { { i 
|XJ3S10 {Copy originating user from queue rec. | {XJPUiD 
[ { { { 
{Load parameter list address into 4 | 
| {register 1 and branch and link to | j 
| | 
| | 
{ i 
| i 
{ i 
1 I 
{ i 
i | 
| 4 
| { 
{ | 
| i 
| | 
j | 
{ | 
j | 
t | 
1 { 
| | 
| | 
I { 
I { 
i | 
i { 


J IPWSS3SL @eaonnaaeonrrawesWnseea tensa ea seeteeeeweaeennres >4XJ10 iPwaGSL 
{ I 
{Positional Member Operaad: 

l 

XJS20 {if suplib is specified, move it into 

{the parameter list, else use the 
{default from the generation. 


KE, KF 


= 6] 
+ 


{if member name is invalid or omitted, | 
{branch to issue message 10Q51I,......>{XT85 
| i 
{Move member name into parm. list ...>4XJ510 
| | 
| 
{Librarian Member Operand (MEM=) : 
{ 
XJS30 {lf a member has already been 
{processed or ICCF= has been specified| 
jor the specification of MEM= is { 
Jinvalid, Dranch wsssannanwcaceaccweas> | XTB5 
{ | 
{Move member hame and type into the | 
{parameter list, branch wos. sevceve ee | XJIS10 


oO 
td 


’ 


—— a = 


XJPMBR,XJETYP 


— a ee a ee ee ge ee ee ee ee ee eee eee ee 
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P 
jLabels {Chart XJ: IPW$$XJ - Scan Execution {Moditied Data { Reg. jCalls 
JJECL Statement |Fieids iUsage | 


se cee 0 ee rete ne cere ere rem nee ee ee te mete ee mee ee ae me ee ee ee wee ee ee ee ee eee ae wee cee we were ee me ee ee re re we ee we em ee ee ee ee ee er oe re re ee ee re ne ee ee ee we ee ee oe ee ee 


jICCF Member Operand (ICCF=): 


| 
XJS40 {lf the keyword is a sublist, branch >|{XJS50 
| | 
{if member name is invalid or omitted,| 
|branch to issue message 1Q51I, { 
fbranch w...e..00. spits suareuate @iaisYs ea Ginlare avers >4,XT85 
| i 
{Move member name into parameter list | 
| | 
{if end of statement, branch ........>|XdIS45 
I l 
{If next delimiter is invalid, branch>,{xT8&5 
i | 
{Point to next keyword, branch ....+.>{XJS00 
i 4 
XJS45 {lf co LIB=keyword has been processed, | 
[branch to issue message 1Q51I, ~....>{|XT85 
i { 
(Otherwise, Dranch «5 iscasineca vans das >| XIS10 
| i 
XJS50 {i£ member name is invalid or omitted,] 
{branch to issue message 10511, .....>4XT85 
{ | 
{Move wtember name in to parameter list] 
{ 
jif next delimiter is a comma, branch>|XJS55 
{ | 
{If next delimiter is not.a ')!, | 
{branch to issue message 10511, ...+.>{|XT85 
l { 
{If the end of statement is reached .~>4XJS45 
i i 
{Point to next keyword,.branch ......>{XJSO0 
{ 1 
XJS55 Jif the password is invalid or omitted| 
Jor the next delimiter is not ')', { 
{branch to issue message 1Q51I ......>4XT85 
{ | 
{Move password to parameter list | 
\ | 
{if the end of statement iS reached .>{|XJS45 
i 1 
{Point to next keyword, branch ...... {XJISOV 
l 1 
{ 4 
{Process Sublibrary Specification (LIB=): 
1 | 
XJS60 {if the keyword is in sublist format >{xXJS70 
l | 
{Store binary sublib value into | 
{parameter list \ 


XJPMBR 


to ee ee ee 


XJPMBR 


——_— oe oe oe oe ee ee ee ee 
i or a i ee ti ee ee a ee 
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XJPPWD 


{ 
{If the end of statement is. reached .>4XJS65 
| 
{if delimiter is not ',' branch to { 
{issue message 1Q51I, ....; EP LTP eID LO Gl de ro! 
1 d 
{Point to next keyword, branch ..4....>{XJSUO 
{ i 
xXJS65 {If ICCF= keyword was not processed, {}{ 
{branch to issue message 1Q511I....... > |xXT85 
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{(OtherwWise, Dranch 2.4.20 2222 cccesesce >| XIS10 


VSE/POWER PLM Part 2 


! 
| 
| 
' 
! 
| 
' 
{ 
4 
! 
t 
| 
' 
| 
! 
i 
| 
| 
! 
| 
' 
' 
| 
| 
| 
t 
' 
' 
' 
' 
' 
! 
| 
' 
t 
I 
' 
' 
| 
i 
t 
| 
' 
' 
| 
! 
{ 
' 
' 
| 
' 
I 
t 
| 
| 
! 
' 
! 
! 
t 
{ 
! 
| 
{ 
' 
1 
| 
| 
t 
! 
| 
| 
{ 
| 
| 
t 
| 
| 
| 
| 
! 
{ 
| 
t 
{ 
| 
| 
' 
i 
| 
iS 


Licensed Material - Property of IBM 


cr. 
{Labels 


|XJS70 


XJ 84 


| 
i 
1 
| 
| 
{ 
{ 
| 
| 
i 
{ 
| 
l 
| 
| 
{ 
1XJ 86 
| 

l 

l 

\ 

{ 

| 

{ 


Pose Soe oS eS Se ee ee ae ee See ee ee ee eee ee ee ea ae ee 


{Chart XJ: IPWS$XJ - Scan Execution 
{JECL Statement 


{Check the sublib values. If invalid | 

jor an invalid delimiter is found, { 

{branch to issue message 10511.......>{XT85 
| 

if the end of statement is reached .>|{XJS45 
{ 

Point to next keyword, branch .....->{XJS00 


l 
Issue message 1Q451. 


{Set termination type in the TCB to 
{C' Fe. 
I 


{REturn: tO: EPWUSHE Ra 6 sw wee es aise we ee > (XD08 
JHandle DATA Statement: 

l 

{if no SLI workspace is available, 

{return to IPWSSRR.. wwe ee oe >{XJ06 


{ 
{Reset reader switch to C'R! in the 


|SLI work. space. 
i 

JReturn. to IPWSSXRw. 2 we awa scw nc cccsee >| XI08 
{ { 


— ao ee ee eee eee 


{Modified Lata 
{Fields 


TCTT (IPWS$DTC) 


SLRR(IPWSLSL) 


ikeg. {Cails 


—_— ee oe oe ee ok ee ee ee oe ke ee ee Be ee oe oe 
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Pa 
{Labels [Chart XJ: IPW$$XJ - Scan Execution {Modified Vata { Reg. {Cails 
i {(JECL Statement {Fields {Usage j 
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{Process Keyword Operands: | 
| ! | 
{Disposition Operand (DISP=): j 
{ | | 
{Branch and link to the disposition i | 
{Validation Subroutine... ...2.0 002 2022>4 XS30 | 
| | | 
{If it in pee output, branch | | 
era ee are oe tee ie ea eee eee iS olor ei wets tee lere ie Ae ~>|XK11 
| i { 
{If disposition "I" has been specified { 
{for list queue entry, branch to issue| | 
PQeLTOL MESSAGE. + snes scisn secew eee e o> {ATES { 
| | \ 
{Reset the disposition indicator. i 
{ l 
[It disposition is tape, reset { 
{segmentation and indicate tape { 
(support. | 
{ 1 
{Branch to get the next operand and | 
| PLOCESS "1ts ste 3 ssa Sordset siete 60S wis erekats > { 
| ; I 
{Class Operand (CLASS=): | 
| | 
jin case of error, branch to issue | 
Imessage 1051Lww nse eswceswsaeae onan > j 
| I 
| Reset the class indicator. | 
{ | 
{Branch to get the next operand and j | 
PDLOCESS .2ts..35.t0o oeo3s Mow Sie 6 a Soe aw ois OAR KOO | 
| \ { 
{Remote Operand (REMOTE=) : j | 
| | i 
{ 
| 
| 
| 
l 
| 
| 
{ 
i 
| 
| 
| 
| 
| 
( 
| 
| 
1 
{ 
i 
| 
i 
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{ 
{ 
l 
| 
l 
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i 
1 
| 
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UNDP (iPWSDQR) 


QNBS (I Pw$DQR) 
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jload the address of variable 'REMCTE' | 
jinto register 7 and branch and link | 

{to the numeric operand processing j 
j|subroutine to convert the operand...>{XS00 
| { 
PL£-1 Crror,. DrANGH tOs6 24 sew owe ice r gE XTssS 
1 { 
{Reset remote indicator 
{ 
{Convert remote ID to character 
{representation "RXXX" and save it in 
{target user field. 

| 
{Copy iocai node name from master. 
jrecord 

i 
{Branch to get next operand and 

| PEOCESS <3 a aos awe was win oeaeee ee ae een 
4 
{Forms Number Operand (FNO=): 
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{ 

XK16 {Load the address of variable 'FNC! 
{into register 7 and branch and link 
{to the validate operand 
[SUDCOUTCINGs . awww cas war ae sewcsnassawaD 


XS60 


{Reset the forms number identifier 
{it specitied. 

i 
{Branch to get next operand and 
| process PSone ee eos ca adeak SUKOO 


UNFI(IPWSDQR) 
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{Labels |Chart XJ: IPWS$$XJ - Scan Execution {Moditied Data { Rey. {Calls 
{JECL Statement iFieids {Usage | 
{Job Separator Operand (JSEP=): | 
| { 
XK24 {Set the maximum permissible length | 
jin register 4. | 
| f 
| 
| 
{ 
I 


Do 
~~] 


{Load the address of keyword verb 
{"JSEP* into register 7. 
I 
{If the operand is enclosed in 
jparentheses, DLaNch tO,swwssswce see er | XK2Z5 
| 
{Branch to the numeric operand { 
{processing subroutine and convert i 
(the Opetaidssusasctudssaeweee eee e%sn > | XS00 
I l 
|Reset the job seperator indicator. { 

H 
Branch to get next operand....2..2.+..> 4XK00 
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{Bypass opening parenthesis and { { 
{address first suboperand. { { 
{ l { 
{Branch to the aumeric operand { { 
{processing subroutine and convert r] | 
[the SUDOPECL ANd. nwa saccnnecrsnee waeeer>| XSO00 { 
i 
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| | 
{If nothing is specified, branch to..>|XK2A 
{Otherwise, reset the job separator | 
{indicator. 
{ 
ilf the delimiter is not a comma, 
{branch to....... s 
| 
jAddress the 2nd suboperand and assume 
{no suppression of separator pages 
{between copies desired. 
{ 
{if 'Y¥' is specified, branch to......>4)XK2C 
{If 'N' is specified, set suppress { 
{pages between copies flag in QR. | 
{OCtherwise, Dranch tOw..a ncaa zccaeeeer | XTB5 
{ 1 
{Address delimiter { 
| 1 
XK2D [Test for ciLosing parenthesis. if not | 
j branch 8 ee 0 aa ee @ao7206U8smUCOlUC #8 ee a ee ack 
{ 1 
{Address next possible operand and | 
{branch to handle it..... eihare eee es SS >4XK00 
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|Chact XJ: IPWSSXJ - Scan Execution 
JJECL Statement 


{Copies Operand (COPY=): | 

{ t 
{Load the address of keyword verb t 
{'COPY' for message 1Q511I into 

j[ctegister 7 and branch and link to the| 
{numeric operand processing subroutine| 

{to convert the operand............. ->{XS00 
| | 


[Reset the number of copies indicator. | 


{ | 
{Branch to get the next operand and | 
[PLOCeSS 2tisosses csc oe wes ine ee euae > EKOO 
I | 
{Tape Address Operand (TADDR=): 

| 

{The TADDR may ce detined as 3 hexa- 
{decimal numbers specifying the tape 
jaddress, or as the same numbers 
jenclosed by X*"', indicating hex 
|valued. Mode may be optionaily 
|specified. 

| 

{Load address of variable 'TADDR'! 
jinto R7. 

{If the operand starts with a 
{parenthesis, update pointer by 1. 

! 

{if the operand is not in hex format, | 
{branch tO... 2222 c eens ce ew ence ee ee >| XKI2Z 
\ i 
}Point to tape address and check | 


— a oe oe fhe ie Oe ee ee ee ee 


(NaALDGL Ly st cece cues estes seat ala SG 2222? ({XS28 
{Ii no ending quote, branch to error.>j|XT85 
ELSE branch to0v<.4 2420.05 Ene te w> | XK34 


r | 
{Check tape address for vaiidity.....>|xXS28 
{Update operand pointer. | 

{ 1 

{1f mode is not specified, branch to.>{XK38 
Jif there is no comma delimiter, | 
{branch EOS. dtaics- ests ata wletete Sle wie eeke pate ews eo? | XTB5S 
{If not in hex tormat, branch to.....>|{XK35 
{Check the mode specification......6..>|XK3A 
{Point past ending quote, branch to..>4|XK36 
| . { 
{Check mode specification. ......0..42..>{XK3A 
| { 

{if no ending parenthesis, branch to.>{XT85 
{ | 
{Set disposition to tape and reset 4 
|segmentation. | 
{Branch E Owe aide Beige ie sree 6 ibw sow Sia eave wee KKAKOO 
\ I 
{Translate the mode and pack to | 
jinternal format. Move into TCB. ] 
{Return to Callerw.cw ssc c ewer a nen eee er fRIT4 
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{Labels [Chart XJ: IPWS$XJ - Scan Execution iModified Lata | Reg. {Caiis 
{JECL Statement jFields {Usage | 
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{Records before Message Operand (REM=) : 


XK40 {Reset the records betore message 
{indicators. 
| 
{in case of error, branch to issue 
{message 10511 invalid RBM 
j parameter......... wweraen wre seme nwa? 
{ 
{Branch to get the next.operand.and 
| process Steno se Bo lala Ware ch Wa Sea Aw eee eee S. Seca 
\ 
{Line Table Operand (LTAB=): 
| 
{Branch and link to the line table 
(Subroutine... . 2.2. e ene aeaanae rr Ad 
| 
{Branch to get the next operand and 
{process it....... Sa as er ere ee ire oe 
{ 
{Records before Split Operand (RBS=): 
{ | 
iLoad the address of keyword verb \ 
{'RBS' for message 1Q51I into register 
{7 and branch and link to the numeric {| 
{operand processing subroutine to | 
{convert the Operand.......425 wee seen > J XSOO 

| 

| 

{ 

{ 
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\ 


QNBM(IPwW»DOQR) 
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{ 
{Reset the records before split 
{indicator if not tape spooling. 
{Branch to get the. next operand and 
{process l1t......... ba tava al ae aise tayute aides esis -oees > 
I 
4UCS Buffer Operand (UCS=): 
| | 
{Load the address of. keyword verb | 
{*UCS' for message 10511 into | 
{register 7 and branch and iink to thej| 
falphameric phas name subroutine.....>|XSZ24 
| | 
{Move the phase name. to the data set | 
{header record | 
| { 
{if the FOLD or CHECK option was I 
{specitied, the option is set in the | 
{data set header record 
{ i 
{if the CHARS operand is not | 
|Ispecified, the UCS specification is {| 
{treated as if the UCS image speci- { 
{fication has been specified for { 
{CHARS. . { 
\ 
| 
| 
{ 
{ 
l 
| 
| 
\ 
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{ 
{The SETPRT parameter list is 
jaddressed using register 4 as base. 
{If CHARS is specified, branch to....>|XKO0O 
t 
{Otherwise, move the UCS phase name 
Jinto the SETPRT parameter list. 

I 
{Branch to get the next operand and 


{process it..... Mie eees ee be8 See ee eee > 
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{Labels {Chart XJ: IPW$$XJI - Scan Execution {Modified Data { Reg. jCaiis 
| {JECL Statement jFields {Usaye | 


{FCB Buffer Operand (FCE=): 

I i 
XK72 {Load the address of keyword verb j 

{'FCB' for message 1Q51I into register | 

{7 and branch and link to the alpha- | 

{meric phase name subroutine......... >4XS24 

{ 

{Move the phase name into the data set} 

Jheader record. { 

| 

{The SETPRT parameter iist is 

{addressed using register 4 as a base. 


NDHGFCB(iLPWSDNR) 


rae 2 2 - 
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| 
| 
i 
{ i 
{The fifth through eigath character of| SPLFCB(SPLIST) 
{FCB name iS moved into’ the SETPRT | 
iparameter list. { 
l | 
{Branch to get the next operand and 1 
{PLOCESS 2 bs se ee SS ss waidie'ee Se ae es sess >I 
i i 
{List Device Operand (LST= or PUN=): | 
{ i 
{In case of error, branch to issue | 
{message 1Q511. ...... rr ee pee ietmite des > | 
{ 1 
jCheck for valid device. ] 
{ \ 
{Store the channel and unit number. d 
i { 
{Branch to get the next Crete ES and { 
| process 2 eae eon wa scesees wesecer?d 
4 { 
{Priority Operand handler (PRI=): i 
{ { 
jin case of error, pranca to - issue | 
bWessage 105 1166 Ses e dwises Boe SSS >i 
{ { 
{Check parameter for numeric........ ->| 
| i 
{Store priority parameter. | 
{ ! 
{Branch to get next operand and j 
I process it...... mace anenewessenaen «>| XKOO 
{ 
{ 
i 
i 
{ 
{ 
| 
| 
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I 
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{ 
[Compact Operand Handler (CMPACT=): 
{ 
{in case o£ error, branch to issue 
dmessage "10511 INVALID COMPACT 

] PARKAMETER." 2.1... eee we nee ema nenene eee? 
\ 
(Check parameter for alphameric and 
{first character only alphabetic..... > 
{ 
{Move the compact name. 
{ 
{Branch to get uext operand and 


{ PROCESS 2ts sss ss saas Gi a ase ca Oa wane et ae PER OO 
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{Flash Operand (FLASH=): 


i 

XL00O {Load the address of keyword verb 
J'FLASH' for message 1Q51i into 
{register 7. 
{ 
{if opening parenthesis, branch to...> 
| 
{Branch to vaiLidate the operand...... > 
| 
{Reset the tiaSh identifier and set 
{maximum flash count of 255. 
{ { 
{Branch to get next operand..........>4XK00 
I I 
{Branca to validate the operand......>4XS60 
{ f 
{Reset the tlash identifier and set | 
{maximum flash count of 255. j 
{ | 
{If the delimiter is not a comma i 
J coranch TiO s- soca! 310) ae ation a eile es oe ees a2. e @ wae>fXL10 

i 

| 

| 
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XLO5 


QONEL(IPWSDQR) 
SPLFLASh (SPLIST) 
SPLFLSHC (SPLiST) 
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oO 
oO 
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i 
i 
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(Kz 
I 
QNFL (i PwslQR) i 
SPLFLASh(SPLIST) 
SPLFLSHC(SPLiST) 4 
41 
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| 

\ 
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{ 

I 

{ 

I 

i 
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1 

{ 

| 

I 
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| 

{Address second value (flaSh count). i 

j i 

{Set Maximum permissible Length in | 

{register 4 and register z to zero. { | i 

{Branch to validation routine........>|XS00 | {RE 

I H | i. 

{If vaiue is greater than 255, branch | i f 

EOs8 6445455 Seas e ae Sota Sa ee Secs aetere SS >| xXT85 | fkz 
| i 
|SPLESLHC(SPLiST) | 
{NDHAFLCT | 
{ (LPweDNK) 
i 
i 
| 
l 
| 
i 
\ 
| 
| 
i 
| 
( 
l 
i 
i 
{ 
| 
{ 
i 
l 


{Otherwise, reset flash count. | 
| { 
| 


bet 
i 
aah 
© 


{if the delimiter is not a closing | 
t{parenthesis, branch t0......244060..22227 44885 
{ | 
{Branch to get next operand...... weee>] XKO0 
l { 
{BURST Operand Handler (BURST=) : 
( 
{Load address of keyword verb 'DURST* 
{for error message '1Q51I* into 
{register 7. 

{ 
{Assume BURST=N is specitied. 
{ 


{Examine operand: 
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= te Oe ee 
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SPFLAG1(SPLIST) 


| { 
{if 'Y¥"' is specified, branch to......>{|XL16 
{if 'N' is specified, branch to......>{XL18 
I { 
{Otherwise, it is aL error, branch | 
[U0 oP a2 sicns os nee law to 0 ls, See ee w la ote Bea allan d-e's PIP RT SS 
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XL16 {Set burst fiag in gueuc record. [QONPS (IPWS$DQR) 


\ 
{Set burst flag in the 3800 section 
jof the data set header record. 
1 
{Set burst flag in the SETPRT para- 
{meter list of the data set header 
|record. 
I 

XL18 {Address next possible operand. 
{Branch to get next operand........-2>? 
l 
{DFLT Operand Handler (DFLT=): 
I 

XL20 {Load address of keyword verb 'DFLT* 
{for error message '1Q51I' in 
{cegister 7. 
l 
{Examine operand: 
l | 
{If "Y' is specified, branch to...... >yXL22 
{If 'N' is not specified, branch to..> | XT85 
| \ 
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j | NDHAFLG1 
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{ {indicate no Gefauit requested. { 
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{ 
| 
| 
j 
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| SPLFLAG1(SPLIST) 


XKO0 
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TNF3(IPWSDTC) 
{ { 

{XL22 {Address next possible operand. | 
jBranch to get next oferand.........- >4{XK00 
i I 
jCOPYG operand (COPYG=): 
{ 
{Load address of keyword verb ‘COPYG' 
jfor error message '1Q51I' into 
{register 7. 
{ 
{if operand is enclosed in 
{parentheses, branch tO... rae aces eee eo? 


=e) 
te 


{Branch to validate and convert......>: 
\ 
{if nothing is specified or value 

{greater than 255, branch t0.....2..-> 


a] 
tO 


i 

| 

4 

i 

1 

| 

d 

| 

| 

{ 

| 

I 

i 

{ I 

{Store copy group index in queue | QNCG (i PweLDQR) 

{cecord. | 

| 1 

jSet. transmission count to one. | {QNTC(LPWSDOQR) 
(BRANCH. © O5 occ Sse) Sieic: Swe ital ae 0s, eee won te es | 
l { { 
{XL32 [Branch to validate and convert......>| 
I 4 H 
{ {if value is zero, or value greater { 
{ than 255, or more than 8 copy groups | 
{ fare specified, branch to...........- | 

{ { i] . 

| {Store copy group in queue record and | QNCG (1PWSDQR) 
i jaddress next sub operand. j 
i { 4 
{XL38 {it no text suboperand, calculate H 
| {total value of all copy groups { 
I {specified. i 
l I | 
| jif total value eats than 155, { 
i ! 


jbranch to...... ee er re ee ee 
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r 
| 


Labels {Chart XJ: IPw$sXJ - Scan Execution iModified Data i Reg. |Caiis 
| {JECL Statenent iFields {Usage | 
 ostesieneeteatetentetenteatenerten Seco Soe ee oe ee Se Se See See ee SS ee ee eS a Se SS See ee 
{| XL39 {Update the SETPRT parameter list cf SPLCOPYG (SPLIST) 
{the data set header record 
{ 
{Branch to get next Ofperand........22> | XKO0 


{ 

I 

i 

{ 

| I 

{MODIFY Operand (MODIFY=) : | 

l { 

XL40 {Load the address of the keyword verb # 

{*MODIFY* for error message '10511 ..'| 

{into register 7. | 

I { 

{1£ opening parenthesis, branch to...>|XxXL42 

i | 

{Branch to validate operand..........>{|XS60 
I { 

{If nothing 1S specified, branch to..>{XT85 
{ 


ye] 
ty 


=e) 
a 


{Update the copy modification field 
{in the 3800 section cf the data set 
{header record and in the SETPRT para- 
jmeter list of the VSE/POWER section 
{of the data set header record. 

{ 
{Branch to get next operand...... ee rd 


i 
| NDHAMODE 
| 
l 
{ 
\ 
{ 
i i 
l 
\ 
{ 
| 
i 
{ 
i 


(IP WSDNR) 
SPLCPMOD (SPLIST) 


a 
+ 


R4 


XKO00 


XL42 {Bypass the opening parenthesis and 
[set the maximum permissible length 
{in register 4. 
i 
{Branch to validate the first 
[SPECLLIICATION ssn die be See See S.uoets Ss > 
| 
{If nothing is specified, branch to..>{XT85 
{ | 
{Update the copy modification field | 
jin the 3800 section cf the data set jj 
|header record and in the SETPRT para-| 
{meter list of the VSE/POWER section | 
jof the data set. header record. 
{ i 
{If no continuation, branch to....... >| XL43 

1 

i 

H 

i 


XS 60 


oo 
= 


NDHANODF 
(LPWSDNR) 
SPLCPMOD(SPLiST) 


al 
A a 


‘RA 


es) 
many 


{ 

{Address the second part of the 

{operand and set the maxinuno 

ipermissible length in register 4. 

| { 

{Branch to validate operand...... aaa | XS60 

| 

{If nothing is specified, branch to..>|XT85 

I 

{Update character arrangement table i 

Jin the SETPRT parameter list ot the | 

{data set header record. | 
| 
{ 
{ 


R3,R4 


> ] 
eal 


3) 
Boas 


SPLCMCHR(SPLIST) | R4 


XL43 {if the delimiter is uvot a civosing 
{parenthesis, branch t0.....ce0nnene sD? 


{ 
iBranch to get Next OPELaNnd one oeweeees >| XKOO 


Ce i ir i i i a a  ieientionaiond 


ee ee eee ee 
fe meee ee te ie ee ee ee ee ee ee ee ee ieee 
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[Labels fjChart XJ: IPWS$XJ - Scan Execution iModified Data { Reg. {Caals 
{JECL Statement {Fields {Usage | 
[CHARS: Operand (ChARS=): { | 
{ i ' 
XL5C {Load the address of the keyword verb | 
t 
{ 


{'CHARS' for error message into 
{register 7. 

{ 
j|If opening parenthesis, branch tow..>4JXL54 


{ 
i 
i 
i 
i 
l { l 
{Branch to validate operand........06.>{|XS60 j 
i 
1 
\ 
i 
( 
{ 


=o] 
ira 


{ j 

Jif nothing is specified, branch to..>4XL52 
| l 
[Move the character arrangement table | 
{into the 3800 section of the data sez| 
jheader record and into the SETPRT 4 
{parameter list of the VSE/POWER sec- 

jtion of the data set header record. 

I 
{Address delimiter and branch to.....>|XL56 


Ls) 
£ 


NDHATAB1 
(IPWSDNR) 
{SPLCHAR1(SPLIST) 


P< 
om 
ey) 
No 


~< 
ut 
nm 
£ 


\ 
{ 
i 
{Save first translate table fieid i 
jaddress and tirst character arrange- {SVKO (LPwWSDSV) 
{ment table field address in save {SVKIV(LPWSDSV) 
jarea. | 
{ | 1 
{Branch to validate operand... ...2222>{|XS60 { 
\ I { 
Jif nothing specified, branch to.....>{|XT85 ij 
{If more than fonr CATS are specified,]| { 
[BEAD CH! “tO sieid we ohe te Sie ete te Wile a) 3 bo ore tee a wia'e > | KTB5 | 
{ l 
j}Load address of current translation | 
{NDHATAB1 R14 
i 
{ 
{ 
| 
| 
{ 
i 
| 
| 


(1PWSDNR) 


{table field in register 14 and move 
}CAT value. 


| 
{Bump to next translation table tield 


{and save address. 


SVRO(IPhWSDSV) 


l 
{Load address of current CAT field 


=] 
ob 
Boas 


SPLCHAR1 
(IPWSDNR) 


i 
| 
| 
{ 
| 
{ 
| 
| 
fin register 14 and move character J 
jarccrangement table. | 
| | 
{Bump to next CAT ftiels and save { 
jaddress. | 
{ | 
{Increment tumber of processed CATs. | 
\ { 
{Point register 3 to detimiter. | 
| | 
jlf continuation, branch to.......2.6. >| 
{ | 
{if not closing parenthesis, branch 
[EO ats oS sa aw B-Series Wee Gs Sw ite we aieteta “a ahe.e fk LOO 


SVR1(LPWSDSV) 


bo 
ay 
£ 


SVRO 


Se ee eee ee i ee ee. ee eee eee ee eee eee kaa 


| 
{ 
| 
l 
{ 
\ 
l 
l 
\ 
i 
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{Chart XJ: IPw$$XJ - Scan Execution 
{JECL Statement 


{Examine if the UCS operand is I 
{specified. If so, branch to.........>{XKO00 
l | 
jOtherwise, take the first CHARS value] 
{Branch to get next Operands 2.2 ee se >| XKOO 
I | 
{User Cperand (USER=) : 


{ 
{Check the USER operand for valid 
{characters and maximum length of 16. 


{ 
{lf in error issue nessage 10511 and | 


—a = ae 


{branch to. ae eaaxnseeww@aeee@ees@@ee8en aoe ea >| XTB5 
| 1 
jElse move user information into queue| 
{cecord. { 
i d 
{Get Lext operand.........2222202002. > {XKOO0 
{ 4 
{Password Operand (PWD=): | 
| { 
{Validate the password. Must be { 
jalphameric and not greater than 8 | 
{characters....... Per ee gio Gen a). ba ave tas >| xXS60 
| 


1 
{if in error, branch to issue message | 
[VODA Disk eco stews w bce SS Ww hw ye: hielo ale ale we oe PRTOS 
{ | 
{Move password into queue record. i 

| I 
{Get hext operand........ tao eis over d oes? | XKOO 
| 
{SYSID Operand (SYSiD=): { 
i | 
{The SYSID operand must be specified {| 
fas 1 to 9 or "N'. if "Nf is speci- { 
{tied, then the target. SYSID in the { 
jqueue record will be set to hex zero.j 

{ i 
{Validate the operand....... Seer ea >1XS60 
i] 1 

fif in error issue message 1Q511 | 
fand branch 0 666 a eos gsaaase @@eawse 22 aoee> | XT85 
I ‘ 

{lf the operand is 'N', move hex zero 

Jinto the queue record. 

{ 
[Else move the SYSID into the queue 
(record. 


j 
I 
| 
| 
! 
{ 
{Branch to get next operand.........22>] 
{ { 
{DEST Operand (LDEST=): j 
{ | 
{Valid tormats are ] 
{ DEST=* { 
{ DEST=nodeid { 
{ DEST= (*, userid) { 
| DEST=(nodeid,userid) { 


{Modified Data 
{Fields 


QNUL (LPwsDQR) 


UNPW(LTPWSDOR) 


QNSID(IPW2DQR) 


QONSID(LEWSDQR) 


NDHGUCS (1EWEDNR) 


{ keg. {Caiis 
{Usage | 


ee ne ee ee ee ‘ 


— mo ae cee ee oe ee eo eee ee Be ee oe oie ee ee i ee oe ee Ee ie Re ee ee eee eee. 


es) 
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{Labels |Chart XJ: IPW$$XJ - Scan Execution iModified Lata (Reg. {Cails 4 
i {JECL Statement | Fields {Usage | 
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PP0O {Load the address of the keyword verb | 
{'DEST' for error message '1Q51I ..! i 
{in register 7. { 
| | 
{Z1f sublist notation, branch to...... >{PP20 
| i 
{If Local node requested, copy local {| 
{node name from master record, point | 
{to next delimiter and process next J 
PKEYWOLG ne 5ans neh ease e aes s wiaee waved BOO 
{ 4 
PP10 {Check if nodeid specification starts | 
{with an alphabetic character and if | 
Jali subsequent characters are in the | 
{cange 'A-Z, 0-9, @, #, $* Via branch | 


QNTN (LPW$DQR) 


x 
by 


esa h < = jn 


m 
~a 
Bs 


{Move target node name and process j QNTN(LTPWSDQR) 
jnext keyword....... cate eles Taree te aacawwae >| XKOO 
{ \ 

PP20 {If empty sublist, branch to.......-.4 >4XT85 


{ 

PP25 {it local node requested, copy local {| 
d#node name from master record, update | 
{pointers and branch to......... «ee ee>| PPO 
{ l 

PP35 {Check if nodeid specification starts | 
Jwith an alphabetic character and if j 
jall subsequent characters are in the | 
{range 'A-Z, 0-9, @, #, »' Via cranch | 


UNTN (IPWSDOR) 


{ 
\ 
l 
{ 
| 
l 
| 
{ 
| 
1 
\ 
| 
l 
J 
| 
fand Link COs. wn ccncnee Wieveidr sie recwra'a fats >4XS70 { 
{ 
( 
\ 
{ 
i 
{ 
i 
1 R1,83 
| 
{ 
| 
| 
{ 


1 
1 
\ 
I 
{ 
l 
{ 
l 
| 
i 
{ 
{ 
{ 
\ 
{ 
| 
I | if 
! 
{ 
{ 
{ 
{ 
{ 
{ 
I 
{ 
| 
{ 
l 
| 
{ 
i 


i Se ee ee Oe ie ee ee em De ee ee ee 


t=] 
=~ 
- 


fand link to..... SiG Sa gas lovee tard ele Bod Suerte >{XS70 


| { 
{Move target node name and point | ONTN(LPWeDQR) 
{behind delimiter. | 
| i 
PP4YOQ Jif second argument.is omitted, branch] 
{to process next keyword.... alipiel x ee eee > XKOO 
{ i 
PP45 {Check if second argument is alpha- | 
{meric by brancnm and link to......4...>4{XS60 


{ 
i 
I 
j 
l 
i 
l 
! 
I 
{ 
{ 
i | l 
l 
\ 
{ 
I 
{ 
! 
i 
i 
{ 
{ 


a 
w 


br 
—_ 
a 


{ i 

{if the userid is Specified as 1 to 3 { 

{digits, setup standard format *RXXX? | 

Jand branch to process next keyword..>{|XKQ00 

| { 
PP50 {Copy userid specification I 

I i 

(Update pointers and process next j 


{keyword..... S266 ace eeeae ee eae awa | KROO 
L Se mc ec a ne age ce ee am mee a me me ae cere are mee me ee ce ee ee wee ee ae re ee ee ee we ee ee ee ee cee ae es se ee ee ee ee ee ee ee ee 


LQNTU (1 PwWd>DQR) 


QNTU(IPWSDQR) 


— a ee ee ee ee ee ee ee oe ee oe oe 


| 
| 
( 
i 
i 
{ 
{ 
i 
j 
{ Jif invalid delimiter, branch to.....>{XT85 
j 
{ 
i 
i 
| 
| 
{ 
i 
| 


| 
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| 
! 
| 
| 
| 
| 
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| 
' 
1 
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' 
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GS ig ae ER ee cl fe Re Pa Ee eT Pe Be ae ad eg ee ee pe ee Fe ge ae eT Se 
{ IPWS$XR - VSE/POWER Execution Reader j 
'-—_—_----—- Se So SS 
{ Label { Routine i 
t Sa, a Ta RRR Sa Ra | 
{ XROO j Start New Partition Job 
{ XR10 { Writer-only Partition Support | 
{ XR22 j Task Termination | 
{ XR32 { Process Accounting Requests i 
| XR4&2 { Handle Output Requests | 
{ xXQ00 { Wait for User Request | 
4 XQ26 { Emuiate Channel Program i 
{ XQ82 { End of User Job i 
t a ens cave epnamrmenaey oeecemennersn <eetrseeten aqueous cn esr usps epeen ceumansemrenpes ses 











SS a oe te a hee ee ia aR a a a a | 


{ Services Used 





























j 
ee rear a eee eg a ee a ee ae 
{ Service | Macro j 
é Tecan ica GS STD cc acu rr a 4 
{ Task Management {| LPEWSATT j 
| { LPwSDET i 
( {| IEWSWFC | 
i {| IPWSWFQ | 
i {| IPWSWES i 
== SS SS SS ——4 
i Resource Management { IPweRLR j 
| | IPWSRSR r 
Fane, SEER 
{ Storage Management { IPwWSRLV j 
{ { IPWSRLW i 
| j IPwSRSV j 
| { IPWSRSW i 
t a a A ae 
{| Message Service J LEWSGAM ( 
{ {| IPWSNTY i 
SS eS eee 
| Validation Service { IEWSVDA | 
Ce ee ee A Ee ee | 
Cr a he ee es ee eee a I a eg Pe te ya een ey Seg ee Re EE Ee ey Ee ee ee So oe mee Seg ie eae 
{ Functions used j 

SS ee SSS SSS SSS SS SSS SSS 7 | 
{ Module {| Macro j 

a en in Seis coir eaten i aan ncaa rer rennet a a A A a eae fl 
i IPwS$FOQ { IPwS$FQS j 
{ IPWS$GD {| IPWSGDR j 
{ IPWS$LU | IPWSULP | 
{ IPWSSNQ {| IPWSGQS i 
| IPWS$PA/PF } LPWSPAR d 
{| IPWSS$SL { IPWSGSL | 
{ IPWS$XJI j LEwS$SXxJ d 
a aa ec sis Sew ss ae ese ans elles ne aes moma a lca ap nme sc a ce a a es aa a a vis Saeco a se ee ng ae = | 
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{Labels {Chart XR: IPW$$XR - Execution Reader 


{This routine is entered when the 
{PSTART command of the Command 
{Processor attaches an Execution Read 


| Task. 
{ 
XRCS {CSECT name 
| 
XRSD |The first 16 bytes constitute the 


Isection descriptor: 
| 

{*XRCS release! 

t 


[Register Usage: 


O: **** - Service work register 


1: **** - Service work register 
22 **** - Service work register 
3: ***x* - Service work register 


4: IPWSDDE - Entry in PDB 

5: IPWS$DOR Queue record space 

: IPWS$DPD Part. control biock 
7: IPWSDCB User command control 
block 
IPWSDCW 
word 
XRCS - Base register 

IPWSDPA - POWER/VS nucleus 
IPWS$DTC - Task Control Block 
**x*%* -~ Reserved for nucleus use 
IPWSDSV - Task save area 

**x* - Function linkage register 
**xCS - Function Base register 


User channel command 


od md od ed od ad 


ON & Wh = © 
es e@ @0@ 88 68 68 08 


ee) 
ee 


Start New Partition Job: 


XROO jSave reader PUB address in packed 
{forn. 
I 
|Save device type. 
( 
{initialize the storage descriptor 
(with the reader device address in 
[hexadecimal form. 
{ 
{Set the job boundary switch to X80! 
{to indicate that no read request has 
dbeen received yet. 
| 
{Set the device type code to C'R' to 
{indicate reader partition. 
{ 
{If the device is a normal console 
{branch EO. o Sid wo Se BIS ae oe oo wo Swe >4XRO2 
i 


or oe te ee ee oe ee Be ee ee em ee 


t 
jif the device is not a display 
{[console,. branch tOw.sewwwe naw awecces >| XRO4 
Ai 3 oe 4 
XRO2 {Set the device type code to C'C' to | 
Jindicate writer-only partition. i 
{ i 
XRO4 {Set up registers 0 and 4 for seanning| 
{the entries in the PDB. i 


{Modified Data 
|Fields 


- — a a 


— —_ Oe ae oO we oe Ge oe oe ee ee oe he Oe Be oe oe oe ee fe ee oe 8 oe oe Re 


TCDE (IPWSDTC) 


TCDT (1PWSDTC) 


TCCU (IPWS$DTC) 


TCJB(IPWS$DTC) 


eee at ee oe oe oe le 


4 


PDDT+ 1 (IPW$DPD) 


PDCL(1PW$DPD) 


_— Se ee Gee oe oe ee oe a Oe ee oe Se 


_— a oo oe oo Ee oe oe oe O 


— a oe ee oe Oe eo ee Oe om oh Oe 


bo bo do oo hy bo 
HOM & WH wa © 


1R7 


4 R8 
i ‘ 
4 R9 
(R10 
§R11 
gRiz 
{R13 
(R14 
4R15 


a eo ee ee oe oe ke Ok ee oe eo 


9] 
He) 
a ae oe oe oe em oe BO oe 


— -_ 


= oe OO Bo oe we ww ee ee ee eS e Oe 
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{Set the device type code to Cle to 
Jassume a printer device. 

\ 

{If the device is not a printer, set 
{the device type code to C'P' to 
jindicate punch device. 

| 

{If the device type code (PLCL) does 
{not indicate a writer-only partition 
1(C'C*') branch to wait for a user 
PLEQUESE. onan swe sswrcrzaces se 27 2080.02 > 
{ 

{Writer-only Partition Support 

{ 

jInitialization 

l 

{Reserve queue space to torm a dummy 
{queue record to allow for the 
{initialization of output queue 
{records. 

{ 

[Save the real address of the queue 
jspace. 

{Save the virtual address of the queue 
[Space. 

| 

{Reserve job header record space 

{ 

{if request was not successful, 
{branch to........... Se eee ee > 
{ 

{Save job header record address in 
{partition control block 

| 

{Move job date and default name into 
{queue record 

i 

{Update job number in the master 
jcecord and insert it into queue 
{record 

{ 

jInsert default values in the qreue 
Ispace: 


© Set default priority 

* Set queue record identitier to 
“C'C' to indicate console record 
* Set default output class 

e Set forms identifier to blanks 
« Set flash identifier to blanks 
* Set disposition to C'D§ 

« Set number of copies to X*01! 
* Set cuu address 

» Set user information 

e Set VSE/POWER cancel code 


NF ee te te me me Se me cee Ae oe ee A em ate ee em ee Pe So ee ae me ee ee ee me ee ee ee ee ee oe 
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{Modified Lata 
[Fields 


{ TLCL(IPW$DTL) 


| 
| TLCL (1PW$DTL) 


TCQA (LPWS$DTC) 


TCQV (i PWSDTC) 


PDJi (1Pw$DPL) 


— om me oe toe Ge fe oe ge Oe ee we ee ee ee ee OE a ae ee ee Ce Oe ee ee oe Ge oe oe 


{|QRDY (IPwW2DQR) 
JQRNM (iPWSDCR) 
i 

i MRNO(IPWS$LOQC) 

| ORNO(IPwWSDOR) 

l 


{ ORPY (1 PWSDQR) 
1 

{QRQI (1PWSDOR) 
| ORCL(IPWSDOR) 
{ ORFI (1 PWS$DOQR) 
{QRFL(IPW2LOR) 
| QRDP (LPw$DOQR) 
{ QRNC (TPWSDQR) 
| QRCU (LPWSDQR) 
{ QRUL (1 Pw$DQR) 
| QRCN(IPWSLQR) 


Le) 
oO 


fo 
= 
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IPwWSRSV 


LPWSRSR 
iPwSRLR 
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(Modified Data 
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|Chart XR: IPWS$$XR - Execution Reader 


jinitialize Job Header Record: 

| 

|Copy skeleton job header record into 
|the space anchored on the partition 
{control biock 

\ 

jinsert additional defaults in the job 
{header record: 


Copy date of job 
Copy default jcb name 
Copy job identifier 
Set JES2 priority 


¢ ¢€ @ e 


{If a job trailer record aiready has 


[been prepared, Dranch tO..e au 2 oe waee >| XRIC 
{ 

{Branch and link to prepare a job 

{trailer record........ Sia te gi a evetare ie ares >1XS10 


l 
{Set default record leagth to 80 


1 

{Wait tor User Request: 
{ { 
iUnpost the event control. block in thej 
{TCB. i 
{ i 
{Check the reader entry in the PDE for{ 
ja user request. | 
| 1 
{if an accounting request was issued | 
(DOANRCH CE Oa0e a wists 65 95 eo ee ae o's eiS ease Se. 

{ 
jif a read reyguest was issued branch 


a ee ee eee ee 


XR32 


{Check termination switch for STOF or 
{PEND posted. if so, and job is at 
{job boundary, branch tO... aw wccscns 
| 

{Set up registers 0 and 4 for 
jexamining the remaining entries. 


— 
ow a ee Se ee el 


—_—— oo ee oe oe ee ee ee oe ae ee ee ee ee ee ee Be oe ee ee le 


| Fields {Usage { 
l 
| 1 i 
| i { 
1 4RO,R1 4 
i {R2,R3 i 
j | | 
{ 4 | 
{ t i 
{ i i 
| i j 
|NJHGELS { { 
({NJHGJNAM i { 
(NJHGJiD : i 
{ NJHGPRIO ‘ i 
| (IPwWSDNR) 4 i 
j {R1 i 
i i i 
i A i 
i JRE ( 
| | ! 
j I | 
{TCRL(LPws DTC) | j 
{ ! i 
i i 4 
j | : 
ITCEB+2 (iPWHLTC) | \ 
| { | 
I | | 
| { i 
| i i 
4 i | 
i { i 
i j l 
j | l 
I 4 l 
| 1 i 
i i \ 
i ‘{ i 
i i] I 
i. A r 
| i i 
| j A 
{ iRO,R4 
| i | 
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Labels j|Chart XR: IPWS$$XR - Execution Reader {Modified Data | Reg. {Calls 
{ { {Fields {Usage j 


{XR13 {Check the remaining entries in the i { 
{PD5. If a request was issued branch | | 

jto handle the output regquest....... >{XR42 A 

| i 

{Exit to task Selection to wait fora | 

fuser request. | 

{ { 

fOn return from task selection branch | 

| EO see 0k ea we Se 8a ee e018 8b oe cael wwe bes So wie ee >| XR11 

{ 

{Wroiter-only Partition Handler 

{ 

{Move the channel command word to the 

{TCB. 

| 

{Link to the JECL statement analysis 

{routine to handle the incoming 

{statenert. 

{ 

{Store the updated CCW address in the 

{CCW. 

| 

{Set the residual count to zero. 

I 

{Set the necessary flags in the first 

{communication Lyte. 

I 

{Set the user: partition dispatchable 


| 
{Check ror a job in progress, and if | 


IPWEWFS 


TCRW(IPWSETC) | 


~ 
es) 
-~ 
‘0c 


IPWS$SXJ 


CBCS(IPWeDCB) 


CBC T(IPWS$DCB) 


{CBC 1(LPWSDCE) 


TREADY 


ti 


— ow ee oe ee ee ee ee ee eee 


| 

| 

i 

| 
{ 
{SO branch tCO..ss casa scceascreancccese PIXR11 { 
i ; ; i | 
| Branch to reinitialize the queue | j 
| COCO G52 si ca tafe iicas oe wie Se ea ea ete eel wer OP XR10 | 
‘| & | i 
jTask Termination: . \ 
j 

| 


~ 
bo 
Dw) 
No 


{if this partition was started as PDMT(iPwWwSDPL) 
{"MT"-multi tasking, then set 


| 
jindication off and branch to....... >| XQ84 i 
i 
{ 


a ome 


| 
{Reset the VSE/POWER control flags in 


{the communication regicn to zero. 
{ 

jThe reader device and all unit record| 
{partition assignments which relate to{ 
jthe devices in the PDB are | 
{unassigned. | { 
I { 
{if a read reguest is still | 
{outstanding, the necessary flags are | 
jset in the CCB. 


f 


IPWSULP 


s —— oe ee ee ee ee ee eee ee ee ee ee eg eee a oe eee ee 


—_ — - oo oe oe Oe ee ee ee ee ee oe oe ee ee oe Me oe ee ee ee ee oe oe oe ee oe oe ee ee ee 


_— oe Oe ew oe oe es oe ee 


—_— se ae ¢ 


CBC1(ILPwS$DCB) 
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Labels 
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XR30 


< 
=e) 
w 
ie) 


>< 
ye] 
Ww 
ra 


{Chart XR: IPwsSXR - Execution Reader 
i 


{The user partition is set 
j|dispatchable. 

{ 

{The queue Space iS returned to the 
|storage pool. 

{ 

{The job neader record and job trailer 
{record space is released. 

{ 

{issue message 1Q331 to the operator. 
l 

{Release the PDB. 


Detach the Execution Read Task. 


\ 

i 

{« The task is renoved from the task 

| selection list. 

i« The TCB storage is released. 

{ 

{Process Accounting Requests 

I 

jaf there is no queue space availatle | 

lyet, the request is ignored........ >{XR38 

1 | 

{The totai length of the execution i 

jaccount record (EAR) is calculated in| 

{register 1. { 

{ l 

{if the request was initiated by an | 

{SVC 91 branch tOssssaseacessscweees P|XRIY 

{ 1 

{SVC 90 Processing: 

i 

{Add user account size plus 8 bytes 

{for the block descriptor to the size 

{of the EAR. 

l 

Jif the EAR size exceeds the whaximun, { 

{ignore the request and branch to... >{XR38 

! | 

{Reserve space for the EAR. i 

{Move the uSer acccunt infwrmation to 4 

{the EAR. { 

{ i 

[BLANCH CO.sercwncccwmesesasecssessase >| XR3IB 

{ { 

(svc 91 Processing: 

I { 

{if an SVC 90 has been issued before | 

jthe SVC 91 was issued branch to.... >| XRi6 

I t 

{Calculate the size of the EAR in i 

jcegister 1. I 

{ I 

{Reserve space for the EAR. j 
| 
i 


ee ee ee ee ee ee ee oe ee ee oe ee 


= a oe oe 


{Set up register 7 as a base register 
jfor the EAR. 


{Modified Lata 
{Fields 


Usage | 
ATREADY 
i 
{ 

{i PWHELW 
l 
i 
{IPwakLVv 
i 
{ 
{1 PWSGAM 
l 
{LPWSkiW 
| 
gi PWSDET 
i 
I 
i 
{ 
| 
i 
I 
I 
{ 
d 
l 
l 

R14 i 
d 
l 
I 
{ 

( 
{ 

R4 1 
i 
l 
i 
l 
1 
t 
{iPwoRSw 
{ 

{ 
| 
i 
i 
{ 
i 
{ 
{ 
i 
{ 

R41 { 
| 
{iL PwsRSh 

7 i 
{ 
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{Modified [ata 


" 
A 


{ 


Labels 
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fChart XR: LPW$$XR - Execution Reader 


* 


\ 
l 
{ 
i 
l 
{ 
[ 
{ 
i 
l 
I 
l 
| 
{ 
| 
{ 
{ 
\ 
| 
{ 
l 
i 
| 
I 
| 
| 


Fill in the execution account record: 


| 
l 
Move the date trom the partition | 
JA table. { 
Move the start time from the { 
partition JA table. i 
Move the stop time from the | 
partition JA table. | 
Move the usex information from the| 
queue record. 

Move the job name from the queue 
record. 

Move the job number from the queue 
record. 

Set the record identifier to C'E*.| 
Move the cancel code frcem the 
queue record. 

Move the ‘from terminal 
identifier from the queue record. 
Move the ‘to terminal identifier 
from the queue record. 

Move. the class identigication from 
the queue record. 

Move the priority from the queue 
record. 


Move the length of the SIO table 
from the partition JA table. 
Move the DOS/VSE account record 
from che partition JA table. 


{Write the execution account record. 
{Release the work space for the EAR. 
{Reset the SVC 90 request in the TCB. 


{Post the user event control block. 


{Set the user partition dispatcnable. 


{Reset the request entry in the PDB. 


{Otherwise, branch tO....e.222002200 >4XQ00 


1 
l 
i 
l 
| 
1 
1 
| 
I 
i 
| 
I 
1 
| 
l 
I 
Move the spool statistics. { 
i 
I 
I 
i 
{ 
I 
I 
{ 
l 
{ 
{ 
i 
{ 
I 
I 


{lf this is a writer-only partition | 
j branch CO oon Saha. bes oles Bee eS Sa we ae 
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>| XR11 
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{Fields 


{ AEDY (AEDS) 
eee anens 
accwcieady 
Teens) 


l 
| AENM (AEDS) 


l 
| AENO(AED9) 
{ AERI (AEDS) 
dl 
| AECN(AEDS) 
l 
{ AEFJ(AEDS) 


{ 
{ AETJ (AEDS) 


l 
4 AECL (AEDS) 
| 
j AEPY (AEDS) 
{ AE#L (AEDS) 
d 
| AESL(AEDS) 


{ 
| AEJN (AEDS) 
{ 


— om 


{ TCGW+8 (iPWSDTC) 


j PDCB(IPWSDPD) 


i 
i 
l 
{ 
i 
i 
{ 
l 
l 


PDCB(IPWSDPS) 


- Property of 1BF 


IPWSPAR 
LPwSRLW 


TREADY 


i a eee ee ee a ee ee ed 


in RE tek inl = = oe sa 
a me Be ee ie oe oe eG Se Se oe ee ee ee oe 


a a 
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c . 
{Labels {Chart XR: IPWS$XR - Execution Reader {Modified Data | Reg. iCalls 
i {Fields “Usage | 
{Handle Output Request: 
I { 
{Check the job boundary Switch to j 
{determine whether any input request {| 
[has yet been received. if so, branch| 
jto create a new writer task to hnandle| 
[the output request... eeee see eaes AEXR4Y 
I I 
{Since ro input reguest has been 
{received yet, there is no job 
{identification tor the output 
{cecords. The output request is 
{therefore ignored and the user 
{command control block is posted as 
{though the output operation were 
{completed: 


x 
es) 
p= 
i Ne] 


a ee ee ee ee Oe ee oe ee 


Reset device entry in the TCB. 
Set the residual count to zere. 
Set channel and device end. 
Post the traffic bit. 

Store next CCW address in CCB 


| TLCB(IPWSDTC) 
| CBCT (IPWSDCB) 
| CBSD (LPWSDCE) 
| CBC 1 (1 Pw DCE) 
| CBCS (1PWSDCE) 
i 


@eaeee 


ae ee ee ee ee 


Set the user partition dispatchable. TREADY 


Otherwise, branch tO.....-20220000- >| XO00 


— ie we ee ee ee Oe oe ee 


>< 
=e] 
+ 
oo 


i 
{ 
i 
j 
| 
I 
I 
i 
I 
{ 
{ 
| 
! 
i 
| 
i 
i 
i 
| 
I 
| 
{Reserve storage for the TCE to be i ITPwSRSW 
jassociated with the new task. { 
( { 
ijSet up register 8 aS a pase register { 
{for the new TCB. j 
{Initialize the storage descriptor. { 
{ i 
i 
j 
i 
i 
I 
{ 
| 
i 
I 
i 
A 
| 
| 
{ 
1 
I 
! 
{ 
\ 
I 
{ 
{ 
| 
i 
{ 
\ 
I 


TNSD(1PwSDTC) 


{Move the device address in 
{hexadecimal to the storage 
[descriptor. 

i 
{Reserve storage for the queue records 
{to be generated by the task. 

l 
{Set up register 1 as a base register 
jfor the new queue record. 

| 


[Initialize the new queue record: 


TNCU(IPWSDTC) 


IPWSRSW 


a oe ee Oe oe ee ee ee ee ee ee ee ee ee 


Copy values from the reader queue JQONBE (LPWSDQR) 


record. {QONB2(IPWSDQR) 


— om Se oe ee ee we Se De Be ee ee eee eae i ee eee Oe oe me ee oe ee. ee ee Oe ee oe Oe Oe oe oe ee oe mf 


= &e ae oe Oe oe BF ee Oe oe Oe ee ee Oe oe Be oe ce = ee oo DO opp ee ose Eee as 8 Oe Oe ee Be, BE Oe ee. ow © of we 8 ee we Be we Oe So aw ow 2 BP Be oO a SS OW 
Si at Se Re em me te ee oe oe os oe oe Oe 


| 

i 

i 

{* Set class identification to C'A*. J QNCL(iPwsDQk) 

{« Set forms identifier to blanks. JQNFI (i PWSDQR) 

l[* Set flash identifier to blanks. JQNFL(IPwWSTQR) 

l*« Clear default disposition {QNEFI(IPWaDQR) 

fe Set disposition to C'D'. {QNDP (IPWSDQR) | { 

je Set number of copies to X'0Q1'. {QONNC (TPWSLOQR) i i 
j fe Set cuu address. {QNCU (LPWSLQR) { i 
| I« Set device type. {QNDT (1 PWeDQR) | r 
d Je« Set counts to zero. {QNNA (TPWSDQR) A 4 
| le Set more counts to zero. {ONNKE (LPwoDQR) { | 
| i | l A 
| {If the additional count value is {QNBN(IPwWaDQR) r 
\ \ 


~ - 


(zero, it. is set to the naxinun. 
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Labels [Chart XR: IPw$$XR - Execution keader |Modified Lata i Reg. {Calls 
{ { {Fields {Usage J 
| ee ee me a rm re me a me me me me ere me ee ee mee me me ee a me ee ne ee mee me ee wre re a wee me re me me we ee we ee ne ee ae ee mre en a ee ee we ee re ee es ee i ee ee 
{XR46 {Set up register 2 aS a base register | j {| R2 | 
| {for the disk management block. | i i i 
{ 1 \ { i | 
| {Set the gueue record identifier to } {QNOQL(IPwHSDQR) j ¥ 
{ {C'P* to indicate punch record. i i { 
| { { i j 4 
| jSet punch values. | {ONSP(IPWSDQR) | | 
{ | | 1 i 1 
| {Check the device type in the PIB for j j i | 
| [printer device. If not, branch to >j{XR50 \ { j 
1 | { { l \ 
{ {Set the queue record identifier to { | QNQ1 (LPw»DOR) i 
| {C*L* to indicate list record. | { i d 
I | | 1 { | 
] {Set list values. | JONSP(LPWSDOR) | { 
l { { i | i 
| |Move the line table from the queue { TNGW(IPWSDTC) i i 
{ fcontrol block to the TCB. | | i { 
| { { l l i 
| {Move option byte. I J QNOP (1PWSDQR) | j 
| I I | i 1 
{XR 50 {Initialize the new task registers by | { | j 
| {storing them in the save area of the | { { | 
| {new TCB: | | { j 
{ i i | i i 
j | 2: save area address {TNRD (ITPWSDTC) q{R2 { 
j {4 4: IPWSDDE address i] {TNR4(IPWSCTC) {R4 i 
{ { 6: IPWSDPD address | | TNR6 (LPwWHDTC) {R6 | 
[ee { | | : : 
j |Reserve storage for the data set | i i {iPwsRSw 
| {header record (DSHR) for the new task| { f | 
\ | | i i i 
| {if reserve request is not successful, ] r j 
| (branch tO.....624> iibien tole dea atm weeweaee >} XQ06 | j { 
i i | i i i 
j {Save DSHR address in TCB { {TN3SE(LPWSDTC) | j 
| { j | { { 
{ {Initialize the general section of the DSHR: j 4 i 
| i i H (1 PWSDNR) i I 
| {« Set up section length j {NDHGLEN i { 
q {* Set up general section ID j {| NDHGTYPE j 1 
i fe Set up modifier i i NDHGMOD | | 
| | i I | j 
{ [if not print output, branch to...... >4XR53 i 4 4 
\ | | ] { i 
| 4© Set print node name d iNDEGNODE/QNTN | { 
j ie Set print remote name j {NDHGRMT/QNTU. i F 
| f* indicate print output { {NDHGFLAG2 j 1 
I { j { { 4 
{ }Branch tO.w..s..aaeaee suede “aiGaie a te iw leva tar euler >i XR54 d | { 
{ | ! d d { 
(XR52 {* Set punch node hame J {NDEGNODE/QNIN { { 
| i Set punch remote name { {NDHGRMT/QNTU { i 
| {* Indicate punch output { ({NDHGFLAG2 | j 
1 | { | \ | 
{ Jif the target print/punch node hame | {QNTI(LPWHDQR) ] 4 
{ fhas the format 'Rnnon', with nnn { { | { 
| {numeric, then nonn is converted to { d | 1 
i {binary and stored in the queue record| { i ] 
ee a ore ae ee me ee ee ee ee ee ne ew a ee en ee i ee ee ee ee 
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Set default reguired fiag in TCB {TCF3(LIPWSDTC) 


= 
{Labels {Chart XR: IPWS$SXR - Execution Reader {Modified Data { Rey. {Calls 
j { iFields {Usage j 
| em ee a er ee we ee ee wae wee wee re re re ee ee ee we re ae et ee ree re me re nee ere ee ate ee eee te ee ee me ec we ee ee ee ee ee ee ee ee wee re ee nee we ee ee a ee ee ee ee ee ea oe ee 
{XR54 ie Blank out some fields | I NDHGEROC { i 
{ (* Set output class ] 4NDHGCLAS { i 
i |« Set variable record format q j NDHGRCFM j j 
{ {e¢ Set default record leagth to 512 | | NDhGLREC ] { 
j [*« Set copy count | {NDHGDSCT j 
j {* Blank out forms ID i { NDHGFORM 4 4 
i { | | 4 4 
| jInitialize the 3800 section of the DSHR: { i F| 
| | | | | { 
| {[* Set section length { | NDHALEN j | 
{ {e« Set 3800 section ID ij {NDHATYPE j { 
{ {* Set up nodifier | { NDHAMOD | { 
1 | \ I i { 
{ {Initiaiize the VSE/POWER section of DSHR: | | { 
{ I { \ i { 
| i* Set section length | NDHPLEN | 
{ j« Set up VSE/POWER section ID i {NDHPTYPE { i 
| fe Set up modifier | ({NDHPMOD j { 
| [* Set device type | {NDHPiDEV i { 
| [* Set priority {NDKPPRIO { i 
{* Set disposition | {NDHPEDISP j | 
| {* Set user information | | NDHPUSER t j 
j J* Set number of separators { { NDHPNSEP i j 
{ je Set options {NDHPOPTN i | 
| je Set partition ID { {NDHPPART i { 
| {* Set target SYSID j {NDRPSYID j j 
i j}* Set compaction table name | { NDHPCOMP | | 
| | | { | 
{ {initialize the SETPRT parameter list of DSnR: | j { 
i | | i | | 
| {*« Indicate initialize printer | {SPLFLAG1 i 
{ Je Set TRC=NO and DEBUG=NORM i ISPLFLAGZ i i 
| {« Set flash count to 255 | {SPLFLSHC | i 
i |* Set copy grouping to 1 | {SPLCOPYG | | 
| {* Set copy group index to 1 | {SPLCINDX | { 
| {*« Set parameter list length | {SPLLNGTH i { 
i ‘| \ j i 
| | I i { 
\ | { | i 
i 
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{Labels |Chart XR: IPWSSXR - Execution keader {Modified Data i Reg. {Calls 
i | {Fields {Usage | 
jAttach the new writer task into the IPwSATT 
{systen. 
l 
{The owner address in the PDB is 
{creset, so that control will be passedj| 
f{to the execution list task when a | 
{user request is received. { 
{ i 
{if this is a writer-only partition. >| XR11 
jOtherwise, branch to.... Sao ie ses who Sean’ >| xXQ00 
{ \ 
XR70 Jif in the current queue entry the | 
{physical unit for 3540 data spooling | 
jis specified, an extra device list | 
jentry is initialized in the PDB. All| 
{requests to the specified 3540 will | 
{be trapped and spooled as long as the| 
| 
| 
i 
| 
| 


——_— = = 


TLIC (IPWSDDE) 


{current queue entry is in effect. 


bo] 
Ww 


|Using register 3 as a base register, 


| 

I 

| 

| 

{ 

| 

| 

| 

{ 

| 

| 

{ 

( 

{ 

{ 

l 

{ 

| 

f 

| 

{ 

| jthe PUB table is scanned for a 

i {matching entry. 

{ {If no matching entry is found, brancnh| 

i PEO Sais a eee S end ote oes we ele oo te maweeeane >| XR76 
| i | 
{XR74 {Check if matching See is a 3540. d 

| [Lf So, DranCh tOsnnswasascae éaucdaverds DP RRB 
1 I | 
iXR76 {Issue message 1Q881 INVALID 3540 UNITY 

! | | 

{ {Set cancel code and branch to...,.. >|X006 
i 
| 
i 
| 
t 
| 
4 
i 
r 
( 
| 
i 
a 


i 
l 
| 
i 
i 
| 
‘ 
{ 
i 
i 
( 
d 
i 
l 
d 
i 
l 
| 
i 
i 
i 
i 
i 
i 
{ 
‘ 
i 
i 


{1 PweGaM 
j 
4 
it 


TCTT(LPws DTC) 


t 
IXR78 Jinitialize the 3540 spool entry: 
{ 


min Ee a to 2 oo a oe ee oe oe oe ee oe oe oe 


| PDPA(iPwDPL) 
| TLPU (iPWSDDE) 
{* Store the TCB address j TLTC (LPwSDDE) 


l 
| 
{* Update the first entry. address | 
1 
{ 
{*¢ Set the device type { {TLDT(TIPWSDDE) 
i 
{ 
l 
{ 
I 


{* Store the PUB address 


ITLCL(IPWSDDE) 
{PDNE(IPWSDPD) 


le Set the device class 
{* Update the number of entries 
| 


{Process new request. Eranch to.... > 


a oe a a oo me ee oe oe 
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XR82 


hc ee ee ee re eee ee ee ee ie eee ee 
~< 
=o] 
(ee) 
Bond 


>< 
is] 
Co 
oO 


p< 
> o] 
(oe) 
00 


p< 
mo 
foe) 
oO 


x 
tO 
© 
io) 


er te ne ee we me ee ee ee ne eee ae re ae em re ee ae a ae ee ee we a ee a ee ee ee ee ee ee ee 


{Emulate Invalid Cperation: 

{ 

|Set the channel status byte to X20! 
J{to indicate channel program check. 

{ 

{Set the first communication byte to 
{X'20* to indicate unrecoverable I/0 
{exrror. 

{If the user accepts unrecoverarle 
f{errors, branch to get the next 

| COMMANA.« 6 ww cer cee ccc aw accesses aes. > 
{ 

{Update the CCW address and store it 
{in the CCB. 

| 

{Reset the residual count to zero. 
{Post channel and device end. 

{Issue message 1R30i. 

| 

i 

{Set cancel code to X'#1A" to indicate 
{cancel due to I/O error. 

i 

{Cancel user partition. 

{Branch to get the next command..... > 
{ 

{Emulate Transfer in Channel: 

{ { 

{if CCW not on double word boundary. >{XR82 
{ { 
{Load the address ot the next CCW intoj 
{cegister 8 and branch back,........ >1XQ28 
{ | 
{Emulate SENSE Cperation: 
{ i 

{if an invalid sense command was | 
jissued DranChwc. sees seca cs oh 4a se eee of PY RRE2 
{ { 
{Get the address. of the data field in | 
{register 1 and the length in register | 

{2 and move the sense information, { 
[with all bits set to binary zero. d 

| I 

{If a NO-OP command, set residual \ 
Jcount to zero and branch tOw..ss.e2e04 >4XQO71 
{ d 
{Wait for User Reguest: 

{ 
{Unpost the event control block in the| 
{TCB. | 
{Check the reader entry in the PDB for| 

Ja user request. | 

{ | 

{If an accounting request was. issued, | 
{branch 4 A © ee eee es er es eee ae >| XR32 
{if a read request was issued, branch | 
LEOso4k Res pease ees be ewe Geaeew. SPIO 
| | 
{Set up register 4 for examining the | 
{remaining entries. | 


XO72 


|Modified Lata 
{Fields 


iCBSC (IPw»DCE) 
l 


1. 
{CBC 1(IPWSDCB) 


i 
{ 
| 
{ 
I 
{ 
{ CBCS (LPw$DCB) 
l 

l 

{CBCT (iPwWSDCB) 
{CBC1(IPWSDCB) 


| 
d 


~~ —_ 


a eas ie 


3 as 


CBCT (1Pw$DCB5) 


TCEBtz (IPWS$ITC) 


~~ ee ee ee i eee eee eo 


i Reg. (Caiis 
{Usage | 
i i 
i { 
i i 
id i 
| i 
i I 
d | 
{ d 
1 4 
I 
i d 
i i 
| { 
1 { 
i | 
id | 
4 i 
d {lPasG 
t ( 
{ d 
1R1 | 
i | 
| | 
] { TREAD 
i | 
| I 
i { 
4 d 
id d 
i | 
{R8 4 
i 4 
4 i 
| d 
{ | 
di 
{ i 
i | 
{RV,Rz dd 
| { 
4 | 
{ i 
| i 
i i 
| i 
i j 
| i 
i i 
| i 
i | 
1 { 
i i 
i | 
i | 
i { 
i i 
i { 
i | 
i k4 { 
i i 
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-_—e_ ee 2 ee ee ee ee oe ee ee ee 


| 
! 
' 
! 
| 
! 
I 
| 
| 
| 
! 
{ 
4 
| 
' 
1 
t 
| 
' 
! 
| 
t 
t 
| 
| 
l 
| 
' 
! 
' 
t 
{ 
' 
| 
! 
' 
! 
t 
t 
| 
{ 
' 
i 
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Labels {Chart XR: IPWS$XR - Execution Reader iModified Data | Reg. {Casas 
i | jFields jUsage | 
| ear eee ee ce mee cre ee er re me meme ee wa cre we wee tt me ee re a ee me ee ee ee ee me a ne ee eaten ee ee ee ee ae ae wee a ee ee a a ee ee ee cee wee ee we ee ee ee oe wre ee ee ce ee ae re te cee ee sre ee ee ee et ee ee 
ixQ02 {Check for end of list. if so, branch] 
j to... en we se 8 eu oe »=p=weapepPewpevwanwsenaene 9 2 z2w23see8e? eee >4xXQ0d4 
| I 
{Check the remaining entries in the | 


{PDB. If a request was issued branch | 
{to handle the output request.....2. >| XR42 
| ! 
XxO04 iCheck for a 3540 request. If so, ( 
{branch toOww.snaeancnceaaae ee wdiaseae. PLXOVS 
{ s i 
XQ05 {Check whether the user partition is | 
{to be canceled due to a program i 
jcequest or because the operator has | 
jentered a PFLUSH command. If so, | 
{branch TOia.h Wa wipe ete sie 1s te at ee Slee ete elev >4{XQ06 
bz | 
{if a PFLUSH command with the HOLD | 
{operand has been entered, the HOLD | 
{disposition is saved to preserve the | 
Jinput queue entry for later | 
| processing. { 
J Otherwise, branch tO... .. swe en sne nen >4{XQ10 
i \ 
XQ06 jSet cancel code X'23', progeeu { 
{reguest. | 
{if progcam cancel set in TCB, branch>j XQO6B 
| d 
{Set off dump options. | 
{Set 'job-canceled-by-operator®,x'z4! 
| 


| 
( 
{ 
( 
| 
1 
I 
{ 
{ 
I 
i 
I 
| 
i 
| 
{ 
i 
i 
j QRDI (IPwWSLQR) 
| 

d 

1 

i 

{ 

\ 

l 

{ 

{ 

{XQOQ06B {Cancel user partition. 
{ 

| 

| 

{ 

i 

{ 

{ 

| 

{ 

{ 

{ 

{ 

{ 

| 

| 

I 

{ 

| 

l 

l 

| 

( 

{ 

I 

\ 

{ 

L 


we oe Be Gee eee ae ee ee oe ee Oe ee oe ee ee ee 
=e) 
a 


to 
—_ 


6) 
~ 


TREADY 
XQO7 {if SLi work space is present, it is. jiPweGSL 
{released. 

| 

|Restore termination byte in TCB 

i 

{Set the VSE/PCWER cancel code in the 
{queue record. 

{ 

{indicate normai record in the TCB. 

l 

{If a buffer is available branch to. 
{ 

{Reserve buffer space. 

{Store the real and virtual bufier 
jaddresses ih the TCB. 

{Point register 7 to the data buffer. 


TCTT (PW DTC) 


b< 
io) 
(oe) 
(oo) 


QRCN(IPwoLQR) 


TCGP (iPWSDTC) 
>1XQ09 


LPWSRSW 
TCDA (i PW9DTC) 


= 9] 
~ 


I 

{Add. Z to the buffer address and storej TCPR(iPw» DTC) 
{it as the previous record in the TCB.| 
{Move a /& into the buffer. | 
| 

XQ10 {Exit to task selection to wait fora 

{user request. 

{On return from task selection branch 1 

bLOnciesebee waa te teeeeteeeas aw acans, 512000 


x 
tC 
io) 
Oo 


i a ie 
a ee ee i ee ee i eee eee oe ee ee ee ee et ee ee ee ee i ee ee ee oe 
ee oe Se ee oe ee Se te ae ee ee tee 
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{Labels {Chart XR: IPwS$S$XR - Execution Reader {Modifica Data {| keg. iCails 
i { iFields iUsage | 


{ {handle READ Request: 
| I | 
{XO12 {Check the job boundary Switca in the | 
{TCB: 1 
{ | 
Jif a job is in progress, branch to | 
{emulate the channel program......,.. >| 
1 \ 
{If a job has just completed | 
fexecution, branch to the end of jor | 
froutine..... =m a2e8 2 @e@eeeae2eeaens e282 #@ #2 2 es v eww awe > | x082 
4 l 
XQ14 jGet a hew queue record. | 
{if a record is obtained branch tow. >{XQ18 
| ; 
XQ15 {If the task is in S or E State, { 
PDEA NCN: 420 ds 0 sie we awed we Sie 3 Sie Pore ey re >4XR22 
| I 
{indicate Q state. 
{ 
{issue message 1Q341 to the operator. 


{ 
| 
| 
| { 
XQ 16 jExit to task selection to wait for a | 
{ 
| 
\ 
{ 


_— oe ee oe oe Oe oe oe ee oe 


4EWSGCS 


POWFLQ1 
1iPWSGAM 


LPWSWFOQ 
{new entry to be added to the queue. 


{Check the termination indicator. If 

ja PSTOP or PEND command nas peen 

jissued branch to the task termination| 

POULIN. Mase steeeoe eee 2a a lair Reta 3s te ats >| ARZ2 

{ { 

{Get a new queue record... 1 

{ 4 

{I£ no record is obtained, pranch to >4xXQ15 

{ | 

{Reset message address. 

{ 

{Reset Q state indicator. 

{ 

{Set up register 5 aS a base register 

ifor the queue record. 

{ 
XQ18 {Ready the task to obtain data records 

{and to react to requests from the 

{user program being executed in the 

{celated DOS/VSE partition: 


LPwGQS 


TCMW(iPhDDTC) 


POWFLQ1 


—_— Ee ee oe ee oe ee oe ee oe eee oe eo oe oe 


c 


request word. 

Save class for accounting. j{TCGW+t15(iPWSDTC) 
Set job boundary switch to X*!FF* {TCIB(LPWSDTC) 

to indicate job in progress. \ 

Ciear the general purpose byte. ITICGP (1 Ph$SETC) 
Move the virtual work space {TCPR(iPWSDTC) 
address into blocking control word | 

in preparation of the first read. 
Move 'from* RJE ID in printable 
format to TCB.. 


ee 


e 


TCFL(IPWSDTC) 


— Oo oe ee ee ee ee ee 
e @ 


| 
{if in the current queue entry the 


{physical unit for 3540 data spooling | 
{is specified branch to0....... wesees > XRIO 
{OtherwiSe, branch toO.....420% Pare ae > | XQ00 


ee em ee ee me ame eee ee re ce ae wee ere me me me me a em ee re warm ee ee ne ae cre te ae ee em ee ee ee ee ae ee me ie ee ere cree ee ee cee ree sm cme ie ce me ee ee we ee we ee ee ee ee ee ee te ee ee ee ee ee ee 


| 
{ 
I 
{ 
{ 
\ 
| 
| 
{ 
{ 
i : 
{ 
Move data seek address into disk | { TCDW(iPWSDTC) 
| 
{ 
| 
i 
{ 
\ 
{ 
| 
{ 
{ 
{ 


Pm ee ee te Oe i ee ieee ee eee ee eee ee 
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- 
[Labels {Chart XR: IPWS$XR - Execution keader {Modified Data { Reg. {Calls 
t l | Fields iUsage | 


{Emulate Channel Program: 
{ { 

XQ26 {Set up register 8 as a base register {| 
jfor the channel command word. 1 
jis dévice..a 2501? NOssscsewweawsecca 24XOZ7 
{Yes, Read ahead request?.........-. >{XQ26A 
{NO, Reset.EOF switch and branch { 
DC Oeste: iaieaiis Sia ein Ga 0a a ew tales a Co he 0 tw ee te ie >h£XQ27 
{ 1 

XQ26A {EOF switch on? No..... stace te eleisiseeceater oO kO2T 

|Yes, reset EOF switch and ignore | 
[ESGCWES Ts caw Sew oh ewe es erin ere se /deta ease ees Oo PROTA 
| i 

XQ27 {For EXCP real, branch to handle 
jAnValIG Opelati ON swe sees osu d cee D2AZRSZ 
{ | 

XQ28 {Vaiidate CCW addresses. { 
{If not valid, branch to.w....245, eee >§XRB2 
{ i 
{Classify Command: 
I | 
{If the IDAL tlag or data chain tlag | 
Jis present in the channel command i 

{word, which feature is not supported | 

lby VSE/YPOWER, branch to....2..22.2. >|XR8Z 


I 
l 
i 
i 
( 
{ 
{ 
l 
l 
l 
\ 
I 
\ 
| 
I 
i 
{ 
| 
i 
{ 
| 
I 
{ 
{ 
i 
{ 1 l 
| 
l 
I 
i 
{ 
{ 
| 
{ 
{ 
{ 
{ 
I 
{ 
I 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
{ 
| 
{ 
| 
I 
I 
{ 


a 


IPWSVDA 


—_—_— a ee oe ee ie oe 
—_ 


= 


——_— a 


{Check the low-order four pits of the | 
jcommand code to determine which 
fhandling routine to branch to for 
{handling the ccmmand: 


— — 


do ore ee ii 


Livalid, Operation sa vca03saseu seu or PXRGzZ 
Transfer in cChannel..sssc.aecerens >| XREBG 
SEnSG OPClati On. sc. swe esi ceases 2 |EXRGS 
WLIte OPECLatlON wes essa rawecaceee >|XREZ 
Control command......... Sie age Sh PE RROD 
Read Operatione swiss oan ae wens a- >{XQ46 
i} 

{ 


_— a a 


e¢ f © @ € & 


{ 
| 
I 
{ 
XQ30 | 
{ 
{ 
{Emulate READ Operation: é 
! I 
XQ46 {Validate data address and associated { 
{length provided in the user-supplied | 
{CCW. If not valid, branch to.w....0+ >}XRB2 
| { 
[Check whether the user program { 
fattempts to read past a /& statement. | 
{If not, branch to.......... wccewces >(XO48 
| { 
XQ47 {Cancel code X*'30' is set to { 
{ {indicate cancel due.to reading past jf 
{/& and a branch is made to cancel thej 
htde tievewe sewn veweeee ceesheeeeeees > eRoU 
{ { 
xO48 {If the previous command was read { 
Jonly, reset the read only switch { 
fand check current command.........- >4{XQ62 


IPWSVDA 


— oe ee ee ie eee ee ee ee ee ee ee ek ee oe oe te 


eee 
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{labels [Chart XR: IPWSE$XR - Execution Reader {Modified Data | Reg. {Calls 
{ { {Fields iUsage | 

| Cn ee 
{xo49 {Check the pointer to the SLI work { | | | 

{ jarea in the PDB to determine whether | | | | 

{ {the task is in SLI mode of operation. | | { | 

] {If not, branch to......... Sba'w ere wee. >4X052 | { { 

{ | { i { d 

j {Check whether the SLI routines | | | j 

{ {require an additional record from thej { | | 

{ jdata file. If not, branch to...... >{ XQ50 | | j 

| { i { j I 

{ {Read the next data record. | { { LPWSGDR 
{ 1 { | { { 

{ {If it is a data set header record, I | i | 

| J branch to eoevwewste w?we@e«skes#2ete@2fts s 2» weve ea ee > H XO49 | | 

1 ( | | i ( 

I [If new CCB address, process. new | | { { 

{ PLEO QUCS bs i acc cae ee cece awe ewe wes >#xXQ00 | | | 

| { i l | { 
{XO50 {Get the next record from the source | | | {I PwSGSL 
| {statement library. | { { | 

i { { | { | 

{ {If the flush job request has been j { j | 

{ jreturned, branch to........... waeee >|$X006 | | | 

' { { | ( 

{ jIf new CCB pureed process new { | { | 

{ frequest.....2..2.. ee oe. 80/8 es Pe ee >4 xO00 | | | 

{ { { i i i 

| {If an update statement was processed, | | { 

j PDRANCH. “GOs. 6 we S 5S S306 6S wie aS sw OS sew eas >| XOQ48 | | | 

{ { . { | | | 

{ jif the record is a data record, | | | | 

j {branch C0 sie ee sewdeaes eesaeaoeseeaenae 278 22 2 >| XQO5B1 | { i 

i { { { { { 

{ [If the record does not begin with | i j j 

{ ji*-$" > Branch €dcc<2 ow ees Pe ee eee >4X062 j | j 

t { i | { { 
{XR60 {Save request word. { { {R2,R3 | 

{ I { { 1, i 

H {If length of record not greater than | { l j 

| 171, bDrAaNCh tCOcsscwccevavecvecees wee >$XRE2 | | i 

| { { i i 1 

{ jSet length to 71. { {TCRL+T(TPWSDTC) | | 

{ \ { ' { { 
{XR62 {A call is made to IPW$$SXJ to scan { { { ,IPwS$SXJ 
j {JECL record. { { { i 

| | { i i I 

H {If the flush job request has been { i { { 

{ returned, branch toO...s.eesasessaen >i XQ06 | 4 | 

{ { I | | | 

| {If not a JECL record branch to..... >| XR64 | | 

{ { { | | ( 

{ {Restore reguest word { { iRk2,R3 | 

{ 1 . i i { { 
{XR64 {Restore request word. j { j{R2,R3 | 

| {Branch CO os i ae Sse ewe 1b ee Sw a ats ee >| X062 | | { 

{ { | i { i 
41X052 {Check the general purpose byte for { | i j 

| fend of data. If so branch to the end{ | | j 

} ‘of job routine..... ea Wiexece oa aia ae wee >1X082 | { | 

{ ( { | l { 

{ {If reader device has read only { | | | 

j jfunction go to...... ale Scale We wa pie ae S: >| XO5D | i i 

{ { { { l i 
{XQ53 {If read only switch iS on..... ta tow Ss >| XQ5E { 1 } 

{ { { | { i 

Wm ne a a ne a a ne a ea a a a a a a a a a a ee ee 
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i err er en ee ee i ee ne ee 


{cancel the Job esssecnsssasersecs woe P{XRB2 


Zz 
jJLabels jChart XR: IPWS$XR - Execution Reader {Modified Data | Reg. {Calls 
{ { {Fields {Usage | 
{ me me a a ee ee me wee ne ree ee me ee ee we ne ee ee ee ee ns a a ee ne a er an ee ne a a ne we ee ee ee 0 ee a a ee eee 
{XQ5A {Get the next data record from the { | | J LPWSGDR 
| {data file. | | | i 
( ( . | | i i 
{XQ5B {Check if user CCB address changed. { ( ij i 
{ {if yes, then branch to..........2++. >{XQ00 | | j 
| | { { | i 
{XQ5B1 {If new record is not an interaal { j is { 
Jcontrol record, branch to.......0-6- >4xO54 { | i 
1 { | | | 
}if new record is not a data set ] | { | 
jheader record, branch to............ >{XQ5B2 { | | 
{ I | | | 
{Get maximum record length from data | i { { 
{set header record and save it in the | i | | 
{queue record and branch to......... >{XQ5A JQRRL(IPWSDOR) 4{R1 | 
{ { { y I 
XQ5B2 {if it is a job trailer record, { { { | 
{branch to...... sie sists eae iar swtweca cee: >| XO52 | { | 
{ I | | i 
{Branch and link to handle job header | ] 7 R14 { 
Jrecord......-4-. wee aa ied oS) Seno we « >4XS00 | | | 
I I | | | 
{Branch and link to build skeleton | ol {R14 { 
{job trailer record....... exes See wewee >$XS10 ‘| { | 
| | | | | 
{Eranch to get next record...-.---.- >{XQ5A | { { 
] i | { 
XO54 jCheck the new record to see whether | | | | 
{it is a JECL statement. If not, | j | | 
| branch to.. @2,rsew@ eww sw 2 ewriweewevsanrneseest82 8 >41X056 j | : 
I | i { | 
{Link to the JECL statement analysis | | | | IPwS$SXJd 
{routine (IPWS$XJ). i | | | 
| . { | l { 
(If the flush job request has been i { { ‘ 
jreturned, branch to wownse wesw w- west ee >| XQ06 | i d 
| { i j j 
{If the statement is not JECL, branch {| | 4 { 
[POs ae ela aces uta. ene eee eters Ce ae >| X056 | { | 
{ ; i { i | 
XQ55 {Turn off read only switch | {| TCG2(IPWSDTC) { { 
| | \ { | 
{if change in CCB address, branch to jj { { | 
{process new request..... aieleaves ecaease >| XQ00 | | j 
{ ! i \ { 
|}Branch to get the next record....+. >| XQ46 | { j 
{ | i i 
XO5D {If command code is not read only... >{XQ53 | i j 
{If read only switch is on, then | | { i 
{branch to bypass read toO.........- - >{XQ5B { { | 
{If not on, then turn switch on “and | { | 
{read card..... Use 2 eae wa ee awa es >| XOSA {TCG2(IPWSDTC) { { 
| | | { l 
XQ5F {Turn read only switch off, bypass. | {TCG2(IPWSDTC) { | 
[Oa Gis a state ww aS ws dies 5 655) aie S'S wale eee ose e >| XQ5B { | | 
{i | | { { 
XO56 {Check if user CCB address changed. { { { d 
{If yes, them branch toO.........22-- >|XQ00 | | | 
pak { I | | \ 
{Load the record address in register 0| | { RO { 
{Load the record length in register 1.| { {R1 { 
( I | l { 
{If not a 3540 request, branch ......>{XQ60 | | | 
{ df | { | 
{If it is a 3540 data record, branch .~>{X058 | { | 
| | { i 
{Issue message 1Q89I and branch to 1. | I | LPwSGAM 
| | { 
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= 

{Labels |{Chart XR: IPWSEXR - Execution Reader {Modified Data { Reg. |Cails 

{ | [Fields {Usage | 

X058 {Check for 3540 end of file. If not, | 

( DEANCH COseis6 sess Salwe ee 8 wee 8 wee be >) XO62 
| i 
{Set unit exception. 
|Set special EOF. 
{ 


{CBSD (IPW$DCB) 
|CBC2(IPWSDCB) 
i 


I 
! 
( 
} Branch COs: Sse So aie ee is fa Owe ee: Be wee Soe we >4X0O72 { 
I A 
XQ60 {Check for 3540 data record. If so, | TCG2(LPWSDTC) 
-|cveset read only switch and { 
{branch to get the next. record...... >{XQ46 
\ ! 
X¥062 {Potential read only command, no.... >|X063 


{Is it a 2520B1, VESn wer sve rc cwmwwasas >1{X063 
(is it Pead OnLy, RO. ss. sau seas ven ee: 2TXO63 


{ i 
XQ62B {Set read only switch J 


| 
XQ63 JIs programmer unit? YeS...e.csesues >| X066 
{Is it end of data? No.w...... eevesee >| XO64 


i 

{ 

\ 

\ 

I 

t 

{ 

{ 

{ 

| 

| 

| 

{ 

| 

{ 

i 

1 

{ 

| 

| 

{ (is! 2t- - 25012 Noses ois eh eee eawws es. 9] ROOD 
| {|Yes, set EOF switch and branch..... >| X065 
I | { 
}xo64 [ES It--end -GE “JOD? Noes ows oc Srene dees eee >| X066 
{ I 

{ {Set end of job switch in PIB. 
| { 

| {Set FOF on reader. 

\ | 

| {Set unit exception. 

] | 

1XQ66 {Load the user record length into 
j |register 3. 
| 
I 
{ 
l 
{ 
i 
{ 
\ 
! 
| 
| 
{ 
| 
l 
| 
i 
] 
{ 
{ 
| 
{ 
( 
{ 
{ 
j 
| 
{ 
{ 
| 
{ 
iL 


PIBFLG2 
CBC 1(IPWSDCB) 


CBSD (IPW$DCB) 


oO 
Ww 


| 
{Check if user CCB address changed. | 

{If yes, them branch toO..ssscsaacwese >$X000 
{ t 
{Load register 2 with maximum vecord j 
{length from queue record. If no 


py 
ie) 


{ 

{length value available, assume length{ 

Jof 80. { 

{ { 
XQ67 {Set residual count to zero. | 

{ | 
{If CCW count is the same aS maximanm {| 
{record length, branch to......20242- >4X069 
{ { 
}If CCW count is lower than maximun j 
[record length, branch to....seuanee >| X068 
{ 
jOtherwise, calculate residual count 


CBCT (1 Pw$ DCB) 


oo ae oh eee eee ee eee ee ee ee ee oe ee ee ee ee ee ee 


i 

Jand store it in CCR. i CBCT (IPWSDCB) 
{ i 
{Calculate number of bytes to move. { 

{ I 

XQ68 {it SLI bit is not on, indicate wrong |{ 
{length error. | 

| I 

i 


{Move record to user. 


l 
{ 
l 
| 
{ 
( 
{ 
( 
i 
{ 
{ 
{ 
{ 
( 
{ 
{ 
t 
! 
{ 
{ 
1 
{ 
a 
i 
{ 
{ 
{ 
{ 
| 
i 
t 
l 
{ 
1 
{ 
i 
{ 
i 
\ 
{ 
t 
{ 
| 
1 
i 
{ 
( 
| 
i 
! 


CBSC (IT PWSDCB) 
{ 
{ 
{ \ i 
X069 {if wrong length is posted, break I/0>{xQ72 {CBSC (IPWSDCB) 
| { { 
{Get Next Command: | 


a a a a a ee i i a i tn ne aw re rs es re te em ae a we re a me i ee ee ea ae ea ee ee 
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jlabels {Chart XR: IPW$S$XR - Execution Reader {Modified Data jf Reg. {Calls 

\ { {Fields |Usage | 

| ee ce es wee eee wees ee eee ne te ee cae ee cee come ee we et a ee ee me ee ee ee ee cee cae ee ee ee ee re re ne ee ee ee ee ee re re ee ee ne me we we ee a ee ae ase ne ee ee me re ee ee er ae ee ee eee we oe eee 
XQ71 {If the command chaining bit is on,. | R8 


jload the address of the next CCW into| 
{cegister 8 and branch to handle the j 
(Next. CONMANG 6 o60.c4s SoG ee owe wee L028 
{ 

XQ72 {Set the necessary flags in the first 
|communication byte, and update the 
{CSW CCW address in the CCB. 


{ 
{ 
{ 
t l 
{Set the user partition dispatchable. | 
{ 
l 
{ 
I 


| CBC1(IPW$ DCB) 
| CBCS (IPW$DCB) 
] 


| TREADY 
{ 


es) 
~ 


| 

{ 

| 

| 

( 

{ 

{ 

| 

| 

{ 

{ 

{xQ74 {Reset the task entry in the PDB. TLCB(IPWSDDE) 
| { 

| {Check the general purpose byte for a 
{ {data break condition. If not, branch| 

| PCOn. a weer ce sans swssrcsewccssesazce oes >$XQ80 
{ | 

1XQ76 {Scan the entries in the PDB for 

| {celating writer tasks, and if found, 
| {indicate the break condition in the 
{ Jwriter TCB. 

{ | 

| X0O78 {Release the data buffer. 

\ {Clear the addresses in the TCB. 

{ | 

{XQ80 {Check the general purpose byte for 

| {the end of data. If not, branch to 
| Jwait for the next user request..... > 
{ I 

{ {Set the job boundary switch to X'00*. 
| { 

| {Branch to wait for the next user 
{ PCEQUESE ww ewe eee ec nwe sc ccsscerescrwes > 
| 

( 

| 

{ 

| 

| 

| 

( 

| 

| 

| 

{ 

{ 

| 

( 

I 

i 

| 

{ 

| 

| 

I 

| 

l 

{ 

| 

{ 

{ 

{ 

{ 

{ 

| 


TNTT (IPWS$DTC) 


IPwWSRLW 
TCDA (IPWSDTC) 


XQ00 


TCJIB(IPWSDTC) 


x000 
| 
(Fnd of User Job: 
| 
XO82 {if a skeleton job trailer record is 
{present, it is filled up with the 
{following values: 
te the job stop time 
{e¢ the totel number of lines 
{* the total number of cards 
| 
{if writer only partition, 
| branch COs 6 Sete ele Sw Ret ee eee ae Se ee > 


oem ae a mi Ci Se aie, TE a ae ae A ee a 


{NITGSTOP 
| NITGALIN 
| NITGACRD 
(IPWSDNR) 


IPWSRLW 


{ 
{Release data buffer. 
{ 


yo) 
(oo) 


XQ84 {Set up register 8 for shutting down 
jany subordinate writer tasks. (R8 = 
jaddress of first entry in PDB.) 

{ 

{If not *'MT* and not JCL,. branch to. >{XQ47 

[3 t 

{If partition starts as 'MT* (multi- | 

|tasking) branch C9 Sse See sw ew eee wa se > | x93 

| 

X¥O86 {Scan the entries in the- PDB. { 

{ ! 
{If DISP is not N, branch to.w....... >{XQ90 
| f 
{If the devive entry contains a ciass | 
|Icode of !N', the device class is | 
{reset to C*L! (for list) or CtP' (for| 
| punch) . { 


TLCL(iPWSDDF) 


a ee ee A os ee i ee ee ee see ee ee ee ee ee ee ee ee ee ee eee oe ee oe ee es oe om oO ow ao 
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r 
{Labels {Chart XR14: IPWSSXR - Execution Reader {Modified Data { Reg. {Calls 
\ I {Fields {Usage | 
{ a re a ne ee re ea a ee ee a ae a a re ee we a re ee ee ee we we ee ee ee re ee ee ee a ee ee ee ee ee a ae we eee ee 
1xO88 {Release the ownership of the device, | i {IPWSULP 
{ {and branch ao Pee ene ees eowuveweavee = eee wee >4{XO92 i j 
{ | | { : 
{X090 |If a task has been started: | 
{ 


* Reset the ownership in the TCB. 
*« Set terminator type to C'S',. 
« Post event control block. 


| TLTC (IPWS$DDF) 

| TNTT (IPW$DTC) 

j TNEB+t 2 (IPW$DTC) 
| 


Wait for signal from the list task. IPWSWFC 


XQ92 |Load the address of the next entry 
{into register 8. 
| 
{Check for the end of entries. If 
{not, branch a @ ae eee aeo#wee@?#«#8 2° anu nen awe >| X0O86 


R8 


{Check if this is a writer-only { 
{[partition. If so, branch to....... > XO96 
| \ 
[Check for a 3540 unit specification. | 
{If not, branch to..... ‘Oo le. 0s we eee ss > | XOOE 


| | 
{Release the 3540 device list entry: 


| PDER(IPW$DPD) 
| PDPA(IPWSDPD) 
| PDNE (IPWSDPD) 


| 
{« Zero the 3540 entry 
{© Update the first entry address 
{e¢ Update the number of entries 
| 
XO94 {Delete the queue record from the IPWSDOQS 
|queue. 
| 
{Release the queue record. 
{ 
{If the job header record does not 
{contain a user ID specification, 
EDEANCH : tO265 55.5 56 Sosy Siw 2S oo os aioe. o> 
| 
{Set up parameter register for notify 
{message 


IPWSFQS 


{ 
| RO: origin node name 
{ R2: user ID 

| R4: own node name 

| 

{ 

| 


Oh oy 
£NM OO 


-o] 
—_ 
= 


Issue notify message '1Q5DI' IPWSNTY 
X¥Q95 {Clear job header record pointer in 
{the partition control block and 
{celease record space. 
| 
{Clear job trailer record pointer in 
jthe partition control block and 
jrelease record space 


PDJH(LPWSDPD) IPWSRLV 


PDJT(IPWSDPD) IPWSRLV 


X096 {Check the termination indicator in 
{the TCB. 
\ 
{If it is blank branch to get the next] 
PECOM GQUCUC 6 6 wee Scie 2 Sic dee 50s 08 a ee 8 >{xXQ14 
| I 
jOtherwise, branch to the reader { 
Jtermination routine.....s0n200 wees >| XR22 


{ 
| 
{ 
I 
{ 
{ 
| 
i 
{ 
4 
l 
I 
I 
I 
{ 
i 
| 
| 
( 
{ 
| 
I 
{ 
| 
! 
l 
I 
{ 
l 
{ 
| 
I 
| 
1 
{ 


aw a Oe SE ee ee Oe oe ee me ee ee ee ee oe ee ee Oe ee ee ee eo Oe ee ee ee ee oe ee ae ee OO ee ee i ee ee a ee ee ee ee ee one 8 
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{Labels [Chart XR14: IPWS3SxKR - Execution Reader {Modified Data { Reg. {Calis 
| {Fields {Usage | 


ame nme rr re me we te ee ee we me ee ee ee ae we re en ee ee oe re ee we ee ee ee om ee te ee te a ee ee ee ree oe rem ct ce we es we re ce ee we we we re ee ee ee re ee ee ee we we ee ee we we ee ae ae ie ae ee 


|Job header record processing: 

| 
XS0O0 {Reserve space for job header record. 
{If request not successful, reset 
Iqueue set and terminate task....... > 
{ 
|Save record space address in 
{partition control block. 
( 
{Copy contents of the record addressed 
iby the TCB into the new job header 
{record space. 
{ 
{Insert the job name from the queue 
{cecord. 
! 
{If job logging is requested write 
{job log message '1047I* 
| 
{Return to caller... sewn acceso naaen > 
{ 
{Job trailer record processing: 
| \ 
{Reserve space for job trailer record. } 
jIf request successful, branch to... >{XS15 
{If writer only partition, terminate | 
PEAS Kose itecS eis: a aia eeiie leis we tayo elas a tae wd ewe >| XR22 
}Reset queue set and terminate { 
| aS K bicc eho oes coszpeyrsn env ewvw eo vee nzvmenvmenvnecean >| XR22 
| 1 
{Save record space address in 
{partition control block 
i 
{Set initial values of job trailer 
{record: 


IPWSRSV 


XR22 IPWSDQS 


PDJH (IPWSDPD) 


NJEHGINAM 


IPWSGAM 


ce ee rm ee ree ee ee ie ee ee 
2] 
—_ 
- 


Fa 


PWSRSV 


os 
n 
~ 
oO 


IPWSDQS 


es] 
un 
a 
Sa) 


PDJT(IPWSDPD) 


| 

| 

I 

( 

{ 

l 

Set total length. { {| NITLEN 

Set general section length { |NITGLEN 

Set up section ID ‘| {NITGTYPE 

Set up modifier | { NOTGMOD 

Copy class from queue record | {| NITGXCLS 

Set start time and date { {NITGSTRT 

« Copy initial priority | (NOTGIXPR 

© Set actual priority = initial { { NITGAXPR 
i 
| 


e © e@ Cc fF Af 4 


¢ 


i me eee ie ie ee ee i ee re i ee ee ee ee ee ee ee ee ee 
—_ 
me eee ee ee ee eee ee oe 


(mm ain ee i re ee ee ee a a eee ae i eee ee 


Oe ei ee i i i i ee 
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é PPE eee 
| IPWSSX¥W - VSF/POWER Fxecution Writer 
t — icc Scan a eae — SS 
{ Label { Routine 
Se ee = aa 
{ x700 { Start New Partition Job 
{ xwéod | End of -User Job 
| xw58 {| Count-driver Segmentation 
| xXW62 { Program-driven Segmentation 
{ xXW68 {| Handle Break Condition 
| xx00 { Wait for User Program Request 
{ Xx02 { Emulate Channel Program 
t coe enrnens eon adlppenne cnn ceneneeemn-ceernennnenenremnan 
< SRL Ar taieic are EE 
| Services Used 
Se Se 
| Service {| Macro 
t SS 
{| Task Management { IPWSDET 
| j IPWSWFC 
See Se 
{ Resource Management { IPWSRLR 
| j IPWSRSR 
t Sa sa cae) a Ta ra SS 
{| Storage Management | IPWSRLV 
| { IPWSRLW 
{ { IPwSRSV 
{ {| IPWSRSW 
| | IPWEUNV 
ee ee Se 
{| Disk / Tape Service {| IPWSCTT 
t aa econ tars SS 
| Message Service {| IPWSGAM 
a ec 
| Validation Services {| IPWSVDA 
———— ee ee! eed Sea 
. wane neat! 
{ Functions used 
t anes SS sees 
{ Module | Macro 
——  —}. a we tee ee 
{ IPWSSAO { IPWSAQOS 
| IPWSSFO { IPWSFOS 
{| IPWSSOT | IPWSOTP 
{ IPWESPD { IPWSPDR 
| IPWS$RO { IPWSROS 
| IPwE$txJ { IPWESKI 
Ds eee eerie i ei alleen ac isi il ei een li 
oa ge gk ogee Pe So pee eI | 
{| Called by 
t Sora, ET eT 
| Module {| Description 
t a 
J IPWSSNU {| Task Management 
u aan apn erecta seems ease ween einen conn seria tnnnouerea ene 
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f 
jLabels {Chart XW: IPWS$XW - Execution Writer {Modified Data { Reg. {Calls 
| | | Fields {Usage | 
{This routine is initiated by the 
[Execution Read Processor, which has 
jacquired gueue record and data set 
{header record space and formed the 
{queue and data set header record for 
{this task. 
| 
XWSD {The first 16 bytes constitute the 
{section descriptor: 
{'XWCS release! 


| ; 
|Register Usage: 


jaccounting purposes. 
{ 
{The first queue entry of each type 

jhas the same job number as the reader|{| 
jentry. Any subsequent entries receive| 
Junique job numbers. | 


l { 
{If first output entry, branch ...... >| XV10 


| { { i 
| | { | 
| | I | 
| { | { 
| | \ | 
| { { \ 
| ( | | 
| | | | 
| I | | 
| | l 1 
| { | | 
| | \ | 
| | i | | 
| | O: **** ~ Service work register { { | Ru | 
| { 1: **** - Service work register 1 | {R1 | 
| { 2: **** - Service work register ( | {R2 i 
| J 3: **** - Service work register { | { R3 | 
| { 4: IPWSDDE - Entry in PDB { { | R4 | 
| | 5: IPWSDQR - Queue record space | | J R5 { 
| { 6: IPWSDPD - PDB i | {R6 i 
{ {| 7: IPWS$DCB - User CCB | | {R7 | 
{ | 8: IPWSDCW - User CCW | j { R8 | 
{ { 9: XWCS - Base register | {RO | 
{ } 10: IPWS$DPA - VSE/POWER nucleus | | {R10 { 
| J}11: IPWSDTC - Task control block | { | R11 { 
| {12: **** - Reserved for nucleus use | | {R12 | 
| {13: IPWS$NSV - Task save area { | jf R13 | 
| {14:2 **** - Function linkage register |{ | {R14 | 
| {}15: **CS - Function base register/ | | | | 
| { 2nd base register | { | | 
| { | | I | 
| [Start New Partition Job: { { | I 
{ i | | I { 
{ |Setup second base register, using { | {R15 | 
{ {register 15 and save it in TCB. I {TCIS(LTPWEDTC) | | 
| | { | | | 
{| XVOO {Reserve space for the data buffer in | | { { 
| {which the output records are to be { { | | LPWSRSW 
{ jformed. | | | { 
| | { I { { 
| {Store the data buffer addresses in { {TCDA (IPWSDTC) | | 
| {the TCB. { | { | 
| { 1 { { { 
| {The buffer control words (BCW) of thef | {kR1 {| LPWSUNV 
| {queue record and of the data set | | | i 
| {header record, which have been | | | 
{ Jacquired by the execution reader { | | | 
{ jtask, are updated, so that the owner-| H { | 
| {ship references the proper execution | | { { 
{ {writer task. H | | i 
| | (Note: This is necessary so that the| | | j 
| {storage can be released properly if | | | | 
{ fabnormal termination of the task { | | | 
| {should occur.) { | | | 
| { { I I | 
{ {The jobnumber obtained from the { (QRJ# (IPWSDQR) {R1,R14 | 
| {reader gueue entry is saved for { { | | 
| I { { { 
| | I { | 
| { ‘| { { 
| | | { 
{ | | l 
{ | | { 
I I { { 
{ { | { 
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{Labels jChart XW: IPWSS$XW - Fxecution Writer {Modified Data { Reg. {Cails 
{ 1 {Fields {Usage | 
XV06 {Update job number so that all output 
{may be easily manipulated by 
{operator. 
{ 
{Reserve queue block. 
|Get next number for this queue entry. 


i 
i 
{ 
| 
( 
! 
| { 
{If number is >32767, set back to 1. | 
| 
{ 
{ 
{ 
l 
{ 
i 
! 


mo bo 
= Ww 


QRNO(IPWSDOQR) 


=o] 
ook 


| MRNO(IPWSDOR) 
XvO8 emeees queue block. 
XV10 tae disposition not ='T', branch to. > 
ie a TBB already exists, branch to. > 
{ 


=o) 
iL) 


( | 
{ { 
I | 
{ { 
i { 
t { 
{ { 
| | 
| { 
| { 
{ { 
{ | 
| { 
{ | 
| { 
{ {Initialize TBB for output tape. | 
| I { { 
{ {If the DISP has been changed to 'D'.>gxvi4 { 
| { { | 
(xvit2 {Call IPWSOTP to open tape for output. { j 
| | | { 
| {If the task is not forced to stop ..>4xXV13 | 
| { i { 
{ jIf the execution reader is at job end] | 
| {[dontt flush, branch wesc aw emcee e > |XVEG { 
{ { i { 
i] Jindicate flush and branch ......2062.->§XV66 { 
{ | { 
[XV13 iSet number of tracks to zero. 
t i { 
1xXvV14 {Reserve a queue record. | 
| { 
| | 
i \ 
i { 
i | 
{ ( 
\ { 
i { 
{ | 
I { 
I { 
{ { 
{ { 
1 | 
t ( 
| | 


TNTT(IPWSDTC) 


QORNT(IPWS$DOR) 


I 
{Set up record pointer. 


{ 
{Set up seek address. 


TCBC (IPW$DTC) 


TCDW(IPWSDTC) 


{If disposition not tape, branch to. > 


If EOV not found, branch. to...e020. > 


{Inform operator of EOV and request 
jnew tape mount. 

I 
{Invoke open tape to close old tape 
land open next. 


_— — @e ae = see ee eee oe = oe 
>< 
< 
a 
OV 


| 
| Branch CO 6! 0 is: 6 iso tee Swiw ke we 6a we aeration en >| XV14 


=—_ 
aa eee ee Ee eee ee ee ie a ee ee oe ee ee ee ee ee ee ee Oe ee ee ee ee ee ee ee ee ee ee ee ee ee Oe ee ee oe ee ee ee oe oe oe 
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{Chart XW: IPWS$$XW - Execution Writer 


{If not a 3800 printer, branch to... >{XV18 
rocdnei to get the system defaults ws a 
nades FCB name and UCS nane. 

te no MOD is specified, assume first 
{character arrangement table. | 
ee control and UCS buffer eanianee 


{ 

{If not a list task, branch to...... >{XV21 
| { 

{If special FCB not required branch .>{xXV44 
| i 
|Check if FCB already in table ......>|XV75 
| 

{if entry was found, branch to...20- >| XV21 
| { 
{Link to set up load list... 2.22.52 >| XV76 
| { 
{Link to load the phaSe......ecs200 >{XV74 
{If an error occurred branch to....-. >| XV42 
| | 
(Link to convert FCB to LTAB.~....... >| XV80 
{If an error occurred, branch to.... >{XV42 
| | 
{Link to update FCB table........... >{XV77 
{ | 
{Save SYSID and partition ID in data | 
{set header record { 

| { 

|If device is not a 3800 printer ....>|XV24 
{ | 

{If transmission count is not zero set] 
Jcopy count equal transmission count. | 

{ { 
{If copy count equals zero set it in | 
{queue record and data set header { 
{cecord to one. 1 

| 

{Write job header record ...22222222->|XU79 
| 

{Write data set header record w...+..>{XV78 
| { 
(JOLR HalLnli nes sunvncaessooue sco sceew > 1200 
| 

{Error on FCB Load: 

{ 

|Release the lock on the FCB table. 
{ ; 

{Issue message 10541. 


{ 

{Copy default LTAB from the queue 
|control block into the TCB......... >{XV90 
| { 
{Clear out FCB name in the general { 
[section of the data set header record| 

{ ! 
{Set the FCB name to zero in the j 
{SETPRT parameter list of the data set] 
J{header record i 

| | 
{Write job and data set header record>|XV21 
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{Modified Data { Reg. 
| Fields {Usage 
R2 
R14 
NDHGFCB, NDHGUCS 
(IPWSDNR) 
SPLCMCHR 
(SPLIST) 
R14 
R44 
R14, RO 
R14 
NDHPSYID, NDHPPAR 
(IPW$DNR) 
QRNC (IPWSDQC) 


ORNC (IPW$DQC) 
NDHGDSCT 
(IPWSDNR) 


> 9] 
Ww 


mw 
= 
- 


NDHGFCB 
(IPWSDNR) 


SPLFCB 
(SPLIST) 
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IPWSRLR 


IPWSGAM 
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Labels [Chart XW: IPWSS$XW - Execution Writer {Modified Data {| Reg. {Calls 
| {Fields [Usage | 


- 
| 


|Fnd of User Job: 


l« The task is removed from the task 
| selection list. 
{« The TCB storage is released. 


nm ea a a ee ee en st a ae es ee me a ei ee ee a ee a ee we i ee ee ee ee a ee ee 


| 

| 

I ! | | { 

I { ! I | 

{Xv60 [Check the record count in the queue {| | | | 

| {record to see if any output has been | | { { 

| |gererated. If so, branch to....... >| XV62 { | 

{ { 1 | | | 

{ {If tape spooling, branch to........ >{XV61 { | { 

| | { i i | 

{ {Set disposition to 'D' and free queue| fORDP(LPWSLOR) {R1 { ZPWSFOS 
1 [set. Branch tO..w ence cncscecsaee >| XVE6 | | | 

| | I | | | 

{XV61 {Backspace tape to overwrite any X'FF'| j { | 

| {record that has been written. | { { { 

{ PREANCH: 2Ocseacieaceas keane eeu aeecs ke OLR bo | {R1,k14 jIPwS$CTT 
{ { { | {R15 \ 

{ { j { | i 

[| XV62 [Set end of data and branch and link | {TCGP(IPWEDTC) { | 

| {to write job trailer record........ >{|{XW79 | | | 

{ | l | l { 

{ jIiIndicate end of segment in the queue | {ORSN(IPWSDQR) | { 

{ {record if not only segment. | { | { 

I | j { | | 

(xvV63 (Check the disposition indicator to | | | { 

] Jjsee whether the record has to be j | | | 

| {added to the reader queue. If not, | { { | 

I jbranch to..... Dats set eS Sopra aa tia eo eu deus 2 UVGs 7 | { 

{ { ( l | | 

{ {For reader entry, set the suffix | {|QRSN(TPwWE DOR) | | 

{ {number to zero. | j { | 

{ {Set the queue record identifier to { {| QROI (IPWEEOQR) | { 

{ [CtR!. | | { { 

{ {Set the disposition to C'D®. i {QRDP(LTPWSDOR) { | 

1 | { { { { 

|X¥vV64a {Add the current queue set to the | | {1 {IPwSAQS 
{ {class chain. | | | { 

I [ | | i l 

{XV66 {Return the data buffer space to the | | [R1 {IPwSRLW 
{ {storage pool. | | | | 

| { I { l { 

{ {In case of tape processing close tape| | | { IPWSOTP 
{ { | | i 

| XV68 {Return the queue space, if present, | { | {IPWSRLW 
| {to the storage pool. | j | 

| ( I | | | 

{ {Reset the space addresses in the TCB. | {| TCQA(IPhWSDTC) {RO,R1 { 

{ { | | I { 

| {Release the data set header record { | {R1 {IPWSRLV 
i |space I | | { 

( | { { | d 

| JIf task stops itself, branch to.... >{XV69 { j i 

i l | { i { 

{ {Return device list entry to the | | TLTC (IPWS$DDE) \ 

{ {execution reader | | { { 

| { | | | I 

| }Set the Execution read task to | {TCSF(LPwWEPTC) j { 

{ |dispatchable. { | { { 

! { { | | | 

| XV69 {Detach the Execution writer task: i | | {IPwSDET 
{ { | J 4 

| | i | 4 

{ { { { i 

L 
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{Chart XW: IPWS$XW - Execution Writer 


{Update Line Count Subroutine 

I 

{Increment the line/card count in the 
{queue record by one. 

{ 

{Increment the number of lines spooled 
Jin the PDB. 

{ 

[Return to caller via link register 
114. 


I & 
{Phase Load Subroutine: 


|Fill in the parameter list for the 
{FETCH routine: 


Store the phase name address. 
Store the load list pointer. 
Store the end of list indicator. 
Set the option switch to X'01' to 
indicate no text loading. 


eeeea 


{Load the address of the parameter 
{list into register 1. 
| 
{Ensure that the load may indeed take | 
{place by loading the entry point into| 
{register 0 and issuing an SVC 4. | 
{ | 
{If the phase is not present in the | 
Jcore image library, or if its size is| 
Jinvalid, return to caller via link i 
{register 14. | 
{ | 
{Store the buffer length in the TCB. | 
{ { 
{Set the option switch in the { 
{parameter list to x'Q0O' to indicate | 
{loading of text. | 
| | 
{Load the address of the parameter | 
Jlist into register 1. | 
I | 
{Load the phase by loading the entry | 
{point into register 0 and issuing an | 
{svc 4. | 
{ i 
| 
| 
{ 
{ 
| 
{ 
{ 
| 
| 
{ 
| 
| 
{ 
| 
i 
| 
| 
| 


eee ee ee ee ee ee ee ee 


{Load the load point address of the 
{phase in register 3 and the directory 
{list pointer in register 2. 

| 
{if not a 3800 printer, branch back to 
{caller. 

{ ' 
{If the phase just loaded is not an 
{FCB, take error exit. 

i 
{Get the FCB length out of the header 
fand save it in the TCB. 

| F 

{Bump with register 3 over the FCB 
{header. 

I 
{Return to caller via link register 
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Fields 


QORLC (IPWSDOR) 


PD#L(IPWSDPD) 


TCBL (IPWSDTC) 


TCBL (IPWSDTC) 


3] 
~~ 


= 8] 
= 
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R1, 


md 
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ae] 
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bo 
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Le] 
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ww 
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Z 
{Labels |Chart XW: IPWSSXW - Execution Writer {Modified Tata {| Reg. {Cails 
| { {Fields {Usage | 


{ | Lock FCB Table and Search for Entry: 


{ ( 
{XV75 {Reserve the FCB table. 


(name. If the entry is not found 
{return to caller with not found 
jaddress... @aeewws sa @ansaeaewanagaeeanseveanaevwveaeaaeavae >1{4(R14) 
{ 


{ 

l 

{ | 

{XV75A {Check the table for the current FCB j 
| 

| 


my oD 
ho Ww 
. 
=o) 
—_ 
. 


| 

| I 

XV75B {Move the LTAB from the FCB table 
{into the TCB and store the page size j 
falso in TCB. { 
| I 
{Release FCB table. 
{ { 
fReturn to caller........ wana seweses | 
{ | 
{Set-up Load Parameter List and Convert 
{Generic Names to Actual Names: i 
{ | 
{Move data address into the GENL 
Jstatement. { 
| 

I 

{ 

| 

| 

{ 

i 

i 

{ 

I 

| 

i 

| 

a 


XWLC 
XWPC 


> s) 
Ww 


IPWSRLR 


> 
<j 
~J 
On 
m 
Oo 
tt 
Q 


{ 
{Move in FCB name. 
{ 
{If the FCB name starts with "$$$! 
{replace by correct prefix: 


rm 
oO 
aa) 
= 


FCB1 for 3800 
FCB2 for PRT1 
FCB3 for 3203-1 
FCB4 for 5203. 


- @ & &@ 


RECUEN CO. USCL sb Svc eee) oie a's 10 see io 0 ~« >FR14 


{Update FCB Table with New FCB Name an 
{Converted LTAB: 

i 

{Set up addressability to the FCB 
Jtable. 

i 3 
}Look for a free entry (X'00O*) in the 
JFCB table and if found branch to... >| 


mene ee ee eee ee 


> 
<j 
~ 
~~] 


R1,R2 


XV77B 


\ 

XV77A {All the table entries are full so the 
{first one loaded is moved out and all 
jothers moved down. The table has 
{room for 9 entries. 
| 

XV77B {Store the FCB name, converted LTAB 
{and actual page size used. 

i 
{ 
{Release the FCB table. 
{ 


[Return €0: Callers cwces eek ec wes. > 


FCBTAB 


a eee ee, ee wre ee ee ee ee ee ee eo ee ee ee cee ee ee ee, 


{FCENAM 
{FCLTAB 
{| FCPSIZ 
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é 
{Labels {Chart XW: IPWS$SXW - Execution Writer {Modified Data | Reg. {Calls 

| t | Fields {Usage | 

| ae me te ca en cn ce ee eee ee ee ore wm me ee cee ee re wee ee ee cae re me ee ee ome ar ce me ere nee ee cae ee ere re ee ee me re ee cae ste we re a me ae ee ae me ee ee ee we a ee oe ee ee ee ee 
| {Write the data set header record: | | | 

{ { | I | 

|xXv7@e {If the queue record has disposition | | | | 

| j*i!', return to caller....< ww cee eee er [R14 { | | 

| { l I | { 

| {Store the data area address and | { TCRV(LPWSDTC) {R3 | 

| {record Length in the TCB. | | TCRL(IPWSDTC) | j 

{ { | | { { 

| {Move control code (X'FF*) into the { | TCCC(IPWSDTC) | { 

{ | TCB. { l { 7 

| { { i | l 

{ [Indicate data set header record. { {| TCG2(IPWSDTC) | j 

i I | | \ | 

| {Write the logical record. | | | {IPWSPDR 
\ { { \ | | 

{ |Reset data set header record | ({TCG2(IPWSDTC) | | 

{ findication. | | { | 

| { { | { { 

{ {Clear general purpose byte of the TCBI{ {| TCGP(LPhWS DTC) i | 

{ { { l { \ 

| {Reset some SETPRT parameter list | SPLFLAG1,SPLFLAG2 | 

| {flags. | | (SPLIST) | | 

{ I { | 1 { 

| {Return to caller... nee enn ee een ene PYRG | j { 

{ { | | l { 

| | Write job header records L { { { 

1 i i { | 

|X079 Jif the queue record has not disp=I, | | | | 

| jand the target node and userid of the| | { { 

| [job header are equal to those of the | | | | 

| {queue record, branch to0< icssscee sass D1 AVS | i { 

| | l | { | 

| {Otherwise a new job header is built: {| | { { 

{ { i | { i 

| [« Reserve space for new JHR. { | j {IPWERSV 
{ If request not successful, branch.>{XKV60 | | { 

{ {<« Copy old JHR and setup the new { { NJHGPUNN | { 

| i purch node and remote name from thej | NJHGPUNR { | 

{ } . queue record. | | i | 

| | y | i { 

| xuU81 {Set JHR address and length, control | jj TCRV,TCRL J } 

{ {code X*FF', and JHR indicator in the | {TCCC, TCGzZ ] | 

I {TCB. i | { { 

( { { 4 1 { 
| {Write the record. { { | {IPWSPDR 
{ | { | { { 

| {Reset JHR indicator and clear general] j TCG2,TCGP | 4 

| |purpose byte. | | | ] 

| { | | I { 

{ {If the space of the just written JHR { { | J IPWSRLV 
{ {had been newly acquired, release it. | | { { 

{ { | | { | 

i {Return to caller Siew: eae wae aneaseae eee eo TERUG | { | 

Wa mn ni a i a i i a a e . 
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{Labels 


XV79 


(Chart XW: IPWSEXW - Execution Writer 


{Write job trailer record: 

jStore the data area address and the 
{cecord length in the TCB. 
| 

{Move control code (X'FF') 
{TCB. 

I 

{Indicate job trailer record. 


into the 


|Modified Data 
{Fields 


| TCRV (IPW$DTC) 
jTCRL(IPWSDTC) 


| 
{TCCC (IPWSDTC) 
| 
| 
| TCG2 (IPWSDTC) 


{Usage | 


ee ee cae ee we ree nem te cee ee eee re ere ee we ee em me ee ee we were ee wee we ee ee ee ee re ee ee ee ie ae ee re we ee ee we er ee we en ee ae i ee ee ee ee ee ee ee ee ee ee ee ee ee 


| 
{Write the logical record. 

| 

{Reset job trailer record indication. 
| 

{Clear general purpose byte. 

| 

{Return to callers... screraswcsecese > 
| 

|Convert FCB to line Table: 

| 

{The carriage control line table in 
{the TCB is set according to the 
{specified "CB image. 

i. 

{Register on entry: 

{ 

{RO - Lengths of FCB image 

{R3 - Points to Ist byte of FCB 

| 

Clear out line table in TCB. 
{Add the FCB start address to 
{cegister 0, so that register 
{to the end of the FCB image. 
{ 

{If not a 3800 
jFor a 3211 or 
jindex byte is 


IPWSPDR 
TCG2(IPWSDTC) 
TCGP(IPWS$DTC) 


R14 


=< 
< 
ee) 
© 


XWLC(IPWSDTC) 
0 points 


printer, branch to... >{XVCO 
3203-4 printer, the 


ignored, if present. 


=e) 
ww 


>t 
< 
ee) 
Ww 


RO,R1 
R2,R3 


{Each FCB buffer position is checked 
{for a channel specification. If the 
{channel position is valid, it is 
{stored in the TCB at its proper 
flocation. 
{ 
{lf an invalid channel position is I 
|specified, branch to.......-2-02026 >| XVID 
{If end of FCB image, branch to..... >| XVI4 
I { 
|The carriage control line table in | 
Jthe TCB is set to the default line { 
{table from the master queue record. {| 
{The default page size is saved in the| 
{queue record. { 
| i 
{If not a 3800 printer, return to | 
| 
| 
| 
| 
{ 
I 


eee ee ee ee ke oe ee ee ee ee ee ee el ee a ee ee eee ee ce i ee ee ee te ae 


x 
< 
Oo 
Oo 


XWLC (IPWSDTC) 


QRFR (IPWSDOQR) 


jcaller via register 14..........-.. > 
{ 
{Otherwise, subtract 6 from the 
{default page size (the top and bottom 
{1/2 inch of the page are unprintable 
{for the 3800 printer). 
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| 

{ 

\ 

| 

| 

| 

| 

| 

| 

I 

i 

| 

| 

1 

J 

l 

l 

| 

i 

{ 

{ 

l 

I 

4 XWLC(IPWS DTC) 
I 

I 

| 

I 

I 

| 

i 

i 

y 

{ 

{ 

| 

| 

| 

1 

1 

i 

{QRER (IPWSDOQR) 
! 
I 
{ 
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rf 
{Labels [Chart XW: IPWS$XW - Execution Writer {Modified Data { Reg. {Calls 
{ ( {Fields {Usage | 
XvV94 jAll channel positions’ are now | XWLC (IPWSDTC) {RO,R1 
{converted to positions relative to { {R2,R3 
{channel one. | | 
l { 
{Return to caller via register 14 | 
{with a displacement of 4........... >1{4(R14) 
| { 
{Get System Defaults for 3800 Printer | 
| ! 
{The system default information is { 
jobtained from the PUB2 area and movedj 
jin the SETPRT parameter list which is] 
{part of the data set header record. 


| 
XVA0 {Save callers registers R14-R9 


| 

{If no system defaults are requested, 
Jreturn to Caller... sce sccwsecrses 
| 

{The logical data area (LDA) is used 
Jas a work space to carry a copy of 
{the PUB2 area. 

{ 

{The content of the PUB2 area is 
Jobtained by issuing the EXTRACT macro 
jinstruction. 

| 


1 
{ 
{ 
( 
{ 
| 
I 
| 
{ 
{ 
| 
| 
| 
| 
{ SVRE(IPWSDSV) 
j 

| 

| 

| 

i 

{ 

I 

| 

{ 

| 

| 

| 

| {The needed parameter values are 
{ 

| 

{ 

{ 

{ 

i 

{ 

{ 

| 

{ 

{ 

{ 

{ 

I 

| 

| 

{ 

| 

{ 

| 

| 

{ 

{ 

l 

i 

i 

| 


es) 

~_ 

£ 
ys] 
= 
pa 


{passed in the following registers: 


RO 
R14 
R2 
R3 


RO: length 

R41: pointer to device address 
R2: parameter list address 
R3: data area address 


{On return, test for successful 
{completion. If not, issue message 
110B5I and ceturn is made to the 

PCALVL EE vies Ss we Saeie se ess Bae hsptgtiga at eee: > 
{ 

{Reestablish the second base register, 
{which has been destroyed by the 
{EXTRACT supervisor function. 

{Now each field in the SETPRT 
{parameter list is checked if 
,specified. If not, the appropriate 
{system default is inserted into the 
{SETPRT parametet list, which is part 
jof data set header record. 

| 

{If a FCB name is specified or no 

{FCB default name is defined, branch >| XVA2 
1 { 
{Save FCB name in the data set header |{ 
{record | 


-o] 
~~ 
pa 
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{If a character arrangement table is 
(specified, branch t0.<<s4. 66684 Pear 


{ 
{Otherwise, 
jJarrangement table in the data set 
jheader record. 

{ 

{If a copy modification module is 
Jalready specified, branch to..... 
| 

{Otherwise, set default copy 
{modification name in the data set 
{header record. 


{Otherwise, copy the default flash id 
Jinto the data set header record and 


[the queue record. 
| 


JOtherwise, copy the default forms 


{mame into the data set header record 


jand the queue record. 


i 
{If BURST=Y{N is specified, branch 


[CO sere ees ieee oe SS Se es oS Sree Ses oe 


|Otherwise, take the default burst 


{specification and save it also in the 


jout of the PUB2. 


{ 
{Reload registers 


{Return to caller... 2c cna swwewces 


| 
[Validate 3800 FCB Image: 


| 
{Since the subroutine uses more 
{registers than are available, 


{contents of registers 4 - 7 are saved 


Jin the own save area addcessed by 
|register 13. 
{ 


{The first 1/2 inch of the page (top 
therefore, 
{counting the page size starts with 
{the first printable line on the page. 


(margin) is not printable; 


{The total number of printable lines 


jof the FCB image is calculated by 


{taking the length of the FCB image 
{and subtracting the number of bytes 


{that represent the first and last 
{half inch of the paper. 


{ 
| 
{ 
( 
| 
| 
{ 
| 
{ 
| 
| 
| 
{ 
\ 
{ 
| 
I 
| 
{ 
{ 
I 
| 
| 
{ 
{ 
I 
| 
| 
I 
| 
| 
i 
{ 
| {queue record. 
| 
{ 
l 
I 
{ 
{ 
\ 
| 
| 
| 
| 
| 
i 
{ 
1 
| 
i 
| 
{ 
l 
| 
! 
| 
I 
| 
l 
{ 
{ 
I 
| fis used as page size. 
u 


ee ae cs ee me ee ee ae ea ee ce wre ae ee ec we me ee a rm ae a a ee me we er ee er te ae te ee ee ne ee we a ee ee ee ee ee ee ee ee ne ee ee ee eee ee 


set the default character 


{if a flash id is already specified, 


{branch ED ie aie vaie a2eaeee. eo pe soeananeeasnoewensnarve 


{if a forms id is aiready specified, 
{branch to.........+544- esha meee fefavatove 


{Clear out the portion of the logical 
jdata area which has been used as work 
jarea, obtaining the default settings 


This value 


>| XVA4 


XVA6 


XVA8 


a i 


{Modified Data 
{Fields 


—_ a ee 


l 
l 
| 
{SPLCHAR1(SPLIST) | 
l 
l 
l 
l 
l 


{ SPLCMMOD (SPLIST) 
NDHTAB1(IPWS$DNR) 


SPLFLASH(SPLIST) | 
QRFL(IPWS$DOR) | 
NDHAFLSH (IPW$DNR) 

| 


| 
| 
| 
SPLFORMS(SPLIST) | 
ORFI (IPWSDOQR) | 


NDHGFORM (IPWSDNR) 
| 


| 
| 
| 
SPLFLAG1(SPLIST) | 
QORPS(IPWS$DWR) 


| 
| 
| 
| 
[ 
i 
{ 
| 
{ 
| 
| 
l 
| 
| 
| 
l 
I 
{ 
i 
| 
| 
| 
I 
| 
| 
i 
i 
i 
i 
| 
{ 
| 
| 
| 
1 
{ 
I 
{SVR4(IPWSDSV) 
| 

| 

| 

| 

{ 

| 

I 

| 

{ 

\ 

| 

i 

I 

{ 

| 


eee eee 


NDHAFLAG1 (IPWSDNR) 


Chart XW 
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Labels [Chart XW: IPWS$$XW - Execution Writer {Modified Data j Reg. {Calls 
j | |Fields {Usage | 
XVC2 {Locate the first printable line of | 
{the page. { 
| | 
1 { 
{Clear out work registers 1 and 2. | 
{ { 
xcv4 {Each FCB buffer position is checked | 
{for a channel specification. If the | 
{channel position is valid, it is | 
{stored in the TCB at its proper | 
jlocation. | XWLC (IPWS$DTC) 
{ ' 
jIf an invalid channel position is { 
Pspecified,. branch tosa<a ssc0.0%-% a0 >] 
i { 

H 

{ 

i 

{ 

{ 

I 

I 

{ 

{ 

| 

| 

{ 


XVD4 


[If end of FCB image, subtruct from 
Jpage size the number of lines which 
|crepresent the last half inch of the 
|page. 

{ 


{Restore registers 4-7 and branch to >{xV94 


{ { 
{ { 
1 | 
i { 
| { 
| i 
\ \ 
] { 
{ i 
{ | 
\ | 
i { 
( { 
{ \ 
| i 
{ \ 
| { 
i { 
| { 
{ I 
1 { 
{ ( | 
XVD4 (Restore registers 4-7 and branch to >{xv90 | 
{ j j 
t {Merge Current Printer Setup i 
t { { 
{ {This subroutine merges the current j 
{ {printer setup contained in the SETPRT| { 
] {parameter list of. the data set header] { 
j {record with the just obtained SETPRT-| { 
{ {request. { | 
1 i ; { 
{ {Registers on entry: | 
j | | 
1 1R1 - SETPRT parameter list address i 
| {R2 - SETPRT parameter list of data | 
{ | set header record 
{ {R3 | 
{ {R14 | 
{ | ( 
| {Fach field of the SETPRT parameter { 
{ {list is checked if specified. If so, { 
{ {the appropriate field in the data set | 
| {header record (DSHR) is updated with | 
{ {the new value. In addition, if the | 
{ [new printer setup requires operator | 
{ jintervention, the segmentation- | 
{ |reauired flag is set. | 
| { | 
{ XVEO jif INIT=Y is specified in the SETPRT { 
] {parameter list, set the appropriate | 
{ {flag in the DSHR. | 
| { 
{ | 
( | 
{ | 
| { 
{ | 
{ | 
i | 
{ | 
i l 
i | 
{ | 
Ll 


data set header record address 
Return address 


| 

XVE2 {if SEP=M is specified in the SETPRT 
{parameter list, set the appropriate 
{flag in the DSHR. 
| 
XVE4 {If SFP=0 is specified in the SETPRT 

{parameter list, set the appropriate 
iflag in the DSHR. 
| 
XVE6 f{If FCB verification is specified, 
{set the appropriate flag in the 
{DSHR. 


ae ee a ne ne re ee re ee a ne re a en ee re ee en ee eer ew en rr ener nr nee 
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{Labels |Chart XW: IPWSsXW - Execution Writer {Modified Data {| Reg. (Calls 
{ | |Fields {Usage | 
| et rm ne ee te cm cme ee ae ee ee ee ee me ne ee ae re ee me re 08 ee em re re a ae i ee ates rm ne ee te ee ee ee me re ee ie ee ee ee ee ae rm ee ne ee ee ee ee we wee ee ee ee ee ee 
{XVE8 {lf DCHK=U (unblock data check) is { | { i 
| {specified in the SETPRT parameter | { { 
j {list, set the appropriate flag in thej {SPLFLAG2(SPLIST) } } 
{ [DSHR. i i j { 
{ | i i } { 
[XVFO {If the DFBUG keyword is specified in {| | ij { 
{ {the SETPRT parameter list, set the { { 7 | 
| {appropriate flag in the DSHR. { {SPLFLAG2(SPLIST) | | 
| { { | l i 
|XVF2 {If cURST=Y{N is specified in the { |SPLFLAG1(SPLIST) } { 
| |SFTPRT parameter list, set the { |NDHAFLG1(LIPWSDNR) i 
{ {appropriate flag in the DSHR. { {TCF3(IPWSDTC) l | 
\ | | | { | 
{XVF4 {If TRC=Y{N is specified in the SETPRT{ | t i 
{ {parameter list, set the appropriate jf {SPLFLAG1(SPLIST) | | 
| {flag in the DSHR. { {| NDHAFLG1(IPWS DNR) j 
| { { i { { 
{xXvGO {.f an FCB name is specified in the | { | i 
{ |SETPRT parameter list, save FCB { {SPLFCB(SPLIST) { | 
{ [name in DSHR. { {NDHGFCB(IPWSDNR) j | 
{ | | { | i 
{XVG2 {if the same copy groupings are { i { { 
| jspecified, branch to......s2e00 . | XVG6 { ; t 
{ { { i { | 
{ {If no copy groupings are specified, { { | | 
f |branch to....... ailaecgite. a aats Sein te letra yore alate {XVG5 | { k 
| | { { | ! 
j {Set the new copy group value in the j| {SPLCOPYG(SPLIST) 4 | 
t {DSHR and set the segmentation- | | NDHACPYG (IPWSDNR) j 
| {required flag. { [| TCF3 (I PWSDTC) 4 { 
l | \ | | M 
{ {Calculate the number of transmissions| {QRTC(IPWSDOR) {RO,R2 j 
{ jneeded. { | {R3 | 
I | { { i H 
| [Branch to COntinues... sce crs esaveae {| XVG6 { | | 
{ { { | | { 
{XVG5 {If INIT=Y was specified, set the { | | i 
| {first copy group value and the { | | 1} 
{ [transmission count to one. 1 {SPLCOPYG(SPLIST) | | 
| {Set segmentation-required fiag. | | TCF3(IPWSDTC) | { 
I { I | { t 
{XVG6 |If a different CINDX value is not { { { 
| {specified, branch to....... es swcweee >| XVHO | { { 
I I { i | 
{ {If CINDX is not specified in the { | { | 
{ {SETPRT request, branch to.......... {XVG7 { | { 
| | { { | | 
j }If CINDX value is > 1, update the { JSPLCINDX(SPLIiST) |] | 
{ {DSHR. { { { | 
{ { { | i i 
{ {Branch tOcecwaccccwasesscesesseenes >|XVGS l i | 
{ { | { { { 
{| XVG7 {If INIT=Y was not specified, branch {| { { | 
| [EO ssc: o's eee os wee Sw Ae Shes oS wi ee Se ares. PP XVOD j | { 
I | { { { | 
H {Set CINDX value to one. | {SPLCINDX { | 
| { { | (IPWSDTE) 1 { 
{ { I i i { 
{XVG8 {Set the segmentation-regquired flag. | JTCF3 (I PWS DTC) | | 


Chart XW 667 


fhe mm ee ee eee ee ee ee ee eee ee cm i eee ee eee ee 


Licensed Material - Property of IBM 


eee re ee ee ee ee a ee ee ne ee ee we eee ee ee ee ee me a re wee we ee ae ere ee we ee ae ee ee we ee we we ee te ne ee ee ee ee ee a eee eee srs wer rw er eer rer eee wer ee ee 


{Labels |Chart XW: IPWS$$XW - Execution Writer {Modified Data 1 Reg. {Calls 
| | {Fields |Usage | 
| ee cts me we me we me ee re ee ee a ee ne me ee eae ee we ee ee ea rere rr were renner 
XVHO {If a forms value different from the jf {SPLFORMS (SPLIST) | 

{previous one is specified, update the| {| TCF3 (IPWSDTC) | 

{|DSHR and set the segmentation- { | NDHGFORM (IPWSDNR) 

{required flag. | i 

l { i 
XVH4 {If FLASH was specified, update flash {SPLFLASE | 

jid and flash count in the DSHR. j SPLFLSHC(SPLIST) 

{If INIT=Y was specified but no flash {SPLFLASH 


{SPLFLSH (SPLIST) 


{ 

{ 

| SPLCHARS 

{ NDETAB1,2,3,4 
{ (IPWSDNR) 


jid, reset flash id and count in 
| DSHR. 


| 

XVIO {if CHARS has been specified in the 
|SETPRT request, the CHARS values are 
Jupdated in the DSHR. 
| 

XVI2 {lf MODIFY was specified, update 
Jappropriate fields in the DSHR. 
{ 
{Return to caller via register 14... 


i 
{Handle SETPRT Request: 


i 

{ SPLCPMOD 
{SPLCMCHR(SPLIST) 
i 


ee ee ee 


{ 

xwoOOo {Check if the device is a 3800 
Jprinter. If not, branch to.....-+.. > 
{ 
{Address the SETPRT parameter list 
{using register 1. 


to 
Ww 


{printer setup is addressed by 
Jregister 3. 

i 

{Check each field of the SETPRT 
jparameter list. It specified, the 
{appropriate field in the DSHR is 
jupdated with the new value by 
{HLaNChING Owes c.s scan vetee ee owes wie OS 
{ 

XWO06 {If no segmentation has been forced, { 
(-BEaANCH COve. 2s seesese@sereaSucceese CIANZO 
{| (Note: Segmentation is dove when che] 
jnew SETPRT reguest requires a { 
{different printer setup for BURST, 


XVEO 


{ FORMS, FLASH, COPYG, and CINDX.) 
l 
{Link to the segmentation routine... > 
| 

XW12 {Update the queue record with the 
{values obtained from the SETPRT 
{request: 


Ne ee 


Flash-id 
Copy groupings 
Paper thread request 


| ORFL(IPWS$DOQR) 
| ORCG (LPWSLOR) 
J QRPS (IPWSDOQR) 
{ 


e« @ «© © 


XW15 |Check if the CINDX value is > 1. If 
{so, the copy count is set to one, 
Jassuming that the user will manage 
jthe transmission himself. 


i 
{QRNC (IPWSDOR) 


{QRCI(IPWSDQR) 


i 

| 

( 

l 

{ 

| 

I 

{ 

| 

| 

| 

\ 

I 

l 

{ 

{ 

{ 

I 

{ 

i 

I 

| 

i 

| 

i 

I 

! 

I I 

( [|The DSHR containing the current 
| 

| 

( 

i 

i 

i 

| 

1 

| 

| 

| 

| 

( 

| { 
i { 
{ { 
I j 
| { 
| { 
| i 
| { 
{ i 
( Forms-id I {QRFI(LPWSLOR) 
i l 
I { 
{ { 
| ! 
{ | 
{ 1 
{ | 
{ I 
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Labels {Chart XW: IPWS$XW - Execution Writer {Modified Data { Reg. {Calls 
| | {Fields {Usage | 


{XW16 {Check if the transmission count is { 
|zero. If not, set number of copies | 
{to the same value. { QRNC (IPWESDQR) 
| { 
XW18 {if not tape spooling branch to..... >| 
{ | 
{Reserve a queue record for tape. { IPwSROS 

{ \ 

{If a different FCB name is specified | 

{in the SETPRT parameter list it must | 

Jbe verified. | 

{ 


best 
= 
NO 
oO 


{If .no new FCB is required, branch | 
[EO sins a 6s ee 6s SiS we SS es: Sow wo SS ee ee! Oe > XW24 
i 
{Save the new FCB name. { 
| 
{Link to copy the default LTAB...... >| XV90 
{ | 
{If no new FCB or a Special FCB for { 
|SFTPRT is requested, branch to..... >{XW24 
{ | 
{Check to see if FCB is already in the} 
Ptabileres osswewe 2 Pe eer ee ee ee waves >|XVT5 
{ | 
{if FCB found in table branch to.... >|XW24 


{ 
l 
{ 
{ 
l 
| 
| 
{ 
i 
i 
{ 
{ 
i 
{ 
{ 
! 
| 
\ 
{ 
I 
{ 
i 
| 
! 
{ 
| 
{ | | 
I 
i 
I 
\ 
| 
{ 
{ 
| 
| 
| 
{ 
{ 
| 
! 
| 
{ 
{ 
{ 
{ 
l 
I 
{ 
{ 
| 
{ 
| 


< 
b> 
Nh 
db 


NDHGFCP(IPWSDNR) 


1 

{ 

{ 

I 

{ 

( 

| 

{ 

t 

H 

I 

| 

I 

i 

{ 

{ 

I 

| 

| 

{ 

{ 

( 

I 

1 

i 

{ 

{ [Lank:. to Set-up: load: List «2.0 since wee >|XV76O 
{ I ‘| 

| jLink to load phaSe.. 2... 2202222000 >| XVT4H 
! | | 

| JIf an error occurs on load, branch ( 

{ [Os 5 5s Se See eee ae is a a a ee OE KW26 
| | { 

j {Validate the FCB image..:.0..2e4222 >| XV80 
{ ( { 

i |Store the new name in FCB table.... > |XV77 
{ i 
j {If segmentation not required, branch>|xXW25 
i \ i 

{ {Write the job header record.........>|XV79 
j | { 

I {Turn off segmentation flag. { 

I | \ 

{ |Link to write the data set header | 

| [TO COL C'sieiisie eed wes Side 66 ow ae ewe aw Sewers, DO EXV TS 
{ 

{ 

| 

{ 

| 

{ 

{ 

( 

{ 

{ 

( 

L 


I | 
{Branch to get next user CCW... 005 >| XX76 


to 
-_ 
ft aod 


es] 
~~ 
_ 


~ 
= 
ho 
7) 


TCF3(IPWSDTC) 


as] 
s 
i) 
(ea) 
6) 
— 
Bom 


ae the FCB table. 
oe message: '1Q541 FCB/UCS ee 
oe out FCB name in the DSHR i peereE Cesean & 
{(SETPRT parameter list). { {SPLFCB(SPLIST) ! 

| 


IPWSRLR 


<< 
= 
No 
ON 
—_— eo Be ee i ee mee ee ee ee ee, 


IPWSGAM 


| I l 
{Write out control record(S) ........>{XW24 {TEFCBN(ITPWSDTE) | 
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{Labels |Chart XW: IPW$S$XW - Execution Writer |Modified Data Reg. {Calls 
{ {Fields {Usage | 
{Handle Q-SETPRT Request: 

| 

XW36 {Move the proper system/programmer 
ilogical unit number out of the CCB 
finto the SETPRT parameter list of 
{DSHR. 

I 

{Get the address of the data field in 
{register 1.and the length in register 
{ 

{Move the current SETPRT parameter 
flist into that area. 


{ . 
{Branch to get next operand......... > 


SPLLUSYS (SPLIST) 


XX76 


Output Segmentation: 


4This routine is invoked when program 
{segmentation is requested either by 
{LFCB macro or a SETPRT request. 


P< 
= 
7 
io) 


jif there is already some output, 
POTEDCH £04 ses 2G a ee Sete Wee Sess 
i 

{if it is not tape spooling, indicate | 
{reset of I/O area and pass request tof 
fdata management, return to caller ..>{R1 

{ | 
tBackspace file to overwrite any X'FF'j{ 
{cecord and go to reinitialize the i 
f-queue: TE6COr desu cd vce sdeeas agence ccer PE XW a 
i ! 
{Set end of data indicator and write | 
Pi0b trai ber-Tecordsseucwetew sews Su SL TY9 
i 4 
JAdd the queue set to the file. | 

{If we have tape spooling, the reserve; 

fof the queue record is delayed..... >yxw4a4 
t 1 
[Reserve a new queue record. 


Vv 


TCRL(IPWS$DTC) 


TCGP(IPWSPTC) 


asl 
= 
= 
= 


{Initialize all count fields within 
jthe queue record. 
| 
{The suffix number is set to zero.. 
| 
{The DMB is reserved, the current 
{master job number is retrieved and 
{updated by one, then the DMB is 
{released. | 
{Return to caller..... 2.2. e ee eee See. > | 
i | 
{Count-driven Segmentation: | 
i | 
{Save current request word. | 
i i 
{Set end of data and write job trailer| | 
| record... ...+.565 eh Sidceve wi eiwie ere 3 oie woe ee > {XVII | 
| 
{ 
{ 
l 
| 
l 
| 
i 


| ORNA (IPWSDQR) 
LORNR(IPWSDOR) 
| 

| ORSN(IPWSDOR) 
| 

| MRNO(IPWSDOQC) 
| QRNO (IPWS$SDOR) 


< 
= 
= 
Oo 
™ 
Nm Ww 


be 
= 
wn 
foe) 


RO,R1 


ee 


ee] 
N 


TCGP (IPWEDTC) 


i | 
{Restore request word. TCRW(IPWEDTC) RO,1 
jAdd the current queue set to the 
{class chain. 

i 


{If intermediate storage is not | 
{Magnetic tape, branch to........-2.. >| XW5I 


a a ae cee rr ca ae ee me nme ne ee cee ee me eee ee re ee me ete ee se em ee ne ee ee ee me re ee re ee ee ce ea en ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


—_— — = = a 
bes semester ee ee eee ee ee ee ee ee ee. od 


Ps 
= 
- 
tO 


670 VSF/POWFR PLM Part 2 


Licensed Material - Property of IBM 


me me mcm ae we a eee rm mr ee ee ee ee rm ew ae ee ee ee me we me re wee eee ee ee nee ree re ee re ee ee ee a ee ee ree ee en a ee ee ee ee ae ee we ae ee ae ae ee ee ee 


me ne ne ne a mee me ee mee re me me mee ee me eee ee nee ee re rm ee ae ae wre me we a cee ce ee ee ee ete re re me mee me me ce a me me ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


se mene te ee we meee ee ee cmt ee em me cm ee ee ee ce ee me mee ae nee ree were mre ce re nee te ee ree ae ie a cee me re Sater we Sem Sm cee me cee ete SOS cee meme mt em wm mee sa oe mee ee me ne cee ee ee ee ww ee ee ee re ne ee ee ee ee ee ee eee 


{indicate close of tape and link to 


| Reset segmentation. 


{close tape function. 
i 
{if stop is set, branch to......2..4. > 


{Reserve a new queue record. 


l 
[If disp=T and EOV found, branch to. > 


XV 60 


XWw5T 
| Update the request word in the TCB. 
l 

{Reset the record counts in the queve 
{record to zero. 

{ 

{Issue message 1Q531.. 

{ 

{Write out the job header record.... >{xXU79 
Jand tre data set header record..... >| XV78 
{ I 
PBranch t0esssss.ecewswaedaasevsecaea > XX38 


| l 
{Program-driven Segmentation: 


nee ee ee 


Vv 


[|Link to segmentation routine....... Xw4d 

I 

{Set the forms identifier tu blanks. 

( 

{Validate data area address. If the 

jaddress is invalid branch to....... 

{ 

{Save the new FCB name in the data set 

|header record. 

1 

{if a forms ID is present the new 

{forms ID is moved to the queue 

{record and the data set header record| 

[If not, branch €0s..6 6c wo eels Sees >{XW67 
! 

jis it tape spooling? { 

{If not, branch toO.....ee eee ee eee ees POEXWO7B 

13 


{Reserve Queue record. 


Vv 
x 
= 
ee) 
ioe) 


I 
| I 
{Force write of job header record. j 
| { 
{Branch to check the FCB table ..... Df 


{Modified Pata 
{Fields 


{QRBS (IT PkEDOR) 


{ 
(TCT F(LPWSDTC) 


TCDW (IPWs DTC) 


| 
{ 
| 
{ 
| 
{ 
{ 
i 
| 
\ 
{QRNA(IPWS DOR) 
{QRNR (IPWSDQR) 
| 
l 
I 
| 
{ 
{ 
| 
| 
i 
| 
{ 
i 
{ORFI(IPWSDOQR) 


NDHGFCB(IPWSDNR) 


| 

{ 

| 

l 

\ 

i 

i 

i 

I 

i 

| NDHGFORM (IPWSDNR 
| 

{ 

| 

| 

{ 

{ 
{TCF3(IPWSDTC) 
\ 

| 


~~ eee we ee te ee eee ee ee ee ee em ee ee ee ee ee eo ee ee ee ee ee ee 


Reg. {Calls 
Usage j 
! 
| 
R2 {IPwSO 
{ 
i 
A 
{ 
{LPwoR 
i 
{ 
{ 
i 
{ 
i 
{ 
fj IPWEG 
{ 
R14 
A 
{ 
I 
| 
| 
| 
R1 | 
i 
i 
i 
J[iPWEV 
RO i 
{ 
R3 { 
i 
{ 
] 
{ 
i 
{ 
j 
i 
\ 
\ 
R11 { LPWSR 
{ 
{ 
i 
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- 
(Labels 


XW68 


~ 
= 
~~! 
i=) 


< 
= 
~ 
Nh 


be 
= 
~~] 
= 


be 
= 
~~ 
(on) 


XX00 
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{Chart XW: IPW$$XW - Execution Writer 
j 


{Handle Break Condition: 
| 

jForce end of block and branch and J 
flink to the NOP creation subroutine >|XW76 
{ | 
{Release the data buffer space. | 

{ ( 

[If no break condition, branch to... >| XW74 
t I 
{Reset the data break condition in the| 

{ TCB. | 

| I 
{Check for a user request. If so, { 
{branch CO 6b ho Sd: eae ein tea ee tated <a Oy Se eee >| XW74 
I i 
{Unpost the event control block and | 
jexit to task selection. { 

I | 
[Check for a data break condition. Ifj 
}so, ignore it and branch to........ >{XW70 
l { 
{Recover from Break Condition | 

{ { 
{Reserve new buffer space. { 
{Store the new buffer addresses.in thef 
{TCB. { 

I I 
{Branch to process the next user 

[COQUCSH aww eww a naan sence sserasazeve >| Xx00 
| { 
|NOP Creation Subroutine: 

{ 
{This subroutine creates a NOP record 
jto pass the end of data or end of 
{block condition for the queue record. 


I 
| 
| 
{ 
i 
{ 
Set data address to blanks | 
Set length to one | 
Set NOP command code { 
| 
| 
{ 
| 
| 
H 
{ 
J 
\ 


o @ € 


Pass the record to the data file. 
Return to caller via link register 2. 


Wait for User Program Reguest: 


—_—_ oe oe fe eee Oe alin ae oe oe se 


{Check the termination indicator in 

{the. TCB for a data break condition. 

{If so branch to handle the break { 
[CONGALED ON 6 soe: 0e.d:6 Sew See aS ae Sie late ee 6 >! xXw68 
i | 
{Check the termination indicator for af 
{stop condition. If so, branch to.. >|XwW60 
| { 
1Unpost the event control block in the] 
{TCB. i 

{ 

{Check the entries in the PDB to see 
iif the user program has issued a 
[write request. If so branch to the 
Jemulation routine... .ceeaseessee ae eis 
{ 

{Exit to task selection. 

{ 

{Branch to check for a user j 
PCEQUEST a wwe aw wcnaaarwecnsaserccwecse >| xXx00 


Vv 


>< 
asl 
oO 
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{Modified Data 
iFields 


TCGP(IPWSDTC) 


TCTT (IPW$ DTC) 


TCEB+t2 (IPWSDTC) 


TCDA (IPWSDTC) 


cin i cae ee cme a nm a ee ee ee ee ee ee ee ee ee ee ee 


| TCCC (IPWSDTC) 
{TCRL(IPWS$DTC) 
| TCCC (IPWSDTC) 


TCEB+t2(IPWS$DTC) 


—_—eE ae ow ie Oe = oe ae oe eee eee i ee oe eee oT oe ee ee cee fee ee ee ee ee ee ee ee eee eee eee ee ee oe ee eee oe 


=<] 
oO 


Es] 
NO 


a ee me ee i eee ee ee ee i eee es 


tee ane See se me cm me tn ecm re me we nes me re mere ce rm ee eee cee wee ee em eee we we eee wee me wee mee ee wee ee a wre eee me we wee ae me we am we ee ee ee ee a ne re ee ee ee ne ee re ne ee ee ee ee ee ee ee 


IPWSRLW 


IPwSWFC 


IPWSRSW 


IPWSPDR 


IPWSWFC 
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JLabels 


XxX02 


~< 
~< 
o 
= 


XX03 


b< 
~< 
—_ 
NO 


X¥X13 


eee ee ee es ee, ce i oes ie esate ee ee ee ee ee eee es ee ee ee ee a ee ee ee ee 


{Chart XW: IPWS$XW - Execution Writer 


{Emulate Channel Program: { 
| { 
{Set up register 8 as a base register | 
{for the channel command word. | 
| | 
{Check for EXCP real, which VSE/POWER | 
{does not support when issued froma {| 
[virtual partition. | 
{ i 
JIf so, branch tOw.sscnwewcwessascese >| 

| 


| 
{Classify Command: 


I 

{The CCW address in the CCB is checked | 
jto determine whether it is in the | 
{user partition or in the LTA (logical | 
{transient area). If the CCW is not a| 
{valid address, branch to.....,....;, ~« >| XW88 
( 

Jif the IDAL flag or data chain flag | 
Jis present in the channel command | 
{word, which feature is not supported | 
[by VSE/POWER, branch to..........-. >{ 
| | 
iCheck the low-order four bits of the | 
{command code to determine which | 
{handling routine to branch to for | 
{handling the command: { 


Invalid operation......... cv eiex 2 XWSS 

Tranfer In Channelssdccccceusene, >| XW90 

Sense operation.«a.....--6.5 eemaceu: PPX 

Rad. “OPEGE dt LON sss ss eed sa pa weccs DE XXIG 

Write operation... ...2222005 wseee >| XX18 

Control COMMANG...20e wane let Senet >| XX42 
| 


@e @ @ @ ¢ & 


| 
{ 
le 
| 
{ 
{ 
| 
| 
{Emulate Sense Operation: 

| i 

{If ar invalid sense command was | 
{issued branch to0.....s222406 wasweae >| XW88 
i | 
}|Validate data area address.« If the | 
J[address is invalid, branch to...... >|(XW88 
| | 
{Get the address of the data field in | 
|register 1 and the length in register| 

{2 and move the sense information with| 
fall bits set to binary zero. { 

| ( 

{If the command code is a sense I/0 | 

J (X'*E4') - only valid for a 3800 - thej 
[type and model of the 3800 printer I 
{are moved into the data area. | 

I i 
{Branch to ie the next COMMEND Cian >| XX76 


|Modified Data 
|Fields 


3 ame Ge be em ee ee Gee Cae mee BR ee i ae Oe Be oe ce Be ee ee ee Oe ee Re eee 6 ome Mi! ee ee ee ee ee ee ee ee Be = ie oe om 


Reg. ‘Calls 
Usage | 
| 
{ 
i 
R8 t 
4 
i 
I 
\ 
{ 
{ 
‘ 
i 
{ 
J IPWSV 
\ 
l 
‘ 
i 
! 
{ 
{ 
i 
{ 
i 
{ 
I 
i 
l 
L 
| 
{ 
{ 
i 
i 
i 
i 
i 
i 
| 
| 
I 
{IPWSV 
i 
| 
l 
{ 
R1,R2 | 
{ 
I 
I 
| 
4 
| 
i 


Chart XW 
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- 
{Labels |Chart XW: £PWSSKW - Execution Writcer {Modified Data | Reg. {Calls 
| | | Fields {Usage | 


{ {Emulate Read Operation: { 

{ { ( 
{XX16 {Since any read operation addressed toj| 

| jan output device is assumed to bea | 

| {dummy, it is ignored. | 

| { { 

| {If this is not a punch task, branch j; 

| jto get the next command........2... >| XX76 
{ | | 

| {If disposition ‘I', branch to get j 

( Pnext COMMANA. ce. wee cance sw snewecees > XX76 
| { { 

{ {Validate data area address. If the {| 

| jaddress is invalid, branch to...... >{XW88 
I I | 
{Move command code and dummy I/O area | 

i {address into record control word of | 

I {TCB { 

{ | { 

| {Set record length to one and indicate| 

| {card motion. | 

| i 

{ {Continue Main Line. ....2. 252s e nee oes >4XX32 
{ i I 

| {Emulate Write Operation: | 

{ { | 
{XxX18 j}Validate data area address. If the | 

{ jaddress is invalid, branch to...... >{XW88 
{ { d 

{ {If the command code represents a { 

| {SFTPRT request, branch to....... wee >$XWOO 
( | { 

i {if a punch command is being j 

| |processed, branch to the punch write | 

| Jroutine........ eiSies Gowers we waloes see > PX¥Z4 
I l | 

{ [Branch and link to the line count { 

| jsubroutine for updating the line j 

{ [COUN POli 5635 6k iw ne os Sa See eee See PERKS 
{ 
{ 
{ 
{ 
| 
| 
{ 
| 
| 
| 
{ 
i 
{ 
i 
| 
{ 
{ 
{ 
4 
| 
{ 


Dy 
ho 


IPWSVDA 


eal 


ye] 
ont 


TCRW(IPWSDTC) 


TCGP (IPW$DTC) 


58 ee te ee i ce ee eee ae ee eee 


IPWSVDA 


s] 
~ 
teed 


{ I 
[lf the command is a write and skip to] 
[channel one command, branch to.w.... >| XX22 
{ | 
{If not a 3800 printer, branch to... >{XX21 
| { 
{If the command code is a load graphic] 
jmodification module or copy modifica-j| 
Jtion module, branch to........ee22- >| XW88 
i { 
XX21 {Form the record control word in the 
{ TCB: 


a ee ee eee ee ee ele ee oe me A ee ee its Mi Ge eee mie etme Se ee eee ci i ee ee meee ee ee eee ee 


I 
| 
{ 
« Move the user CCW. | { TCRW(LIPWSDTC) 
« Set general purpose byte to X'0O1' | {TCGP(IPWSDTC) 
to indicate data record if { 
necessary. { 
« Clear the rest of the general { 
purpose byte. { 
| 


{ 
| TCGP+1 (1PWS$DTC) 


ne eee eee ee ee ee ee ee ie ee 
—_—ae Ee eo ee ee ee ee eee ee ee ee eee ee ee ee eee eee ee ee ee eee ee 
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Labels [Chart XW: IPWSSXW - Fxecution Writer {Modified Data | Reg. {Calis 
{ i {Fields {Usage | 


a ee me a re ee ne ee te ee wre ne ee ee we em re ee ee ne ee we ee a ee re re ae re me ee re ee ee ne ae ee ee ee a ee ee a ae ee ee ee ae we ee ee ee 


X¥X22 {Collect the record text from the user 
farea: 


Move the user CCW, 
Set command code to X'01' to {TCCC (LPWSDTC) 
indicate write with no space. { 


{ 
{ 
{ 
i {TCRW(ITPWSDTC) 
i 
4 
Set general purpose byte to X'0O1 | | TCGP(IPWSDTC) 
i 
{ 
I 
{ 
{ 
( 


a a 


to indicate data record. H 
Clear the rest of the generai { 
purpose byte. |TCGP+1 (LPWSDTC) 


mn 


ee en 
o 


ee) 
ie) 


{Collect the user record. 
{Branch ard link to the line count 
|subroutine for updating the line | 
PCOUNTEr 22/6654 2iise see wees abacaeuen PUSWI2 
| { 
{If the CCB uddress has changed, { 
[DENCH / 4.0 e410) oieeie 6 ewe io ase wa aaeee >| XXO0 
I { 
iSet command code to X'8B' to indicate] 
{skip to channel one. : | 
{Set general purpose byte to indicate | 
ja length of one. { 
{BOANCH COs saws wise ewe die aeale wee wae PY XX32 
{ 
{Fmulate Punch Write Operation 
I 
¥X24 {Form the record cortrol word in the 
{ TCB: 


IPWSPDR 


TCCC(IPWSDTC) 


TCGP(IPWSETC) 


« Move the user CCW. 

« If the command code does not 
indicate potential print with no 
feed, set general purpose byte to 
X'O1" to indicate data record. 

« Clear the rest of the general 
purpose byte. 


TCGP (I PWEDTC) 


TCGP+1 (IPWEDTC) 


{if the output has disposition I, and 

Jit is a 3525, 2560, or 5425 print 

{record branch to......2.2. el esieraie lal ahs 

{ 

{if the output disposition is I, and 

{it is a punch record, the record is 

{to be added to the input queue and 

{the command code is therefore set to 

[zero. Branch. .to...... eb ew 'se a8 «eoense PD 

{ 

{Test Output Segmentation 

| 

X¥X32 |}Check if segmentation has been 

[requested. If not, branch to...... > 

{ 

[Check for punch record. If not, 

| branch TOs oe ats. ote 6 Ae ser ante, wee a aia ake, weionacie >| X¥X34 

i { 

{For a punch record, check for a | 

{normal data record. If not, ignore {| 

[segmentation and branch to......... >1XxX38 
{ 

jload current record count and branch | 

[ CO sa%e-ec0'3 ee ee ear Pe ee a eae woe >$XX3BO 


el 
4, 


XX38 


{ 

i 

i 

{ 

d 

| 

| 

i 

{ 

\ 

{ 

l 

i 

| 

| 

i 

i 

i 

i 

i 

{ 

{ 

| 

| 

\ 

\ 

| 

i 

l 

{ 
TCRW(IPWSDTC) | 
I 

| 

1 

\ 

i 

j 

| 

l 

{ 

{ 

i 

| 

l 

l 

{ 

| 

i 

\ 

{ 

i 

XX38 l 
( 
f 
{ 
{ 
| 
I 
{ 
{ 
t 


me a ge ee ee ee te et ee ee eee ee ee ee ee ee ee ae ee ce eee ee ee ee ee eee ee 
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{Check for skip-to-channel-one | 
{command. If not, ignore segmentationj 
fand branch COs... ww wwe scr rcccwscee >| XX38 
i | 
{Load current nage cnunt. 

i 
{If segmentation limit has been 
jreached, branch to segmentation 


| 

| 

I 

I 
LrOUETR Ga lw Sea wa we ee ia be eee eee ~ >| xXW58 
| I 
{Store current record length if it is | 
{greater than the value already saved. | 
| | 
{Pass record to data file. { 
| i 
{If the CCB address has changed ..... >{Xx00 
| | 
{If X'63" command then indicate end of| 
{block and write NO-OP..... Sa ce aearasd, >| Xx64 
I { 
{if the CCB address has changed, | 
Poranch CO... sss secs svccssrcczresese « >|XX00 
{ 1 
{if the disposition indicates tape { 
|processing, and the reflective spot | 
fon the tape has been nit, force { 
{segmentation for next request. { 
{ | 
|If the previous command was a controlj| 
Jcommand, do not update the data { 
{transfer command and branch to..... >| XX68 
{ I 
{Branch to count routine........ eaoee > XXO4 
i | 
{Fmulate Control Command: I 
l | 
{If the command is not a NOP, then | 
Jbranch to.........-. ier wha Ske ce beware ae DYKES 
| { 
{Validate data address. { 
JIf invalid, ignore command......... >{XX76 
} | 
{Is ist 4 characters of data area | 
{'* Sh? | 
| { 
{if not, branch to........02.2-505 wee >YXX76 
{ { 
{lf so, set up request word. | 
| | 
|Scan JFCL record. 
{If JECL statement, branch to...... « >| XX4B 
i | 
{If the user accepts unrecoverable | 
{I/O error, post it for him......... >| XW88 
| 
{If this writer lost control, set stop{ 
jcode 'E'. Continue mainline........ >| XX76 
i { 
{If the command is a printer command, | 
{branch to the printer control i 
jroutine.....-s.ea64. ehacd lave areata eseaes >|XX54 
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{Modified Data 
{Fields 


ORRL(IPW$DOR) 


QRBS (IPwS$DOQR) 


eo, ee ce liek ee es ee ee ee ee ee 


TCRW(IPWSDTC) 


TCTT (IPWSDTC) 


en ee ee ee ee ee ee 


=e) 
= 


ye) 
lo) 


es) 
No 


es] 
No 


=o) 
No 
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IPWSPDR 


IPw$VDA 


IPWSSXJ 
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Labels {Chart XW: ILPWSEXW - Execution Writer {Modified Data j Reg. ,Calls 
{ { {Fields {Usage j; 
Xx44 {If the output disposition is I, the | 
{record has to be added to the input | 
l 
| 


“ 
i 


[queue. However, control operations 
{cannot be emulated for input. 
|Therefore, ignore the command and { 
{branch tc get the next user CCW.... >| XX76 
I { 
{If the device is not a 2560P, branch>|XXx46 
| | 
{If the command is a load print buffer | 
jcommand, treat it as a write command>|Xx18 
\ | 
XX46 {Form the record control word in the | 
| {| TCB: i 
{« Move the user CCW. | 
If the command is a card motion | 
\ 
1 
1 
{ 


— ae ee ee oe eee ee ete eee ee ee ee ee eee ee ie oe 


TCRW(IPWSDTC) 


command and the device is a 3525P, 
3525RP, or a 2540P, set the 
general purpose byte to X'0T' to 
indicate data record. TCGP(IPWSDTC) 


TCGP (IPWEDTC) 


e 


Otherwise, set the general purpose| 
byte to X'OQO*. { 
| 


Handle punch control command .......>{XX30 R1 


Emulate Printer Control Operations 


— om eee ee oe ae ee eee oe 
= emo me ee ee oe ee ee oe ee ee ee 8 eee Be ee eee i = oe 


{ 

| 

| 

{ 

{ 

i 

| 

{ 

i 

| 

i 

{ 

( 

I 

| 

1 

| 

| 

I 

{ 

{ 

{ 

H 

i 

i 

{ { 
{ | 
{xx54 {ff the command code represents an | 
| {LFCB operation code branch to...... >| 
i { | 
] (Update: Lane -conter sass be4 dee wees aeee>{ XX88 
{ I [ 

{ {If the command code is not a skip or | 

| Space (branch CoO. 4.4.20 icccadewesan PANTS 
{ | | 
{Xx56 {Form the record control word inthe | 

{ {| TCB: { 
{ i*« Move the command code. { TCRW(IPWSDTC) 
{ { { 

| {If the command is a 'Skip to Channel {| 

| fone' or not an immediate command,...>j|XX57 
| | | 

| {If command is not 'Advance to end vf | 

{ [sheet', branch .....22.022226 ecw eene> | XX56A 
{ { I 

| {If printer is 3203-1, branch .......>{4XX55 
( {Else emulate invalid operation .....>{XW88 
| | | 
(XX56A {If previous command was a 'Print No | 

| [Space" branch to: ssantsctadaecae'ata >| XX58 
{ (ELS@ “DraANCh side sisi: se ow ew ne o 6 oe 0is ei I XXST 
I | { 
{XX55 {Move command code to TCB. i 

| | { 
{XX57 {Store address of dummy I/O area into | 

{ {the TCB, set record length to 1 ....>{|XX32 
{ | i 

( {Combine the previous Print No Space {| 

| [command with the current immediate { 

| (command... Branch £0 suaietiwcenssau coeur {X16 
L 


meee te ce cme sem mn me ce me cate mn ee te ee mn rm ee em ce me a me ce ne ee me ee ce ce re mee ee wet ee re ee ee eee ee ee wre re ee ee ee woe cee eee ee ee ee ee ee ee ee ee ee ee 


TCRW(IPWS$DTC) 


TCRW(IPWSDTC) 
TCGP(IPWS$DTC) 
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ome 8 
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{Labels 
i 
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{Chart XW: IPWS$XW - Execution Writer 
j 


JIncrement and Test Counts: 

| : 

{If user data has been added to the 
jfile, the Line/card counter in the 
{queue record is incremented by one. 
| 

jIncrement the list (PD#L) 

Jor punch (PD#C) value in the PDB by 
Jone. 


| 

{Check whether the output limit has 
jbeen exceeded. If so, the limit 
{value is increased by the standard 
{value and message 10521 OUTPUT LIMIT 
| EXCEFDED FOR is issued to the 
{operator. 

| 

Jif the CCB address has changed, 

J branch TO ete tavavs witw: jo) me fae eke te eee Bele wee eles 
{ ce) 

{Check the record type for a punch 
{record. If so, bypass the page 
Jcounting routine and branch to..... 
\ 

{Check the control character in the 
{record just written. If it does not 
{represent a skip to channel one, 
{branch to get the next user CCW.... 
{ 
f{incremént the number of pages spoole 
{in the PDB. 

{ 

{increment the number of pages in the 
|queue record. 

{ 

{Get Next Command: 


JLoad the address of the next channel 
{command into register 8. 

{ cay 

}Check te command for command 
jchairing. If not, branch to....... 
{ 

{If channel 9 was posted, branch to 

i break the: Chat lawsssuwee eu sea eae es» 
| 

{If channel 12 was not posted, branch 
{to process the new command......... 
1 

Jindicate no cancel by setting 
Ixegister 0 to Zero. 


{ a, 
{Indicate completion of the channel 
{program to the user: 


| 

i Store the updated CCW address. 
fe Set the residual count tn Zero. 
| 

| 


© ® 4 


Set the necessary flags in the 
communication byte. 
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hk 
at 


ee ee Oe ae ee ee ee ge oni ae em ee ee ee ie 


>1Xx00 
i 
I 
1 
>| XX76 
i 
{ 
{ 
{ 
>{XX76 


l 
al 


{ 

>| XX78 
i 
{ 

>| XxX04 
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{Modified Data { Reg. 
[Fields jUsage 
QORLC(IPWS DOR) R1 


{CBCT(IPWSDCB) 
{CBC1(1IPWSDCB) 


| 
r 
i 
{ 
{ 
{ 
PD#L (IPWSDPD) {R1 
{PD#C(IPWSDPD) {R1 
| i 
( { 
JQRBM(IPWSDOR) {R1 
i j 
| | 
| { 
| i 
{ j 
{ i 
i | 
| { 
i { 
i \ 
i { 
i { 
( 1 
{ 4 
| I 
{ Ie 
i { 
{ J 
{ PD#P (IPWSDPD) {-R2 
! | 
| { 
{QORNP (IPWSDOR) {R1 
1 i 
i ‘ 
i 1 
{ { 
| { 
i ‘R8 
| { 
i | 
i t. 
{ | 
| 4 
| i 
| | 
i i 
Jj I 
i | 
{ {RO 
| | 
| \ 
{ { 
{ { 
| i 
| CBCS (IPwWS$DCB) {R8 
{ 
{ 
{ 


’ 


es] 
No 


{Calls 


IPWSGAM 
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Labels |Chart XW: IPWSSXW - Execution Writer {Modified Data {Reg. ‘Calls 
I | . {Fields ;Usage | 


{Xx84 {Set the user partition dispatchable. | 
{If a cancel condition has occurred { 
| (vegister 0 = nonzero), indicate | 
{cancel due to I/O error and cancel { 
{the partition. | 
i { 
XX86 {if the CCB. address has changed,...-.>{Xx00 
( | 
{Reset the task entry in the TCB. { 
{Wait for next user request..........>{XX00 
i | 
{Carriage Control Emulation: 
{ { 
XX88 {Get the command code, which | 
{represents either a skip or a space | 
‘code in register 1. | 
{If the command code represents a { 
{Print No Space, return to caller. via | 
| 
{ 
I 
{ 
| 
| 


TLCB(IPWEDTC) R7,R8 


oo ee eee ee eee 


[cegister 14 with a diplacement of 4. 
{if the command code is not a Skip or 
{Space code, return to caller via 
|register 14. 
{ 
X¥x90 {If the command code represents a skip 
|code, branch t0.s... «eas. eieais-wcerave) oP XXO4 
| | 
{Calculate the new value of the line | 
[count in register 2. | 
{if not carriage chaunel 9 processing>{XXx91 
JI£f necessary post channel 9 overflow. | 
{Set unit check and branch to check if] 
jthe page iS: f11led 2 aside ew ces wr [KKIZ 
1 I 
XxX91 {Set master record addressibility. { 
{Lf channel 12 is not in the LTAB | 
(specified, branch to0sc<scascasevuss > XE92 
{If the current line count is lower | 
{than LTAB channel 12, then branch. to>jXx92 
{Lf option MULT12 in the master record] 
fis on, Dranch tOsssewnner acca senwee >| XXITA 
{If channel 12 already passed, branch | 
LEOSAe dus stint Ay esate Sigtatc Sh g arctan ies nance. So eK OD 
{ | 
XX91A {Post chainel 12 overflow. { 
! 1 
XKXx92 {1£ the page is not filled, branch ..>] 
| | 
{Mecrement count by page size. | 
{ I 
XX93 {A dummy record is written to the data| 
{file to indicate page filled: \ 
{* Set dummy CCW code and length 1. { jTCCC,TCGP 
« Set address of dummy data area. { {TCRV (4 PWSDTC) 
« Put data record | | 
{ 
1 
t 
\ 
{ 
| 
I 
I 


{R14 
{RI 


{R14 


{R1,R2 


to 
ba 


CBC2(iPWSDCB) 
CBSD (IPWS DCB) 


a 
Ww 


CESD (IPWSDCB) 


XWEC(IPWSDTC) 


——_— ae oe ae oe ee Oe te ee ee ee ee ee ee pe ee ee oe ee ee ee ee ee ee ee ee ee ewe ae oe te et oe ee ee eee OE ee ee ee oe 


Increment page count by 1. 


XxX94 


9 
to 


Calculate the new skip value in R2. 


XX9F Store it in the TCB. XWLC(IPhWS DTC) 


ei 
-_ 
£ 


Return to caller. 
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{Labels  jChart XW: IPWSS$XW - Execution Writer {Modified Data | Reg. {Calls 
{ {Fields {Usage | 
{Handle Special Printer Commands: 
\ 
xXW78 |Set up register 2 and check the 
{command code against the entries in 
|the printer command table. 
| 


{If a match is found, branch .~.....0..>|XW82 
{if the command code is not in the 
{table, it represents an immediate 
jconmand, branch tO.66~<sscwccwescais, PF) RKSS 


XWR2 f specified printer is correct ~...>{XW85 


I 
1 
| 
I 
I 
| 

{ | 
| 
{ 
{ 
| 
I 
| 
I 

the command should be ignored ...>[|XX76 

I 

If not a 3800 printer, branch to... >| XW86 
I 

{If unblock data check command code, | 

{set the unblock data check flag in | 

{data set header record and branch ..>{XW86 

{ | 

{If block data check command.code, | 

{turn off the unblock data check flag | 

jin the data set header record and. | 

(branch LOdsweusdcecadadeeescawas-aae: 1 XWS6 

| . \ 

JIf not initialize printer command | 

(code, branch tO .<<Ge<<s2see85eesnu) OIKWSC 

I ( 

|Clear out current printer setup in 

{data set header record. 

{Set initialize printer flag. 

|Get default line table .......... ia o>, 


I 

l 

{ 

H 

{ ii 
{Branch to........... whe ‘a6 ‘aie telat ete lee oO | kW 

| 

I 

{ 

i 

| 


be 
= 
[0°] 
1S! 


{I 

| 

{if the command is invalid branch to >{xXwW88 
| 

| 

| 

{ 

| 


SPLFLAG1(SPLIST 


x 
= 
© 
Po 


SPLFLAG1(SPLIST) 


> 
= 
[oe] 
es] 
ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee i ee 


SPLFLAGT(SPLIST) | 
SPLLUSYS(SPLIST) | 
SPLFLAG1(SPLIST) | 


| 
{If a. load FCB command code, set the 
{FCB unknown flag in the data set 
{header record. 


at 
3 
© 
Q 


SPLFCB(SPLIST) 
| 
Jif the command does not imply a data {| 
itransfer, branch to treat it as a j 
{control command..... 262220025 sac cen >EXXSH 
I { 
{Validate data area address. If the | 
jaddress is invalid, branch to...... >|XW88 
| { 
{if the command does not represent an 
{FCB load, branch to treat it as a 
(WOLCS OPeTetlon. .siceccuweteeeee nina 2 


>< 
xj 
CO 
ON 


IPwWSVDA 


{Set up registers 0 and 3 with the RO,R3 
{data address and length for 

{processing the FCB load. 

| { 
{Branch and Link to the FCB line table} 
[SUPPOUCING2 4.65328 eeu wie ee eee o--- >4{XV8O 
( | 

{If an error has occurred, branch to >|{xXW88 
{Branch to the write routine......5.. >{XX21 


ee ee ee 
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jLabels 
I 


{Chart XW: IPWS$XW - Execution Writer 


{Emulate Invalid Operation: 

| 

{Set the channel status byte to X*'20! 
[to indicate channel program check. 
I 

{Set the first communication byte to 
{X'20* to indicate unrecoverable I/0 
[error. 

I 

{Bump to the next CCW in chain. 

| 

{If the user accepts unrecoverable 
ferrors, branch to get the next 


PCOMMANA. 2c waves cease rereasc ceases > Xx78 
I 

{issue message IR30I1. 

{ 

{Set up the cancel code X'1A' in 

{cegister 0 and branch to.......2.... >[XX80 


| 
{Emulate Transfer in Channel: 


i 
{Validate data area address. If the | 
jaddress is invalid, branch to...... >|XW88 
| | 

{If the address of the next CCW is not| 

{on doubleword boundary, branch to... >| XW88 
| 

[Increment TIC-command counter by 1. | 

{ | 

JIf more than 255 TIC-commands have | 
{been specified in a single channel { 
[Progral,- DEGNCH COvssiwsoe siecwaew< > | XWSS 
I { 
jSave new TIC-command counter. | 

i | 
jLoad the address of the next CCW into| 
(register 8 and branch back......... >{XX04 


Ce ee i el 


Fields 


CBSC (IPWSDCB) 


CBC1 (IPW$DCB) 


TLCB(IPWSDDE) 


TLCB(IPWSDDE) 


em we em eee ee ee ee 


{Usage | 


IPwG 


IPWSV 


> 0) 
i) 
ee ee 


es) 
ond 


R8 


oe ee ee ee ee ee ee ee ee 
my 
_ 
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Chart XW 
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{Modified Data 
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